Last change
on this file since 182 was
182,
checked in by thauvin, 18 years ago
|
- remove complex code, no longer in use
|
-
Property cvs2svn:cvs-rev set to
1.3
-
Property svn:keywords set to
Author Date Id Revision
-
Property svn:mime-type set to
text/x-troff
|
File size:
592 bytes
|
Line | |
---|
1 | # $Id$ |
---|
2 | |
---|
3 | use strict; |
---|
4 | use warnings; |
---|
5 | |
---|
6 | use Test::More tests => 3; |
---|
7 | use File::Temp qw(tempdir); |
---|
8 | |
---|
9 | use_ok('ObsData'); |
---|
10 | use_ok('ObsData::Repository'); |
---|
11 | |
---|
12 | my $o = ObsData->new( |
---|
13 | 'testdata/obsdata-conftest', |
---|
14 | logfile => "testdata/obsdata.log", |
---|
15 | verbose => 0, |
---|
16 | ); |
---|
17 | $o->load(); |
---|
18 | |
---|
19 | { |
---|
20 | my $or = ObsData::Repository::dir::archive->new( |
---|
21 | { |
---|
22 | obsdata => $o, |
---|
23 | dir => 'testdata/ohp', |
---|
24 | archivefile => 'ozone34.gz', |
---|
25 | statusfile => 'testdata/test-index.ini', |
---|
26 | dry_run => 1, |
---|
27 | } |
---|
28 | ); |
---|
29 | isa_ok($or, "ObsData::Repository::dir::archive"); |
---|
30 | } |
---|
31 | |
---|
Note: See
TracBrowser
for help on using the repository browser.