From 8a4220df830adb6f1616ca02dd06902474fd25df Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sun, 13 Oct 2019 12:37:08 -0400 Subject: Implement speed and ticks Gormlaks now move 1/8th the speed of the character, which means we can run away from them - yay! Unfortunately this also introduces a bug where they'll eventually get stuck and not do anything, so I'll be tackling that next. --- test/Xanthous/DataSpec.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'test') diff --git a/test/Xanthous/DataSpec.hs b/test/Xanthous/DataSpec.hs index 26a862baa6a6..6fad88681acb 100644 --- a/test/Xanthous/DataSpec.hs +++ b/test/Xanthous/DataSpec.hs @@ -24,15 +24,15 @@ test = testGroup "Xanthous.Data" ] , testProperty "directionOf laws" $ \pos dir -> directionOf pos (move dir pos) == dir - , testProperty "diffPositions is add inverse" $ \pos₁ pos₂ -> + , testProperty "diffPositions is add inverse" $ \(pos₁ :: Position) pos₂ -> diffPositions pos₁ pos₂ == addPositions pos₁ (invert pos₂) , testGroup "isUnit" [ testProperty "double direction is never unit" $ \dir -> not . isUnit $ move dir (asPosition dir) , testCase "examples" $ do - isUnit (Position 1 1) @? "not . isUnit $ Position 1 1" - isUnit (Position 0 (-1)) @? "not . isUnit $ Position 0 (-1)" - (not . isUnit) (Position 1 13) @? "isUnit $ Position 1 13" + isUnit (Position @Int 1 1) @? "not . isUnit $ Position 1 1" + isUnit (Position @Int 0 (-1)) @? "not . isUnit $ Position 0 (-1)" + (not . isUnit) (Position @Int 1 13) @? "isUnit $ Position 1 13" ] ] , testGroup "Direction" -- cgit 1.4.1