From 4165f6a5c243c2a3e0e2500574b631520e8cd429 Mon Sep 17 00:00:00 2001 From: Ignat Insarov Date: Thu, 15 Feb 2024 12:48:00 +0700 Subject: [PATCH] fixup! Write test cases and stub functions. --- tests/Tests/ShareEmpty.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/Tests/ShareEmpty.hs b/tests/Tests/ShareEmpty.hs index 7c4e1345..adaf700d 100644 --- a/tests/Tests/ShareEmpty.hs +++ b/tests/Tests/ShareEmpty.hs @@ -112,7 +112,7 @@ tests = testGroup "empty Text values are shared" , testCase "tails empty = [empty]" $ mapM_ assertPtrEqEmpty $ T.tails empty , testCase "tailsNE empty = singleton empty" $ mapM_ assertPtrEqEmpty $ T.tailsNE empty , testCase "tails _ = [..., empty]" $ assertPtrEqEmpty $ L.last $ T.tails "123" - , testCase "tailsNE _ = reverse (empty :| …)" $ assertPtrEqEmpty $ NonEmptyList.last $ T.tailsNE "123" + , testCase "tailsNE _ = reverse (empty :| ...)" $ assertPtrEqEmpty $ NonEmptyList.last $ T.tailsNE "123" , testCase "split _ empty = [empty]" $ mapM_ assertPtrEqEmpty $ T.split (== 'a') "" , testCase "filter (const False) _ = empty" $ assertPtrEqEmpty $ T.filter (const False) "1234" , testCase "zipWith const empty empty = empty" $ assertPtrEqEmpty $ T.zipWith const "" ""