new test case

master
Joey Hess 2008-02-10 03:38:30 -05:00
parent 973ea50190
commit e9a215982b
2 changed files with 7 additions and 1 deletions

View File

@ -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.");

View File

@ -0,0 +1,2 @@
<a href="javascript&#x3A;alert('GOTCHA')">click me</a>
<a href="javascript:alert('GOTCHA')">click me</a>