new test case
parent
973ea50190
commit
e9a215982b
|
@ -1,7 +1,7 @@
|
|||
#!/usr/bin/perl
|
||||
use warnings;
|
||||
use strict;
|
||||
use Test::More tests => 4;
|
||||
use Test::More tests => 5;
|
||||
use Encode;
|
||||
|
||||
BEGIN { use_ok("IkiWiki"); }
|
||||
|
@ -19,3 +19,7 @@ is(IkiWiki::htmlize("foo", "mdwn", readfile("t/test1.mdwn")),
|
|||
"utf8; bug #373203");
|
||||
ok(IkiWiki::htmlize("foo", "mdwn", readfile("t/test2.mdwn")),
|
||||
"this file crashes markdown if it's fed in as decoded utf-8");
|
||||
my $ret=IkiWiki::htmlize("foo", "mdwn", readfile("t/javascript.mdwn"));
|
||||
ok($ret !~ /GOTCHA/,
|
||||
"javascript.mdwn contains a number of attempts at getting
|
||||
javascript that contains GOTCHA past the html sanitiser.");
|
||||
|
|
|
@ -0,0 +1,2 @@
|
|||
<a href="javascript:alert('GOTCHA')">click me</a>
|
||||
<a href="javascript:alert('GOTCHA')">click me</a>
|
Loading…
Reference in New Issue