source:
trunk/soft/ObsData/t/OA-06.t
@
157
Last change on this file since 157 was 157, checked in by thauvin, 18 years ago | |
---|---|
|
|
File size: 454 bytes |
Line | |
---|---|
1 | # $Id$ |
2 | |
3 | use Test::More tests => 4; |
4 | use ObsData::Archive; |
5 | use File::Temp qw(tempdir); |
6 | |
7 | my $tempdir = tempdir; |
8 | print $tempdir . "\n"; |
9 | |
10 | my $oa = ObsData::Archive->new('testdata/coin.rar'); |
11 | |
12 | isa_ok($oa, 'ObsData::Archive::Rar'); |
13 | my ($list) = $oa->ls(); |
14 | ok($list eq 'coin', "Can list its contents"); |
15 | |
16 | ok($oa->extract('coin', "$tempdir/coin"), "Can extract the file"); |
17 | ok(-r "$tempdir/coin", "the file has been really extract"); |
18 | |
19 | system(qw(rm -fr), $tempdir); |
Note: See TracBrowser
for help on using the repository browser.