X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=747382ef102e568fc89801c2bd6e2cd5b2d85db1;hb=0f339458a16fcc719f0a3f18e82c4212da460d99;hp=4f9807be2c9f6745cf621f6d2591c3e42faea130;hpb=cb5717efe306975114d1da44b1024ddb8b4e53cb;p=catagits%2FWeb-Simple.git
diff --git a/t/tags.t b/t/tags.t
index 4f9807b..747382e 100644
--- a/t/tags.t
+++ b/t/tags.t
@@ -24,10 +24,20 @@ use Test::More qw(no_plan);
use HTML::Tags;
,
, "YAY", , ;
}
+
+ sub fleem {
+ use XML::Tags qw(woo);
+ my $ent = "one&two";
+ ;
+ }
+
+ sub globbery {
+ ;
+ }
}
is(
- join(', ', Foo::foo()),
+ join(', ', XML::Tags::to_xml_string Foo::foo()),
', , ',
'open tags ok'
);
@@ -35,13 +45,25 @@ is(
ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');
is(
- join(', ', Foo::baz()),
+ join(', ', XML::Tags::to_xml_string Foo::baz()),
'',
'close tag ok'
);
is(
- join('', Foo::quux),
+ join('', HTML::Tags::to_html_string Foo::quux),
'YAY',
'HTML tags ok'
);
+
+is(
+ join('', XML::Tags::to_xml_string Foo::fleem),
+ '',
+ 'Escaping ok'
+);
+
+is(
+ join(', ', Foo::globbery),
+ 't/globbery/one, t/globbery/two',
+ 'real glob re-installed ok'
+);