Changeset 118

Timestamp:

12/12/05 20:49:24 (18 years ago)

Author:

thauvin

Message:

• add checkconf return value and use the proper file for the test

Location:

trunk/soft/ObsData

Files:

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

trunk/soft/ObsData/ObsData.pm

@@ -139 +139 @@
 sub checkconfig {
     my ($self) = @_;
+    my $result = 1;
     foreach my $g ($self->{config}->GroupMembers('Obs')) {
         my ($obs) = $g =~ /\S+\s+(.*)/;
@@ -155 +156 @@
                     $@,
                 );
+                $result = 0;
                 # TODO set this reg unavalable
             }
         }
     }
+    return($result);
 }
 

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

@@ -7 +7 @@
 use_ok('ObsData');
 
-ok(my $o = ObsData->new('testdata/obsdata-conftest', logfile => "testdata/obsdata.log"), "Can create object");
+ok(my $o = ObsData->new('testdata/obsdata-wrongconf', logfile => "testdata/obsdata.log"), "Can create object");
 
 ok(!$o->checkconfig, "Get error on wrong config file");