diff options
| author | Camil Staps | 2017-11-20 14:07:55 +0100 |
|---|---|---|
| committer | Camil Staps | 2017-11-20 14:07:55 +0100 |
| commit | 048d222a7edf378e1a4eb26ccf0a7a7ebe9547f2 (patch) | |
| tree | 2d44bc21d9215edcff93391dc2b26963f61378a5 /test/Test.hs | |
| parent | Merge branch '5-quickcheck-property-there-can-never-be-a-pawn-on-rank-a-and-h... (diff) | |
Hotfix for prop_no_pawns_on_1_and_8
Diffstat (limited to 'test/Test.hs')
| -rw-r--r-- | test/Test.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Test.hs b/test/Test.hs index bfe9f55..f8a8729 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -90,7 +90,7 @@ prop_only_2_kings = atAnyState (\b -> length (pieceCoords (Just White) (Just King) b) == 1) prop_no_pawns_on_1_and_8 :: PGN -> Bool -prop_no_pawns_on_1_and_8 = atAnyState $ all notOnAorH . pieceCoords Nothing (Just Pawn) +prop_no_pawns_on_1_and_8 = atAnyState $ all notOn1or8 . pieceCoords Nothing (Just Pawn) where notOn1or8 :: ((Int,Int),a) -> Bool notOn1or8 ((_,r),_) = r /= 0 && r /= 7 |