X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/8fd13334af6538ab65273a4a6adb5a8cb3faef17..fd7db49f941eab604fcabdf78b3c36c743005d34:/t/basewiki_brokenlinks.t?ds=sidebyside diff --git a/t/basewiki_brokenlinks.t b/t/basewiki_brokenlinks.t index baee285e2..2871b1dd2 100755 --- a/t/basewiki_brokenlinks.t +++ b/t/basewiki_brokenlinks.t @@ -3,10 +3,27 @@ use warnings; use strict; use Test::More 'no_plan'; -ok(! system("mkdir t/tmp")); -ok(! system("make -q ikiwiki.out")); +ok(! system("rm -rf t/tmp; mkdir t/tmp")); +ok(! system("make -s ikiwiki.out")); ok(! system("make extra_install DESTDIR=`pwd`/t/tmp/install PREFIX=/usr >/dev/null")); -ok(! system("LANG= perl -T -I. ./ikiwiki.out -plugin smiley -plugin brokenlinks -rebuild -underlaydir=t/tmp/install/usr/share/ikiwiki/basewiki -templatedir=templates t/basewiki_brokenlinks t/tmp/out")); -ok(`grep 'no broken links' t/tmp/out/index.html`); -ok(-e "t/tmp/out/style.css"); -ok(! system("rm -rf t/tmp t/basewiki_brokenlinks/.ikiwiki")); + +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 '
  • ' t/tmp/out/index.html >&2"); + print STDERR "\n\n"; + } + ok(-e "t/tmp/out/style.css"); # linked to.. + ok(! system("rm -rf t/tmp/out t/basewiki_brokenlinks/.ikiwiki")); +} +ok(! system("rm -rf t/tmp"));