distify

[scpubgit/HTML-String.git] / t / simple.t

diff --git a/t/simple.t b/t/simple.t
index af9ff91..0d19327 100644 (file)
--- a/t/simple.t
+++ b/t/simple.t
@@ -25,7 +25,7 @@ $three .= html('</tag>');
 is("$three", '<tag>Hi &lt;bob&gt;</tag>');
 
 my $four; {
-  use HTML::String::Overload { ignore => { lies => 1 } };
+  use HTML::String::Overload { ignore => { non_existant_package_name => 1 } };
 
   #$four = "<tag>".$hi."</tag>\n";
   $four = "<tag>$hi</tag>"."\n";
@@ -35,4 +35,16 @@ chomp($four);
 
 is("$four", '<tag>Hi &lt;bob&gt;</tag>');
 
+{
+    package MyPkg;
+
+    sub new { 'foo' }
+
+    sub load { 'bar' }
+}
+
+is(html('MyPkg')->new, 'foo');
+
+is(html('MyPkg')->load, 'bar');
+
 done_testing;