From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 15 Sep 2013 19:30:01 +0000 (+0000)
Subject: move the utf8 test next to the other test for the same perlbug
X-Git-Tag: v1.000005~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=228553e654fa3ec823a029ab75e7ca7cba1454ae;p=scpubgit%2FHTML-String.git

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
--- 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;