about summary refs log tree commit diff
path: root/test/Xanthous
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-10-16T02·54-0400
committerGriffin Smith <root@gws.fyi>2019-10-16T02·54-0400
commit4882350f5d7e54a6ae5c8760f2510273dae19c60 (patch)
treeb8b61ec39abf51d2599be2dead82504f67f6fbe0 /test/Xanthous
parent8a4220df830adb6f1616ca02dd06902474fd25df (diff)
Don't walk gormlaks into walls
Because of the way lines are drawn, a specific configuration of
positioning for gormlaks would have them decide they desperately wanted
to walk *inside* a wall, which they would then both fail to do but also
always collide with whenever they tried to go anywhere else.
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
+    ]
   ]