timers-tick 0.1.0.1 → 0.1.0.2
raw patch · 3 files changed
+14/−8 lines, 3 filesdep ~hspecPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: hspec
API changes (from Hackage documentation)
Files
- changes.txt +7/−1
- test/Control/Timer/TickSpec.hs +5/−5
- timers-tick.cabal +2/−2
changes.txt view
@@ -1,3 +1,9 @@+0.1.0.2+-------++- Fixed tests.+- Released on Wed 14 Mar 2018 14:47:40 CET.+ 0.1.0.1 ------- @@ -8,4 +14,4 @@ ------- - Added basic animation/timer functionality.-- Released on: Wed 14 Mar 2018 13:36:06 CET.+- Released on Wed 14 Mar 2018 13:36:06 CET.
test/Control/Timer/TickSpec.hs view
@@ -12,9 +12,9 @@ spec :: Spec spec = do - describe "creaTimedResource" $ do+ describe "creaTimedRes" $ do it "does not allow creation of empty timed resources" $- E.evaluate (creaTimedResource AlwaysLoop [])+ E.evaluate (creaTimedRes AlwaysLoop []) `shouldThrow` anyException describe "tick" $ do@@ -34,8 +34,8 @@ isExpired (ticks 80 t) `shouldBe` True describe "loops" $ do- let t = creaTimedResource (Times 2) [(1,())]- let ta = creaTimedResource AlwaysLoop [(1,())]+ let t = creaTimedRes (Times 2) [(1,())]+ let ta = creaTimedRes AlwaysLoop [(1,())] it "loops appropriately" $ isExpired (ticks 2 t) `shouldBe` True it "loops appropriately (forever)" $@@ -51,7 +51,7 @@ isExpired (ticks 100 st) `shouldBe` not (isLive (ticks 100 st)) describe "fetch" $ do- let ta = creaTimedResource (Times 1) [(1,'a'), (2, 'b'), (1, 'c')]+ let ta = creaTimedRes (Times 1) [(1,'a'), (2, 'b'), (1, 'c')] it "gets the underlying resoure" $ fetch (ticks 3 ta) `shouldBe` 'c'
timers-tick.cabal view
@@ -1,5 +1,5 @@ name: timers-tick-version: 0.1.0.1+version: 0.1.0.2 synopsis: tick based timers description: Tick-based timers and utilities, for games and discrete-time programs.@@ -36,7 +36,7 @@ HS-Source-Dirs: test, src main-is: Tests.hs build-depends: base == 4.*- , hspec == 2.4.*+ , hspec == 2.5.* other-modules: Control.Timer.Tick, Control.Timer.TickSpec type: exitcode-stdio-1.0