Changeset 74

Timestamp:

11/30/05 09:34:53 (19 years ago)

Author:

thauvin

Message:

• add sub config_mtime()

Location:

trunk/soft/ObsData

Files:

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

trunk/soft/ObsData/ObsData.pm

@@ -137 +137 @@
     my ($self, $section, $var, $default) = @_;
     $self->{config}->val($section, $var, $default);
+}
+
+sub config_mtime {
+    my ($self) = @_;
+    return (stat($self->{config}->GetFileName))[9];
 }
 

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

@@ -1 +1 @@
 # $Id$
 
-use Test::More tests => 26;
+use Test::More tests => 27;
 use File::Temp qw(tempdir);
 use POSIX qw(strftime);
@@ -19 +19 @@
 ok(!$o->is_obs('ozone'), "Isobs works");
 ok($o->getvalue('ohp', 'description'), "can get value");
+ok($o->config_mtime > 0, "Can get mtime of config file");
 
 ok(eq_set([ $o->list_obs ], [ 'ohp' ]), "Can list observatories");