summaryrefslogtreecommitdiff
path: root/t/crazy-badass-perl-bug.t
blob: 78f0b50112885d44e490925270058620f705c477 (plain)
  1. #!/usr/bin/perl
  2. # DO NOT CHANGE ANYTHING IN THIS FILE.
  3. # THe crazy bug reproduced here will go away if any of the calls
  4. # to htmlize are changed.
  5. use warnings;
  6. use strict;
  7. use Test::More tests => 103;
  8. use Encode;
  9. BEGIN { use_ok("IkiWiki"); }
  10. BEGIN { use_ok("IkiWiki::Render"); }
  11. # Initialize htmlscrubber plugin
  12. %IkiWiki::config=IkiWiki::defaultconfig();
  13. $IkiWiki::config{srcdir}=$IkiWiki::config{destdir}="/dev/null";
  14. IkiWiki::loadplugins(); IkiWiki::checkconfig();
  15. ok(IkiWiki::htmlize("foo", "mdwn", IkiWiki::readfile("t/test1.mdwn")));
  16. ok(IkiWiki::htmlize("foo", "mdwn", IkiWiki::readfile("t/test3.mdwn")),
  17. "wtf?") for 1..100;