diff options
| author | Griffin Smith <root@gws.fyi> | 2019-10-06T17·13-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-10-06T17·13-0400 |
| commit | 6ab7cdfdc92dc337ec483f3a70ab38560b5aeb63 (patch) | |
| tree | ae43c1234f3e5dce49afd4784b7616d2a5ad4130 /test/Xanthous/DataSpec.hs | |
| parent | a57e36dca81274dea015c9fbdac680b44ef5576e (diff) | |
Only allow adjacent gormlaks to attack
Previously the isUnit function was falsely returning `True` for positions that were one tile off in *either* direction from the character, when it should've been *both*. Oops.
Diffstat (limited to 'test/Xanthous/DataSpec.hs')
| -rw-r--r-- | test/Xanthous/DataSpec.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/test/Xanthous/DataSpec.hs b/test/Xanthous/DataSpec.hs index 6b94e6a058..26a862baa6 100644 --- a/test/Xanthous/DataSpec.hs +++ b/test/Xanthous/DataSpec.hs @@ -26,7 +26,14 @@ test = testGroup "Xanthous.Data" directionOf pos (move dir pos) == dir , testProperty "diffPositions is add inverse" $ \pos₁ 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" + ] ] , testGroup "Direction" [ testProperty "opposite is involutive" $ \(dir :: Direction) -> |