1 files changed, 0 insertions, 58 deletions
diff --git a/ext/HTML/Parser/t/msie-compat.t b/ext/HTML/Parser/t/msie-compat.t
deleted file mode 100644
index 90d4b7e3b7..0000000000
--- a/ext/HTML/Parser/t/msie-compat.t
+++ /dev/null
@@ -1,58 +0,0 @@
-#!perl -w
-
-use strict;
-use HTML::Parser;
-
-use Test::More tests => 2;
-
-my $TEXT = "";
-sub h
-{
-    my($event, $tagname, $text) = @_;
-    for ($event, $tagname, $text) {
-        if (defined) {
-	    s/([\n\r\t])/sprintf "\\%03o", ord($1)/ge;
-	}
-	else {
-	    $_ = "<undef>";
-	}
-    }
-
-    $TEXT .= "[$event,$tagname,$text]\n";
-}
-
-my $p = HTML::Parser->new(default_h => [\&h, "event,tagname,text"]);
-$p->parse("<a>");
-$p->parse("</a f>");
-$p->parse("</a 'foo<>' 'bar>' x>");
-$p->parse("</a \"foo<>\"");
-$p->parse(" \"bar>\" x>");
-$p->parse("</ foo bar>");
-$p->parse("</ \"<>\" >");
-$p->parse("<!--comment>text<!--comment><p");
-$p->eof;
-
-is($TEXT, <<'EOT');
-[start_document,<undef>,]
-[start,a,<a>]
-[end,a,</a f>]
-[end,a,</a 'foo<>' 'bar>' x>]
-[end,a,</a "foo<>" "bar>" x>]
-[comment, foo bar,</ foo bar>]
-[comment, "<>" ,</ "<>" >]
-[comment,comment,<!--comment>]
-[text,<undef>,text]
-[comment,comment,<!--comment>]
-[comment,p,<p]
-[end_document,<undef>,]
-EOT
-
-$TEXT = "";
-$p->parse("<!comment>");
-$p->eof;
-
-is($TEXT, <<'EOT');
-[start_document,<undef>,]
-[comment,comment,<!comment>]
-[end_document,<undef>,]
-EOT