diff options
| -rw-r--r-- | test/test_parser.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/test_parser.hs b/test/test_parser.hs index de9883e..397248f 100644 --- a/test/test_parser.hs +++ b/test/test_parser.hs @@ -61,6 +61,8 @@ instance Arbitrary PGN sensibleString = listOf $ choose ('a', 'z') + shrink pgn = [pgn {moves=ms} | ms <- shrink $ moves pgn] + main = quickCheck (withMaxSuccess 10000 checkPGN) where checkPGN :: PGN -> Bool |