Changeset 115

Timestamp:

12/12/05 06:20:39 (18 years ago)

Author:

thauvin

Message:

• add wrapper to get status values

Location:

trunk/soft/ObsData

Files:

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

trunk/soft/ObsData/ObsData/Repository.pm

@@ -229 +229 @@
         }
     }
+}
+
+=head2 getvalue
+
+=cut
+
+sub getvalue {
+    my ($self, $var, $default) = @_;
+    return $self->{status}->val($self->{archivefile}, $var, $default);
+}
+
+=head2 setvalue
+
+=cut
+
+sub setvalue {
+    my ($self, $var, $val, $comment) = @_;
+    if (!$self->{status}->SectionExists($self->{archivefile})) {
+        $self->{status}->AddSection($self->{archivefile});
+    }
+    $self->{status}->newval($self->{archivefile}, $var, $val) if(defined($val));
+    $self->{status}->SetParameterComment(
+        $self->{archivefile}, $var, $comment
+    ) if(defined($comment));
+}
+
+=head2 get_data_value
+
+=cut
+
+sub get_data_value {
+    my ($self, $datafile, $var, $default) = @_;
+    return $self->getvalue(
+        sprintf('data_%s_%s', $var, $datafile),
+        $var, 
+        $default
+    );
+}
+
+=head2 set_data_value
+
+=cut
+
+sub set_data_value {
+    my ($self, $datafile, $var, $val, $comment) = @_;
+    $self->setvalue(
+        sprintf('data_%s_%s', $var, $datafile),
+        $val,
+        $comment
+    );
 }
 
@@ -428 +478 @@
 
 # Sub data function:
+
+
 
 =head3 get_data_dest($datafile)

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

@@ -1 +1 @@
 # $Id$
 
-use Test::More tests => 13;
+use Test::More tests => 15;
 use File::Temp qw(tempdir);
 
@@ -42 +42 @@
     isa_ok($or, "ObsData::Repository::dir::archive");
     ok($or->load_archive, "Can load an archive");
+
+    # ini status checks
+    $or->setvalue('FOO', 'FOO');
+    $or->set_data_value('ozone34', 'BAR', 'BAR');
+    ok($or->getvalue('FOO') eq 'FOO', "can get a value");
+    ok($or->get_data_value('ozone34', 'BAR') eq 'BAR', "can get a value");
+
     ok($or->do_continue('overwrite') eq 1, "Perform do_continue");
     ok($callbackwhy eq 'overwrite', "arg are properly passed to callback");