X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=9979e7f98bc5fb35bc8b08d13c04e2b0636877ce;hb=957088cdb876496d4e72bfb5913a065e96b69b19;hp=b7857ca4bb25fb1bc6c7cbabeed3f5b38b8408f0;hpb=afe60e532ca8e2bd54a49ed048238710eff71d72;p=catagits%2FWeb-Simple.git diff --git a/t/tags.t b/t/tags.t index b7857ca..9979e7f 100644 --- a/t/tags.t +++ b/t/tags.t @@ -19,10 +19,19 @@ use Test::More qw(no_plan); use XML::Tags qw(bar); ; } + + sub quux { + use HTML::Tags; + , , "YAY", , ; + } + + sub globbery { + ; + } } is( - join(', ', Foo::foo()), + join(', ', XML::Tags::to_xml_string Foo::foo()), ', , ', 'open tags ok' ); @@ -30,7 +39,19 @@ 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('', HTML::Tags::to_html_string Foo::quux), + 'YAY', + 'HTML tags ok' +); + +is( + join(', ', Foo::globbery), + 't/globbery/one, t/globbery/two', + 'real glob re-installed ok' +);