Changeset 49 for trunk/soft/ObsData/t/O-02.t

Timestamp:

11/24/05 07:19:51 (19 years ago)

Author:

thauvin

Message:

• add matching functions

File:

• trunk/soft/ObsData/t/O-02.t (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/t/O-02.t

@@ -1 +1 @@
 # $Id$
 
-use Test::More tests => 16;
+use Test::More tests => 20;
 use File::Temp qw(tempdir);
 
@@ -35 +35 @@
 print STDERR join(" ", $o->list_datatype);
 
+# Testing match rules
+ok($o->match_data_type('ozone', 'ozone12.gz'), "String matching setting");
+ok(!$o->match_data_type('ozone', 'foo12.gz'), "String no matching setting");
+
+ok($o->find_match_data_type('ozone12.gz'), "is able to find good datatype");
+ok(!$o->find_match_data_type('foo12.gz'), "is able to find good datatype");
+
+$o = undef; # Explicit destroy
 system("rm -fr $td");