]>
iEval git - zeal.git/blob - t/Zeal-Feed.t
5 use Test
::More tests
=> 23;
6 BEGIN { use_ok
('Zeal::Feed') };
8 my $feed = Zeal
::Feed
->new_from_file('t/feed.xml');
9 is
$feed->version, '1.2.3', 'feed version is 1.2.3';
10 my @urls = sort $feed->urls;
11 my $url_re = qr
,^http
://srv
[12]\
.example\
.com
/feed\
.tar\
.gz
$,;
12 like
$urls[$_-1], $url_re, "feed url $_ is correct" for 1, 2;
13 like
$feed->url, $url_re, 'feed random url is correct';
15 use File
::Temp qw
/tempdir/;
19 my $dir = tempdir
'zeal-testXXXX', TMPDIR
=> 1, CLEANUP
=> 1;
20 note
"Testing unpack of $arch";
21 Zeal
::Feed
::_unpack_tar_to_dir
($arch, $dir);
22 ok
-d
"$dir/a.docset", 'Root directory of unpacked docset exists';
23 ok
-f
"$dir/a.docset/Contents/Info.plist", 'Info.plist exists';
26 note
"Testing unpack with default tar";
27 test_unpack
$_ for 't/a.tar', 't/a.tar.gz', 't/a.tar.bz2';
28 note
"Testing unpack with Archive::Tar by env variable";
29 $ENV{ZEAL_USE_INTERNAL_TAR
} = 1;
30 test_unpack
$_ for 't/a.tar', 't/a.tar.gz', 't/a.tar.bz2';
31 note
"Testing unpack with Archive::Tar by clearing PATH";
32 $ENV{ZEAL_USE_INTERNAL_TAR
} = 0;
34 test_unpack
$_ for 't/a.tar', 't/a.tar.gz', 't/a.tar.bz2';
This page took 0.05736 seconds and 4 git commands to generate.