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