X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/ffc06c8e4de9db33e0c5f90a759ae3eece633cee..9497fc1b6c665ca7eb9ca0b5a0b1ad699e040c49:/t/basewiki_brokenlinks.t diff --git a/t/basewiki_brokenlinks.t b/t/basewiki_brokenlinks.t old mode 100644 new mode 100755 index f70394b85..249d625f6 --- a/t/basewiki_brokenlinks.t +++ b/t/basewiki_brokenlinks.t @@ -1,9 +1,29 @@ #!/usr/bin/perl use warnings; use strict; -use Test::More tests => 3; +use Test::More 'no_plan'; -ok(! system("make ikiwiki.out")); -ok(! system("PERL5LIB=. ./ikiwiki.out -plugin brokenlinks -rebuild -underlaydir=basewiki t/basewiki_brokenlinks t/basewiki_brokenlinks/out")); -ok(`grep 'no broken links' t/basewiki_brokenlinks/out/index.html`); -system("rm -rf t/basewiki_brokenlinks/out t/basewiki_brokenlinks/.ikiwiki"); +ok(! system("rm -rf t/tmp; mkdir t/tmp")); +ok(! system("make -s ikiwiki.out")); +ok(! system("make underlay_install DESTDIR=`pwd`/t/tmp/install PREFIX=/usr >/dev/null")); + +foreach my $plugin ("", "listdirectives") { + ok(! system("LC_ALL=C perl -I. ./ikiwiki.out --rebuild --plugin brokenlinks ". + # always enabled because pages link to it conditionally, + # which brokenlinks cannot handle properly + "--plugin smiley ". + ($plugin ? "--plugin $plugin " : ""). + "--underlaydir=t/tmp/install/usr/share/ikiwiki/basewiki ". + "--set underlaydirbase=t/tmp/install/usr/share/ikiwiki ". + "--templatedir=templates t/basewiki_brokenlinks t/tmp/out")); + my $result=`grep 'no broken links' t/tmp/out/index.html`; + ok(length($result)); + if (! length $result) { + print STDERR "\n\nbroken links found".($plugin ? " (with $plugin)" : "")."\n"; + system("grep '