git.iko.soy/typeable/wai
on master help sign in
Make auto-update tests more resilient
03d97bbMichael Snoyman
auto-update/test/Control/AutoUpdateSpec.hs+1−1
compare with master
unifiedsplit
@@ -10,7 +10,7 @@ import Control.AutoUpdate
10spec :: Spec
10spec :: Spec
11spec = do
11spec = do
12 prop "incrementer" $ \st' -> do
12 prop "incrementer" $ \st' -> do
13− let st = abs st'
13+ let st = abs st' `mod` 10000
14 ref <- newIORef 0
14 ref <- newIORef 0
15 next <- mkAutoUpdate defaultUpdateSettings
15 next <- mkAutoUpdate defaultUpdateSettings
16 { updateAction = atomicModifyIORef ref $ \i ->
16 { updateAction = atomicModifyIORef ref $ \i ->