Changeset 90

Timestamp:

12/02/05 09:44:44 (19 years ago)

Author:

thauvin

Message:

• add listarchive()

Location:

trunk/soft/ObsData

Files:

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

trunk/soft/ObsData/ObsData/Repository.pm

@@ -265 +265 @@
         }
     }
+}
+
+sub listarchive {
+    my ($self) = @_;
+    $self->loadarchive or return;
+    
+    return $self->{Oarchive}->ls;
 }
 

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

@@ -1 +1 @@
 # $Id$
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 use File::Temp qw(tempdir);
 
@@ -32 +32 @@
     isa_ok($or, "ObsData::Repository::dir::archive");
     ok($or->loadarchive, "Can load an archive");
+    ok($or->listarchive, "Can list archive content");
 }