X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=91edf08dd90eb8a636ceef7734b1a128fa753d55;hb=73349c50e6a2ecda84a6bf290ab055db6c0818a8;hp=587bf63b4f6e10c93561061991a5e152c2c88188;hpb=943937da6e6069b1a7a6b925dad813287dba1488;p=catagits%2FWeb-Simple.git
diff --git a/t/tags.t b/t/tags.t
index 587bf63..91edf08 100644
--- a/t/tags.t
+++ b/t/tags.t
@@ -25,9 +25,15 @@ use Test::More qw(no_plan);
,
, "YAY", , ;
}
+ sub xquux {
+ use HTML::Tags;
+ ,
+ ;
+ }
+
sub fleem {
use XML::Tags qw(woo);
- my $ent = "one&two";
+ my $ent = 'one&two"four';
;
}
@@ -38,11 +44,21 @@ use Test::More qw(no_plan);
, \$data, ;
}
+ sub HTML_comment {
+ use HTML::Tags;
+ ;
+ }
+
sub PI {
use XML::Tags;
;
}
+ sub DTD {
+ use HTML::Tags;
+
+ }
+
sub globbery {
;
}
@@ -69,8 +85,21 @@ is(
);
is(
+ join('', HTML::Tags::to_html_string Foo::xquux),
+ '' .
+ '',
+ 'Conflicting HTML tags ok'
+);
+
+is(
+ join('', XML::Tags::to_xml_string Foo::HTML_comment),
+ '',
+ 'HTML comment ok'
+);
+
+is(
join('', XML::Tags::to_xml_string Foo::fleem),
- '',
+ '',
'Escaping ok'
);
@@ -87,6 +116,12 @@ is(
);
is(
+ join('', HTML::Tags::to_html_string Foo::DTD),
+ '',
+ 'DTD ok'
+);
+
+is(
join(', ', Foo::globbery),
't/globbery/one, t/globbery/two',
'real glob re-installed ok'