X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftags.t;h=af792cb610aabfadbf57ab8b21b4c84d520dcebd;hb=9935bd6c7784067280343c2874336e3ca7c82000;hp=747382ef102e568fc89801c2bd6e2cd5b2d85db1;hpb=b134433d1514d89716e596c4c60a6ae580d30a80;p=catagits%2FWeb-Simple.git

diff --git a/t/tags.t b/t/tags.t
index 747382e..af792cb 100644
--- a/t/tags.t
+++ b/t/tags.t
@@ -31,6 +31,13 @@ use Test::More qw(no_plan);
     <woo ent="$ent">;
   }
 
+sub flaax {
+  use XML::Tags qw(woo);
+  my $data = "one&two<three>four";
+  <woo>,  $data, </woo>,
+  <woo>, \$data, </woo>;
+}
+
   sub globbery {
     <t/globbery/*>;
   }
@@ -63,6 +70,12 @@ is(
 );
 
 is(
+  join('', XML::Tags::to_xml_string Foo::flaax),
+  '<woo>one&amp;two&lt;three&gt;four</woo><woo>one&two<three>four</woo>',
+  'Escaping user data ok'
+);
+
+is(
   join(', ', Foo::globbery),
   't/globbery/one, t/globbery/two',
   'real glob re-installed ok'