Add a failing test for unwanted escaping

diff --git a/xt/tt.t b/xt/tt.t
index cd026e7..02439a7 100644 (file)
--- a/xt/tt.t
+++ b/xt/tt.t
@@ -47,6 +47,15 @@ is(
 is( do_tt('"0"', {}), '"0"' );
 
 {
+    use utf8;
+
+    is(
+        do_tt('<li>foo – bar.</li>', {}),
+        '<li>foo – bar.</li>',
+    );
+}
+
+{
     my $tmpl = q[
         [%- MACRO test(name, value) BLOCK;
             IF !value.length;