hspec-core-2.5.1: test/Test/Hspec/Core/TimerSpec.hs

module Test.Hspec.Core.TimerSpec (spec) where

import           Helper

-- import           Test.Hspec.Core.Timer

spec :: Spec
spec = do
  describe "timer action provided by withTimer" $ do
    return () -- this test is fragile, see e.g. https://github.com/hspec/hspec/issues/352

{-
    let
      dt = 0.01
      wait = sleep (dt * 1.1)

    it "returns False" $ do
      withTimer dt $ \timer -> do
        timer `shouldReturn` False

    context "after specified time" $ do
      it "returns True" $ do
        withTimer dt $ \timer -> do
          wait
          timer `shouldReturn` True
          timer `shouldReturn` False
          wait
          wait
          timer `shouldReturn` True
          timer `shouldReturn` False
          -}