From: Jakub Narebski <jnareb@gmail.com>
Date: Wed, 16 Dec 2009 21:18:30 +0000 (+0100)
Subject: t/tags.t: HTML comments ok
X-Git-Tag: v0.003~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d031ab2f588946e2748779ecb07097c88094352;p=catagits%2FWeb-Simple.git

t/tags.t: HTML comments ok

Check that HTML comments, <!-- comment -->, work correctly.

Signed-off-by: Jakub Narebski <jnareb@gmail.com>
---

diff --git a/t/tags.t b/t/tags.t
index b82a439..91edf08 100644
--- a/t/tags.t
+++ b/t/tags.t
@@ -44,6 +44,11 @@ use Test::More qw(no_plan);
     <woo>, \$data, </woo>;
   }
 
+  sub HTML_comment {
+    use HTML::Tags;
+    <!-- this is a comment -->;
+  }
+
   sub PI {
     use XML::Tags;
     <?xml version="1.0" encoding="UTF-8"?>;
@@ -87,6 +92,12 @@ is(
 );
 
 is(
+  join('', XML::Tags::to_xml_string Foo::HTML_comment),
+  '<!-- this is a comment -->',
+  'HTML comment ok'
+);
+
+is(
   join('', XML::Tags::to_xml_string Foo::fleem),
   '<woo ent="one&amp;two&lt;three&gt;&quot;four">',
   'Escaping ok'