use a clearer placeholder nonexistant package name

[scpubgit/HTML-String.git] / xt / tt.t

diff --git a/xt/tt.t b/xt/tt.t
index b8c16e4..37e644d 100644 (file)
--- a/xt/tt.t
+++ b/xt/tt.t
@@ -23,4 +23,16 @@ is(
     '<tag>Hi &lt;bob&gt;</tag>',
 );
 
+is(
+    do_tt('<tag>[% foo | no_escape %]</tag>', { foo => 'Hi <bob>' }),
+    '<tag>Hi <bob></tag>',
+);
+
+# Check we aren't nailed by https://rt.perl.org/rt3/Ticket/Display.html?id=49594
+
+is(
+    do_tt('<foo>"$bar"</foo>'."\n"),
+    '<foo>"$bar"</foo>'."\n"
+);
+
 done_testing;