Changeset 100

Timestamp:

12/10/05 16:50:20 (19 years ago)

Author:

thauvin

Message:

• don't allow to instanciate ObsData? w/o config file

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (1 diff, 1 prop)
• t/O-01.t (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -53 +53 @@
     };
 
-    if ($configfile) {
-        (-f $configfile && -r _) or return undef;
+    if (!($configfile && -f $configfile && -r _)) {
+        return undef;
     }
 

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

@@ -1 +1 @@
 # $Id$
 
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 use_ok('ObsData');
@@ -8 +8 @@
 
 ok(!ObsData->new('testdata/wrongfile'), "Return an error on bad file");
+ok(!ObsData->new(undef), "Return an error w/o a config file");