basic HTML tags

[catagits/Web-Simple.git] / t / tags.t
diff --git a/t/tags.t b/t/tags.t

index b7857ca..4f9807b 100644 (file)
--- a/t/tags.t
+++ b/t/tags.t
@@ -19,6 +19,11 @@ use Test::More qw(no_plan);
     use XML::Tags qw(bar);
     </bar>;
   }
+
+  sub quux {
+    use HTML::Tags;
+    <html>, <body id="spoon">, "YAY", </body>, </html>;
+  }
 }
 
 is(
@@ -34,3 +39,9 @@ is(
   '</bar>',
   'close tag ok'
 );
+
+is(
+  join('', Foo::quux),
+  '<html><body id="spoon">YAY</body></html>',
+  'HTML tags ok'
+);