summaryrefslogtreecommitdiff
path: root/t/crazy-badass-perl-bug.t
blob: 27812559b4556ea7e99e74c773ba8fb53230aed6 (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 => 102;
  8. use Encode;
  9. BEGIN { use_ok("IkiWiki"); }
  10. # Initialize htmlscrubber plugin
  11. %config=IkiWiki::defaultconfig();
  12. $config{srcdir}=$config{destdir}="/dev/null";
  13. IkiWiki::loadplugins(); IkiWiki::checkconfig();
  14. ok(IkiWiki::htmlize("foo", "mdwn", readfile("t/test1.mdwn")));
  15. ok(IkiWiki::htmlize("foo", "mdwn", readfile("t/test3.mdwn")),
  16. "wtf?") for 1..100;