From 9ee8208dce9685c04faaed400b5147ee54e58c01 Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Mon, 21 Jun 2021 20:50:43 +0100
Subject: [PATCH] Add more tests for instance Lift Text
---
tests/Tests/Lift.hs | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/tests/Tests/Lift.hs b/tests/Tests/Lift.hs
index 11e71932..eca6a87d 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)
]
--
GitLab