X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=747382ef102e568fc89801c2bd6e2cd5b2d85db1;hb=eb9e0e25ce6999be81b80424ccb16d04966debed;hp=9979e7f98bc5fb35bc8b08d13c04e2b0636877ce;hpb=49a6c0b590240b20d1918cd4c0b5579133036e0c;p=catagits%2FWeb-Simple.git diff --git a/t/tags.t b/t/tags.t index 9979e7f..747382e 100644 --- a/t/tags.t +++ b/t/tags.t @@ -25,6 +25,12 @@ use Test::More qw(no_plan); , , "YAY", , ; } + sub fleem { + use XML::Tags qw(woo); + my $ent = "one&two"; + ; + } + sub globbery { ; } @@ -51,6 +57,12 @@ is( ); 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'