X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=91edf08dd90eb8a636ceef7734b1a128fa753d55;hb=67a6b9da784f1245688796c26d2da5b9a4c8962c;hp=b82a4399b3f1c9d20656fe80ed7a53149eeb5ff6;hpb=318343ca7e384eecb3cc49de375fce0e1ca85ffd;p=catagits%2FWeb-Simple.git
diff --git a/t/tags.t b/t/tags.t
index b82a439..91edf08 100644
--- a/t/tags.t
+++ b/t/tags.t
@@ -44,6 +44,11 @@ use Test::More qw(no_plan);
, \$data, ;
}
+ sub HTML_comment {
+ use HTML::Tags;
+ ;
+ }
+
sub PI {
use XML::Tags;
;
@@ -87,6 +92,12 @@ is(
);
is(
+ join('', XML::Tags::to_xml_string Foo::HTML_comment),
+ '',
+ 'HTML comment ok'
+);
+
+is(
join('', XML::Tags::to_xml_string Foo::fleem),
'',
'Escaping ok'