X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=91edf08dd90eb8a636ceef7734b1a128fa753d55;hb=e4fd5ab63f9415fd211c44b2326489dc0d18a97b;hp=e80d2b75c19641ccfab86f5372afd9e02986f061;hpb=5f44889ffa1447a63b3cc7dcfb5ed4ac7a155c49;p=catagits%2FWeb-Simple.git
diff --git a/t/tags.t b/t/tags.t
index e80d2b7..91edf08 100644
--- a/t/tags.t
+++ b/t/tags.t
@@ -22,12 +22,50 @@ use Test::More qw(no_plan);
sub quux {
use HTML::Tags;
- ,
, \"YAY", , ;
+ , , "YAY", , ;
+ }
+
+ sub xquux {
+ use HTML::Tags;
+ ,
+ ;
+ }
+
+ sub fleem {
+ use XML::Tags qw(woo);
+ my $ent = 'one&two"four';
+ ;
+ }
+
+ sub flaax {
+ use XML::Tags qw(woo);
+ my $data = "one&twofour";
+ , $data, ,
+ , \$data, ;
+ }
+
+ sub HTML_comment {
+ use HTML::Tags;
+ ;
+ }
+
+ sub PI {
+ use XML::Tags;
+ ;
+ }
+
+ sub DTD {
+ use HTML::Tags;
+
+ }
+
+ sub globbery {
+ ;
}
}
is(
- join(', ', map ${$_}, Foo::foo()),
+ join(', ', XML::Tags::to_xml_string Foo::foo()),
', , ',
'open tags ok'
);
@@ -35,13 +73,56 @@ is(
ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');
is(
- join(', ', map ${$_}, Foo::baz()),
+ join(', ', XML::Tags::to_xml_string Foo::baz()),
'',
'close tag ok'
);
is(
- join('', map ${$_}, Foo::quux),
+ join('', HTML::Tags::to_html_string Foo::quux),
'YAY',
'HTML tags ok'
);
+
+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'
+);
+
+is(
+ join('', XML::Tags::to_xml_string Foo::flaax),
+ 'one&two<three>fourone&twofour',
+ 'Escaping user data ok'
+);
+
+is(
+ join('', XML::Tags::to_xml_string Foo::PI),
+ '',
+ 'XML processing instruction'
+);
+
+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'
+);