module Test.Hspec.Contrib.RetrySpec (spec) where

import           Helper

import           Test.Hspec.Contrib.Retry

spec :: Spec
spec = do
  describe "retryWith" $ do
    ref <- runIO $ newIORef (0::Int)
    it "retry 11 times, then check the value" $ do
      let incr :: IO Int
          incr = do
            val <- readIORef ref
            writeIORef ref (val+1)
            return val
      retryWith 11 $ do
        incr `shouldReturn` (10::Int)