add extra Lift tests to excercise multi codepoint chars

haskell · Mar 14, 2022 · 98e9cb3 · 98e9cb3
1 parent 173f699
commit 98e9cb3
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/Tests/Lift.hs b/tests/Tests/Lift.hs
@@ -19,10 +19,16 @@ tests = testGroup "TH lifting Text"
   , testCase "strict0" $ assertEqual "strict0"
       $(lift ("f\0o\1o\2" :: S.Text))
       ("f\0o\1o\2" :: S.Text)
+  , testCase "strict-nihao" $ assertEqual "strict-nihao"
+      $(lift ("\20320\22909" :: S.Text))
+      ("\20320\22909" :: S.Text)
   , testCase "lazy" $ assertEqual "lazy"
       $(lift ("foo" :: L.Text))
       ("foo" :: L.Text)
   , testCase "lazy0" $ assertEqual "lazy0"
       $(lift ("f\0o\1o\2" :: L.Text))
       ("f\0o\1o\2" :: L.Text)
+  , testCase "lazy-nihao" $ assertEqual "lazy-nihao"
+      $(lift ("\20320\22909" :: L.Text))
+      ("\20320\22909" :: L.Text)
   ]