options to ignore specific callers, more TT tests

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

diff --git a/t/simple.t b/t/simple.t
index da35254..af9ff91 100644 (file)
--- a/t/simple.t
+++ b/t/simple.t
@@ -11,9 +11,28 @@ is("$one", '<tag>Hi &lt;bob&gt;</tag>');
 my $two = do {
   use HTML::String::Overload;
 
-  "<tag>${hi}</tag>"
+  "<tag>${hi}</tag>";
 };
 
 is("$two", '<tag>Hi &lt;bob&gt;</tag>');
 
+my $three = html('<tag>');
+
+$three .= $hi;
+
+$three .= html('</tag>');
+
+is("$three", '<tag>Hi &lt;bob&gt;</tag>');
+
+my $four; {
+  use HTML::String::Overload { ignore => { lies => 1 } };
+
+  #$four = "<tag>".$hi."</tag>\n";
+  $four = "<tag>$hi</tag>"."\n";
+};
+
+chomp($four);
+
+is("$four", '<tag>Hi &lt;bob&gt;</tag>');
+
 done_testing;