Commit 9ee8208d authored by Bodigrim's avatar Bodigrim Committed by Xia Li-yao
Browse files

Add more tests for instance Lift Text

parent 82d356de
......@@ -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)
]
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment