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

diff --git a/xt/tt.t b/xt/tt.t
index 02439a7..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 %]',
@@ -47,15 +57,6 @@ 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;