diff options
| author | Griffin Smith <root@gws.fyi> | 2019-10-12T19·17-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-10-12T19·17-0400 |
| commit | 8d36fb4af2f938d96c8d6c22ccc575d0a98d0d38 (patch) | |
| tree | a01ca0a812d4272818784ee0c22469b18fcaf6c4 /test/Xanthous | |
| parent | 0837df2a727df17b24cb2e761df5d7dc43e673fc (diff) | |
Make the positionedCharacter test run more quickly
Dial down the quickcheck size and num tests on this
Diffstat (limited to 'test/Xanthous')
| -rw-r--r-- | test/Xanthous/GameSpec.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/test/Xanthous/GameSpec.hs b/test/Xanthous/GameSpec.hs index af98c7f6ccd2..9f30faca0c98 100644 --- a/test/Xanthous/GameSpec.hs +++ b/test/Xanthous/GameSpec.hs @@ -11,7 +11,10 @@ main :: IO () main = defaultMain test test :: TestTree -test = testGroup "Xanthous.Game" +test + = localOption (QuickCheckTests 10) + . localOption (QuickCheckMaxSize 10) + $ testGroup "Xanthous.Game" [ testGroup "positionedCharacter" [ testProperty "lens laws" $ isLens positionedCharacter , testCase "updates the position of the character" $ do @@ -30,8 +33,7 @@ test = testGroup "Xanthous.Game" , testGroup "character" [ testProperty "lens laws" $ isLens character ] - , localOption (QuickCheckTests 10) - $ testGroup "MessageHistory" + , testGroup "MessageHistory" [ testGroup "MonoComonad laws" [ testProperty "oextend oextract ≡ id" $ \(mh :: MessageHistory) -> oextend oextract mh === mh |