diff options
Diffstat (limited to 't/podcast.t')
-rwxr-xr-x | t/podcast.t | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/t/podcast.t b/t/podcast.t index 708ac7640..7b0987e21 100755 --- a/t/podcast.t +++ b/t/podcast.t @@ -9,7 +9,7 @@ BEGIN { "XML::Feed and/or HTML::Parser or File::MimeInfo not available"}; } else { - eval q{use Test::More tests => 137}; + eval q{use Test::More}; } } @@ -41,6 +41,8 @@ sub podcast { my @command = (@base_command, qw(--plugin inline --rss --atom)); push @command, "--url=$baseurl", qw(t/tinypodcast), "$tmp/out"; + ok(! system("rm -rf $tmp $statedir"), q{setup}); + ok(! system("mkdir $tmp"), q{setup}); ok(! system(@command), @@ -121,14 +123,14 @@ sub podcast { } } } - - ok(! system("rm -rf $tmp $statedir"), q{teardown}); } sub single_page_html { my @command = @base_command; push @command, qw(t/tinypodcast), "$tmp/out"; + ok(! system("rm -rf $tmp $statedir"), q{setup}); + ok(! system("mkdir $tmp"), q{setup}); ok(! system(@command), @@ -172,6 +174,8 @@ sub inlined_pages_html { my @command = (@base_command, qw(--plugin inline)); push @command, qw(t/tinypodcast), "$tmp/out"; + ok(! system("rm -rf $tmp $statedir"), q{setup}); + ok(! system("mkdir $tmp"), q{setup}); ok(! system(@command), @@ -240,3 +244,5 @@ podcast('simple'); single_page_html(); inlined_pages_html(); podcast('fancy'); + +done_testing; |