X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=af792cb610aabfadbf57ab8b21b4c84d520dcebd;hb=9935bd6c7784067280343c2874336e3ca7c82000;hp=4f9807be2c9f6745cf621f6d2591c3e42faea130;hpb=cb5717efe306975114d1da44b1024ddb8b4e53cb;p=catagits%2FWeb-Simple.git diff --git a/t/tags.t b/t/tags.t index 4f9807b..af792cb 100644 --- a/t/tags.t +++ b/t/tags.t @@ -24,10 +24,27 @@ use Test::More qw(no_plan); use HTML::Tags; , , "YAY", , ; } + + sub fleem { + use XML::Tags qw(woo); + my $ent = "one&two"; + ; + } + +sub flaax { + use XML::Tags qw(woo); + my $data = "one&twofour"; + , $data, , + , \$data, ; +} + + sub globbery { + ; + } } is( - join(', ', Foo::foo()), + join(', ', XML::Tags::to_xml_string Foo::foo()), ', , ', 'open tags ok' ); @@ -35,13 +52,31 @@ 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('', XML::Tags::to_xml_string Foo::flaax), + 'one&two<three>fourone&twofour', + 'Escaping user data ok' +); + +is( + join(', ', Foo::globbery), + 't/globbery/one, t/globbery/two', + 'real glob re-installed ok' +);