Changeset 220 for trunk/soft/ObsData/t/O-02.t
- Timestamp:
- 04/09/06 03:08:46 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/soft/ObsData/t/O-02.t
r193 r220 4 4 use warnings; 5 5 6 use Test::More tests => 2 0;6 use Test::More tests => 21; 7 7 use File::Temp qw(tempdir); 8 8 use POSIX qw(strftime); … … 39 39 ok(eq_set([ $o->get_datadir('ohp', 'ozone') ], [ 'testdata/ohp/ozone', 'testdata/ohp' ]) , 'Can retrive data directory'); 40 40 ok(eq_set([ $o->list_datatype ], [ 'oxygene', 'ozone' ]), "can get data type"); 41 print STDERR join(" ", $o->list_datatype); 41 42 ok(ref $o->get_sub_plugin('ozone', 'match_plugin') eq 'CODE', 'can get plugin code'); 42 43 43 44 $o = undef; # Explicit destroy
Note: See TracChangeset
for help on using the changeset viewer.