diff --git a/tests/Tests/Lift.hs b/tests/Tests/Lift.hs index 11e719321dc599594bbd6e5cae2e9122ecc8818a..eca6a87d33d01324dd53899b0a135dd78b274749 100644 --- a/tests/Tests/Lift.hs +++ b/tests/Tests/Lift.hs @@ -16,7 +16,13 @@ tests = testGroup "TH lifting Text" [ testCase "strict" $ assertEqual "strict" $(lift ("foo" :: S.Text)) ("foo" :: S.Text) + , testCase "strict0" $ assertEqual "strict0" + $(lift ("f\0o\1o\2" :: S.Text)) + ("f\0o\1o\2" :: 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) ]