From 4aca7842cd784f579e7f73b79141b88081f35a78 Mon Sep 17 00:00:00 2001
From: Paul Tagliamonte <tag@pault.ag>
Date: Sat, 8 Jun 2013 20:17:50 -0400
Subject: [PATCH] Add regression test for UTF and escapes.

---
 tests/native_tests/language.hy | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy
index cf345f4..07ed7db 100644
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@@ -728,3 +728,7 @@
                   (assert (= x [3 2 1]))
                   "success")
               (except [NameError] "failure")))))
+
+(defn test-encoding-nightmares []
+  "NATIVE: test unicode encoding escaping crazybits"
+  (assert (= (len "ℵℵℵ♥♥♥\t♥♥\r\n") 11)))