X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/a5fdf4714732c754c6bee16ff65fa85968737010..1bbdc76f9afb9cffe5fb39dea3903dfa3dafbc7e:/t/crazy-badass-perl-bug.t diff --git a/t/crazy-badass-perl-bug.t b/t/crazy-badass-perl-bug.t index 631752fa8..328a979c2 100755 --- a/t/crazy-badass-perl-bug.t +++ b/t/crazy-badass-perl-bug.t @@ -2,20 +2,19 @@ # 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 => 103; +use Test::More tests => 102; use Encode; BEGIN { use_ok("IkiWiki"); } -BEGIN { use_ok("IkiWiki::Render"); } # Initialize htmlscrubber plugin -%IkiWiki::config=IkiWiki::defaultconfig(); -$IkiWiki::config{srcdir}=$IkiWiki::config{destdir}="/dev/null"; -IkiWiki::checkconfig(); -is(IkiWiki::htmlize(".mdwn", IkiWiki::readfile("t/test1.mdwn")), - Encode::decode_utf8(qq{

o\nóóóóó

\n}), - "utf8; bug #373203"); -ok(IkiWiki::htmlize(".mdwn", IkiWiki::readfile("t/test3.mdwn")), +%config=IkiWiki::defaultconfig(); +$config{srcdir}=$config{destdir}="/dev/null"; +IkiWiki::loadplugins(); IkiWiki::checkconfig(); +ok(IkiWiki::htmlize("foo", "foo", "mdwn", readfile("t/test1.mdwn"))); +ok(IkiWiki::htmlize("foo", "foo", "mdwn", readfile("t/test3.mdwn")), "wtf?") for 1..100;