about summary refs log tree commit diff
path: root/test/Xanthous
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-10-12T19·17-0400
committerGriffin Smith <root@gws.fyi>2019-10-12T19·17-0400
commit8d36fb4af2f938d96c8d6c22ccc575d0a98d0d38 (patch)
treea01ca0a812d4272818784ee0c22469b18fcaf6c4 /test/Xanthous
parent0837df2a727df17b24cb2e761df5d7dc43e673fc (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.hs8
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