diff options
Diffstat (limited to 't/permalink.t')
-rwxr-xr-x | t/permalink.t | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/t/permalink.t b/t/permalink.t index 13a72fc56..edb05a81b 100755 --- a/t/permalink.t +++ b/t/permalink.t @@ -1,14 +1,31 @@ #!/usr/bin/perl use warnings; use strict; -use Test::More 'no_plan'; +use Test::More; + +my $installed = $ENV{INSTALLED_TESTS}; + +my @command; +if ($installed) { + @command = qw(ikiwiki); +} +else { + ok(! system("make -s ikiwiki.out")); + @command = qw(perl -I. ./ikiwiki.out + --underlaydir=underlays/basewiki + --set underlaydirbase=underlays + --templatedir=templates); +} ok(! system("rm -rf t/tmp")); ok(! system("mkdir t/tmp")); -ok(! system("make -s ikiwiki.out")); -ok(! system("perl -I. ./ikiwiki.out --plugin inline --url=http://example.com --cgiurl=http://example.com/ikiwiki.cgi --rss --atom --underlaydir=underlays/basewiki --set underlaydirbase=underlays --templatedir=templates t/tinyblog t/tmp/out")); +ok(! system(@command, qw(--plugin inline --url=http://example.com + --cgiurl=http://example.com/ikiwiki.cgi --rss --atom + t/tinyblog t/tmp/out))); # This guid should never, ever change, for any reason whatsoever! my $guid="http://example.com/post/"; ok(length `egrep '<guid.*>$guid</guid>' t/tmp/out/index.rss`); ok(length `egrep '<id>$guid</id>' t/tmp/out/index.atom`); ok(! system("rm -rf t/tmp t/tinyblog/.ikiwiki")); + +done_testing(); |