Changeset 91

Timestamp:

12/02/05 09:49:22 (19 years ago)

Author:

thauvin

Message:

• rename fonction for coherency

Location:

trunk/soft/ObsData

Files:

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

trunk/soft/ObsData/ObsData/Repository.pm

@@ -244 +244 @@
 }
 
-sub loadarchive {
+sub load_archive {
     my ($self) = @_;
     if ($self->{Oarchive}) {
@@ -267 +267 @@
 }
 
-sub listarchive {
-    my ($self) = @_;
-    $self->loadarchive or return;
+sub list_archive {
+    my ($self) = @_;
+    $self->load_archive or return;
     
     return $self->{Oarchive}->ls;
@@ -289 +289 @@
     my ($self) = @_;
 
-    $self->loadarchive or return;
+    $self->load_archive or return;
 
     foreach my $datafile ($self->{Oarchive}->ls) {

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

@@ -31 +31 @@
     );
     isa_ok($or, "ObsData::Repository::dir::archive");
-    ok($or->loadarchive, "Can load an archive");
-    ok($or->listarchive, "Can list archive content");
+    ok($or->load_archive, "Can load an archive");
+    ok($or->list_archive, "Can list archive content");
 }