Changeset 90
- Timestamp:
- 12/02/05 09:44:44 (19 years ago)
- Location:
- trunk/soft/ObsData
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/soft/ObsData/ObsData/Repository.pm
- Property cvs2svn:cvs-rev changed from 1.28 to 1.29
r89 r90 265 265 } 266 266 } 267 } 268 269 sub listarchive { 270 my ($self) = @_; 271 $self->loadarchive or return; 272 273 return $self->{Oarchive}->ls; 267 274 } 268 275 -
trunk/soft/ObsData/t/OR-03.t
- Property cvs2svn:cvs-rev changed from 1.2 to 1.3
r89 r90 1 1 # $Id$ 2 2 3 use Test::More tests => 8;3 use Test::More tests => 9; 4 4 use File::Temp qw(tempdir); 5 5 … … 32 32 isa_ok($or, "ObsData::Repository::dir::archive"); 33 33 ok($or->loadarchive, "Can load an archive"); 34 ok($or->listarchive, "Can list archive content"); 34 35 } 35 36
Note: See TracChangeset
for help on using the changeset viewer.