X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/dae0f48e91304afcb6ebe0936360e51b22a56548..0dc2b3844d77c23173d1274e897adb7065923c4f:/t/crazy-badass-perl-bug.t diff --git a/t/crazy-badass-perl-bug.t b/t/crazy-badass-perl-bug.t index 27812559b..328a979c2 100755 --- a/t/crazy-badass-perl-bug.t +++ b/t/crazy-badass-perl-bug.t @@ -2,6 +2,8 @@ # DO NOT CHANGE ANYTHING IN THIS FILE. # THe crazy bug reproduced here will go away if any of the calls # to htmlize are changed. +# Note: This was http://bugs.debian.org/376329 , and was fixed in +# perl 5.14. use warnings; use strict; use Test::More tests => 102; @@ -13,6 +15,6 @@ BEGIN { use_ok("IkiWiki"); } %config=IkiWiki::defaultconfig(); $config{srcdir}=$config{destdir}="/dev/null"; IkiWiki::loadplugins(); IkiWiki::checkconfig(); -ok(IkiWiki::htmlize("foo", "mdwn", readfile("t/test1.mdwn"))); -ok(IkiWiki::htmlize("foo", "mdwn", readfile("t/test3.mdwn")), +ok(IkiWiki::htmlize("foo", "foo", "mdwn", readfile("t/test1.mdwn"))); +ok(IkiWiki::htmlize("foo", "foo", "mdwn", readfile("t/test3.mdwn")), "wtf?") for 1..100;