X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/b74b7ab68b983b3f7d9e561eb991b21764cdb3be..75438e12e563f2bd3f21d3a4943a3c83656eeb97:/t/permalink.t diff --git a/t/permalink.t b/t/permalink.t index 9b44cd72e..edb05a81b 100755 --- a/t/permalink.t +++ b/t/permalink.t @@ -1,13 +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("LC_ALL=C perl -T -I. ./ikiwiki.out -plugin inline -url=http://example.com -cgiurl=http://example.com/ikiwiki.cgi -rss -atom -underlaydir=underlays/basewiki -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 `grep '$guid' t/tmp/out/index.rss`); -ok(length `grep '$guid' t/tmp/out/index.atom`); +ok(length `egrep '$guid' t/tmp/out/index.rss`); +ok(length `egrep '$guid' t/tmp/out/index.atom`); ok(! system("rm -rf t/tmp t/tinyblog/.ikiwiki")); + +done_testing();