diff options
| author | Erin van der Veen | 2017-11-27 13:20:41 +0100 |
|---|---|---|
| committer | Erin van der Veen | 2017-11-27 13:20:41 +0100 |
| commit | 7e8b348d26cc1cf6366d7efabe8141a833f1dad5 (patch) | |
| tree | 4ec4a0b3856b9d985efde81e6c974ec18b54941e /test/ArbitraryMove.hs | |
| parent | Fix merge problem (diff) | |
| parent | Cleanup (diff) | |
Merge branch '9-test-on-legal-games' into 'master'
Add Markov chain test case generator
Closes #9
See merge request eveen/Testing-Techniques!11
Diffstat (limited to 'test/ArbitraryMove.hs')
| -rw-r--r-- | test/ArbitraryMove.hs | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/test/ArbitraryMove.hs b/test/ArbitraryMove.hs index e786a68..4c6fb48 100644 --- a/test/ArbitraryMove.hs +++ b/test/ArbitraryMove.hs @@ -19,15 +19,7 @@ instance Arbitrary Board where arbitrary = return defaultBoard type Move = String arbitraryMove :: Gen Move -arbitraryMove = frequency - [ (2, probableArbitraryMove) - --, (1, invalidMove) - ] - where - invalidMove :: Gen Move - invalidMove = oneof - [ liftM2 (\r c -> [r,c]) (choose ('i', 'z')) (elements "09") - ] +arbitraryMove = probableArbitraryMove instance Arbitrary PGN where @@ -69,7 +61,7 @@ instance Arbitrary PGN - on a set of PGN games, e.g. from http://theweekinchess.com/twic. -} -probableArbitraryMove :: Gen String +probableArbitraryMove :: Gen Move probableArbitraryMove = frequency $ map (return <$>) [ (8, "a1=B") , (2, "a1=B+") |