From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 13 Sep 2013 19:01:39 +0000 (-0400)
Subject: Add a failing test for unwanted escaping
X-Git-Tag: v1.000005~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ddb0236c5a643ca81dbbc2294ccdcf8d3b0471d;p=scpubgit%2FHTML-String.git

Add a failing test for unwanted escaping
---

diff --git a/xt/tt.t b/xt/tt.t
index cd026e7..02439a7 100644
--- 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;