From 2bde54c9dc0e1776882f4e0fef5750296e848c5b Mon Sep 17 00:00:00 2001 From: Simon McVittie Date: Sun, 3 Feb 2019 12:25:20 +0000 Subject: t: Consistently remove temp directory before testing, not after When a test fails, it's useful to be able to inspect the output. Signed-off-by: Simon McVittie --- t/podcast.t | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 't/podcast.t') 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; -- cgit v1.2.3