From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Fri, 11 Dec 2009 05:16:01 +0000 (-0600)
Subject: tests for html escaping (jnareb)
X-Git-Tag: v0.003~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9935bd6c7784067280343c2874336e3ca7c82000;p=catagits%2FWeb-Simple.git

tests for html escaping (jnareb)
---

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'