clock-extras-0.1.0.0: test/Spec.hs

import Test.Hspec
import Control.Concurrent 
import System.Clock.TimeIt

main :: IO ()
main = hspec $ describe "timeIt" $ do
  it " is the same as threadDelay" $ do
    ((), time) <- elapsedTime $ threadDelay 100000 
    abs (time - 0.1) < 0.009 `shouldBe` True