|
Last change
on this file since 166 was
166,
checked in by thauvin, 19 years ago
|
- add ObsData::Event to handle message from backend to interactive tools
|
-
Property cvs2svn:cvs-rev set to
1.1
-
Property svn:keywords set to
Author Date Id Revision
-
Property svn:mime-type set to
text/x-troff
|
|
File size:
697 bytes
|
| Line | |
|---|
| 1 | # $Id$ |
|---|
| 2 | |
|---|
| 3 | use Test::More tests => 9; |
|---|
| 4 | |
|---|
| 5 | use_ok('ObsData::Event'); |
|---|
| 6 | |
|---|
| 7 | my $oe = ObsData::Event->new('myid', 'stupid question'); |
|---|
| 8 | isa_ok($oe, "ObsData::Event"); |
|---|
| 9 | |
|---|
| 10 | $oe->add_test('test1', "TEST 1", 0); |
|---|
| 11 | $oe->add_test('test2', "TEST 2", 0); |
|---|
| 12 | $oe->add_test('test1', undef, 1); |
|---|
| 13 | |
|---|
| 14 | ok($oe->id eq 'myid', "Can get event id"); |
|---|
| 15 | ok($oe->message eq 'stupid question', "Can get event message"); |
|---|
| 16 | |
|---|
| 17 | ok(eq_array([ $oe->list_test ], [ qw(test1 test2) ]), "Can list test"); |
|---|
| 18 | ok($oe->test_message('test1') eq "TEST 1", "Can get test message"); |
|---|
| 19 | ok($oe->test_message('test2') eq "TEST 2", "Can get test message"); |
|---|
| 20 | ok($oe->test_result('test1') == 1, "Can get test result"); |
|---|
| 21 | ok($oe->test_result('test2') == 0, "Can get test result"); |
|---|
Note: See
TracBrowser
for help on using the repository browser.
