Stop prepending urn:uuid: to guids that look like UUIDs

[ikiwiki.git] / t / crazy-badass-perl-bug.t

diff --git a/t/crazy-badass-perl-bug.t b/t/crazy-badass-perl-bug.t
index 69e9731d833c8808c5d4b134c8ad8635a97620e1..80724d174d95a53e5f5d5db2b8490b77981f29e8 100755 (executable)
--- a/t/crazy-badass-perl-bug.t
+++ b/t/crazy-badass-perl-bug.t
@@ -4,16 +4,15 @@
 # to htmlize are changed.
 use warnings;
 use strict;
 # to htmlize are changed.
 use warnings;
 use strict;

-use Test::More tests => 103;
+use Test::More tests => 102;

 use Encode;
 
 BEGIN { use_ok("IkiWiki"); }
 use Encode;
 
 BEGIN { use_ok("IkiWiki"); }

-BEGIN { use_ok("IkiWiki::Render"); }

 
 # Initialize htmlscrubber plugin
 
 # Initialize htmlscrubber plugin

-%IkiWiki::config=IkiWiki::defaultconfig();
-$IkiWiki::config{srcdir}=$IkiWiki::config{destdir}="/dev/null";
-IkiWiki::checkconfig();
-ok(IkiWiki::htmlize(".mdwn", IkiWiki::readfile("t/test1.mdwn")));
-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;
        "wtf?") for 1..100;