Make auto-update tests more resilient
commit03d97bb9f2d90f09ca940d34d8d27686dcc1eb41
authorMichael Snoyman <michael@snoyman.com>
dateSun 24 Aug 2014, 17:55 (12 years ago)
parent89abfd8
auto-update/test/Control/AutoUpdateSpec.hs+1−1
@@ -10,7 +10,7 @@ import Control.AutoUpdate
1010spec :: Spec
1111spec = do
1212 prop "incrementer" $ \st' -> do
13− let st = abs st'
13+ let st = abs st' `mod` 10000
1414 ref <- newIORef 0
1515 next <- mkAutoUpdate defaultUpdateSettings
1616 { updateAction = atomicModifyIORef ref $ \i ->