diff options
| author | Camil Staps | 2017-11-22 17:05:32 +0100 |
|---|---|---|
| committer | Camil Staps | 2017-11-22 17:05:32 +0100 |
| commit | 1faf438c17cf547093f627763548885387c930b3 (patch) | |
| tree | b116fa1123c960d7b4ac4895c5414bfef77d8261 | |
| parent | Add reports on triviality of test cases (diff) | |
Pluralise triviality reports
| -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 dfa3102..e112484 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -26,7 +26,7 @@ atAnyState = atAnyTwoStates . const atAnyTwoStates :: (Board -> Board -> Bool) -> PGN -> Property atAnyTwoStates ok pgn = let moveList = seqList [moveSAN m | m <- moves pgn] $ Right defaultBoard in - classify True (show (length moveList - 1) ++ " legal move(s)") $ + classify True (let l = length moveList - 1 in show l ++ " legal move" ++ if (l == 1) then "" else "s") $ and [ok b1 b2 | Right b1 <- moveList | Right b2 <- tail moveList] where seqList :: [r -> Either e r] -> Either e r -> [Either e r] |