diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/crazy-badass-perl-bug.t | 21 | ||||
| -rw-r--r-- | t/test3.mdwn | 1 |
2 files changed, 22 insertions, 0 deletions
diff --git a/t/crazy-badass-perl-bug.t b/t/crazy-badass-perl-bug.t new file mode 100755 index 000000000..631752fa8 --- /dev/null +++ b/t/crazy-badass-perl-bug.t @@ -0,0 +1,21 @@ +#!/usr/bin/perl +# DO NOT CHANGE ANYTHING IN THIS FILE. +# THe crazy bug reproduced here will go away if any of the calls +# to htmlize are changed. +use warnings; +use strict; +use Test::More tests => 103; +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{<p><img src="../images/o.jpg" alt="o" title="ó" />\nóóóóó</p>\n}), + "utf8; bug #373203"); +ok(IkiWiki::htmlize(".mdwn", IkiWiki::readfile("t/test3.mdwn")), + "wtf?") for 1..100; diff --git a/t/test3.mdwn b/t/test3.mdwn new file mode 100644 index 000000000..541628bb4 --- /dev/null +++ b/t/test3.mdwn @@ -0,0 +1 @@ +<h1>☺</h1> |