move the utf8 test next to the other test for the same perlbug

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

diff --git a/xt/tt.t b/xt/tt.t
index cd026e7..151152e 100644 (file)
--- a/xt/tt.t
+++ b/xt/tt.t
@@ -35,6 +35,16 @@ is(
     '<foo>"$bar"</foo>'."\n"
 );
 
+{ # non-ASCII characters can also trigger the bug
+
+    use utf8;
+
+    is(
+        do_tt('<li>foo – bar.</li>', {}),
+        '<li>foo – bar.</li>',
+    );
+}
+
 is(
     do_tt(
         '[% FOREACH item IN items %][% item %][% END %]',