X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=af792cb610aabfadbf57ab8b21b4c84d520dcebd;hb=9935bd6c7784067280343c2874336e3ca7c82000;hp=e80d2b75c19641ccfab86f5372afd9e02986f061;hpb=5f44889ffa1447a63b3cc7dcfb5ed4ac7a155c49;p=catagits%2FWeb-Simple.git diff --git a/t/tags.t b/t/tags.t index e80d2b7..af792cb 100644 --- a/t/tags.t +++ b/t/tags.t @@ -22,12 +22,29 @@ use Test::More qw(no_plan); sub quux { use HTML::Tags; - , , \"YAY", , ; + , , "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(', ', map ${$_}, 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(', ', 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('', 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' +);