"XML::Feed and/or HTML::Parser or File::MimeInfo not available"};
}
else {
- eval q{use Test::More tests => 137};
+ eval q{use Test::More};
}
}
}
else {
ok(! system("make -s ikiwiki.out"));
- @base_command = qw(perl -I. ./ikiwiki.out
+ @base_command = ("perl", "-I".getcwd, qw(./ikiwiki.out
--underlaydir=underlays/basewiki
--set underlaydirbase=underlays
- --templatedir=templates);
+ --templatedir=templates));
}
my $tmp = 't/tmp';
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),
}
}
}
-
- 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),
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),
single_page_html();
inlined_pages_html();
podcast('fancy');
+
+done_testing;