about summary refs log tree commit diff
path: root/test/Xanthous
diff options
context:
space:
mode:
Diffstat (limited to 'test/Xanthous')
-rw-r--r--test/Xanthous/UtilSpec.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/test/Xanthous/UtilSpec.hs b/test/Xanthous/UtilSpec.hs
index 1cfca1ffca76..8538ea5098ba 100644
--- a/test/Xanthous/UtilSpec.hs
+++ b/test/Xanthous/UtilSpec.hs
@@ -21,4 +21,8 @@ test = testGroup "Xanthous.Util"
         forAll (shuffle xs) $ \shuffledXs ->
           smallestNotIn xs === smallestNotIn shuffledXs
     ]
+  , testGroup "takeWhileInclusive"
+    [ testProperty "takeWhileInclusive (const True) ≡ id"
+      $ \(xs :: [Int]) -> takeWhileInclusive (const True) xs === xs
+    ]
   ]