diff --git a/tests/Tests/Lift.hs b/tests/Tests/Lift.hs index eca6a87d..676f23de 100644 --- 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) ]