X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=blobdiff_plain;f=t%2Ftags.t;fp=t%2Ftags.t;h=b82a4399b3f1c9d20656fe80ed7a53149eeb5ff6;hp=46e5c8adf53f4c1671403e45ed9c46c995d6e021;hb=318343ca7e384eecb3cc49de375fce0e1ca85ffd;hpb=213f0aaf607d0a2192ff8c4f1be1d0ef78e4ebb5
diff --git a/t/tags.t b/t/tags.t
index 46e5c8a..b82a439 100644
--- a/t/tags.t
+++ b/t/tags.t
@@ -25,6 +25,12 @@ use Test::More qw(no_plan);
, , "YAY", , ;
}
+ sub xquux {
+ use HTML::Tags;
+ ,
+ ;
+ }
+
sub fleem {
use XML::Tags qw(woo);
my $ent = 'one&two"four';
@@ -74,6 +80,13 @@ is(
);
is(
+ join('', HTML::Tags::to_html_string Foo::xquux),
+ '' .
+ '',
+ 'Conflicting HTML tags ok'
+);
+
+is(
join('', XML::Tags::to_xml_string Foo::fleem),
'',
'Escaping ok'