AutoUpdateSpec.hs

module Control.AutoUpdateSpec (spec) where

-- import Control.AutoUpdate
-- import Control.Concurrent (threadDelay)
-- import Control.Monad (replicateM_, forM_)
-- import Data.IORef
import Test.Hspec

-- import Test.Hspec.QuickCheck

spec :: Spec
spec = return ()

-- do
--   prop "incrementer" $ \st' -> do
--       let st = abs st' `mod` 10000
--       ref <- newIORef 0
--       next <- mkAutoUpdate defaultUpdateSettings
--           { updateAction = atomicModifyIORef ref $ \i ->
--               let i' = succ i in i' `seq` (i', i')
--           , updateSpawnThreshold = st
--           , updateFreq = 10000
--           }

--       forM_ [1..st + 1] $ \i -> do
--           j <- next
--           j `shouldBe` i

--       replicateM_ 50 $ do
--           i <- next
--           i `shouldBe` st + 2

--       threadDelay 60000
--       last1 <- readIORef ref
--       threadDelay 20000
--       last2 <- readIORef ref
--       last2 `shouldBe` last1