From e9a215982b6e522f21653d2d164abcb7246b0f77 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Sun, 10 Feb 2008 03:38:30 -0500
Subject: new test case

---
 t/htmlize.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 't/htmlize.t')

diff --git a/t/htmlize.t b/t/htmlize.t
index a9ccfedcb..670500a67 100755
--- a/t/htmlize.t
+++ b/t/htmlize.t
@@ -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.");
-- 
cgit v1.2.3