make XML::Tags return scalarrefs

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

index 4f9807b..e80d2b7 100644 (file)
--- a/t/tags.t
+++ b/t/tags.t
@@ -22,12 +22,12 @@ use Test::More qw(no_plan);
 
   sub quux {
     use HTML::Tags;
-    <html>, <body id="spoon">, "YAY", </body>, </html>;
+    <html>, <body id="spoon">, \"YAY", </body>, </html>;
   }
 }
 
 is(
-  join(', ', Foo::foo()),
+  join(', ', map ${$_}, Foo::foo()),
   '<one>, <two>, <three>',
   'open tags ok'
 );
@@ -35,13 +35,13 @@ is(
 ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');
 
 is(
-  join(', ', Foo::baz()),
+  join(', ', map ${$_}, Foo::baz()),
   '</bar>',
   'close tag ok'
 );
 
 is(
-  join('', Foo::quux),
+  join('', map ${$_}, Foo::quux),
   '<html><body id="spoon">YAY</body></html>',
   'HTML tags ok'
 );