Changeset 91
- Timestamp:
- 12/02/05 09:49:22 (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.29 to 1.30
r90 r91 244 244 } 245 245 246 sub load archive {246 sub load_archive { 247 247 my ($self) = @_; 248 248 if ($self->{Oarchive}) { … … 267 267 } 268 268 269 sub list archive {270 my ($self) = @_; 271 $self->load archive or return;269 sub list_archive { 270 my ($self) = @_; 271 $self->load_archive or return; 272 272 273 273 return $self->{Oarchive}->ls; … … 289 289 my ($self) = @_; 290 290 291 $self->load archive or return;291 $self->load_archive or return; 292 292 293 293 foreach my $datafile ($self->{Oarchive}->ls) { -
trunk/soft/ObsData/t/OR-03.t
- Property cvs2svn:cvs-rev changed from 1.3 to 1.4
r90 r91 31 31 ); 32 32 isa_ok($or, "ObsData::Repository::dir::archive"); 33 ok($or->load archive, "Can load an archive");34 ok($or->list archive, "Can list archive content");33 ok($or->load_archive, "Can load an archive"); 34 ok($or->list_archive, "Can list archive content"); 35 35 } 36 36
Note: See TracChangeset
for help on using the changeset viewer.