urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add htmlscrubber colon in url cases to test suite

master
Joey Hess 2010-08-19 14:04:55 -04:00
parent 9b9ecda62f
commit 7d29ba2fc7
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
t/htmlize.t
View File

@ -1,7 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use warnings; use warnings;
use strict; use strict;
use Test::More tests => 26; use Test::More tests => 32;
use Encode; use Encode;
BEGIN { use_ok("IkiWiki"); } BEGIN { use_ok("IkiWiki"); }
@ -68,3 +68,21 @@ is(IkiWiki::htmlize("foo", "foo", "mdwn",
is(IkiWiki::htmlize("foo", "foo", "mdwn", is(IkiWiki::htmlize("foo", "foo", "mdwn",
q{<span class="foo">bar</span>}), q{<span class="foo">bar</span>}),
q{<span class="foo">bar</span>}, "class attribute allowed"); q{<span class="foo">bar</span>}, "class attribute allowed");
is(IkiWiki::htmlize("foo", "foo", "mdwn",
q{<a href="aaa#foo">}),
q{<a href="aaa#foo">}, "simple anchor allowed");
is(IkiWiki::htmlize("foo", "foo", "mdwn",
q{<a href="aaa#foo:bar">}),
q{<a href="aaa#foo:bar">}, "colon allowed in anchor");
is(IkiWiki::htmlize("foo", "foo", "mdwn",
q{<a href="aaa?foo:bar">}),
q{<a href="aaa?foo:bar">}, "colon allowed in query string");
is(IkiWiki::htmlize("foo", "foo", "mdwn",
q{<a href="foo:bar">}),
q{<a>}, "unknown protocol blocked");
is(IkiWiki::htmlize("foo", "foo", "mdwn",
q{<a href="#foo">}),
q{<a href="#foo">}, "simple relative anchor allowed");
is(IkiWiki::htmlize("foo", "foo", "mdwn",
q{<a href="#foo:bar">}),
q{<a href="#foo:bar">}, "colon in simple relative anchor allowed");