diff --git a/CHANGELOG b/CHANGELOG --- a/CHANGELOG +++ b/CHANGELOG @@ -1,3 +1,7 @@ +2023-10-07 Ivan Perez + * Version bump (0.14.5) (#278). + * Move test for consistency with module tested (#267). + 2023-08-07 Ivan Perez * Version bump (0.14.4) (#274). * Add version bounds to dependencies (#273). diff --git a/tests/Test/FRP/Yampa/Event.hs b/tests/Test/FRP/Yampa/Event.hs --- a/tests/Test/FRP/Yampa/Event.hs +++ b/tests/Test/FRP/Yampa/Event.hs @@ -38,7 +38,6 @@ , testApplicative , testMonad , testAlternative - , testProperty "maybeToEvent" testMaybeToEvent , testEvent , testProperty "fromEvent" testFromEvent , testProperty "isEvent" testIsEvent @@ -58,6 +57,7 @@ , testProperty "filterE" testFilterE , testProperty "mapFilterE" testMapFilterE , testProperty "gate" testGate + , testProperty "maybeToEvent" testMaybeToEvent ] -- * The Event type @@ -227,14 +227,6 @@ testAlternativeEmptyIdRight = forAll randomEvent $ \e -> (e <|> noEvent ) == e - --- * Internal utilities for event construction - --- | maybeToEvent -testMaybeToEvent :: Property -testMaybeToEvent = - forAll randomMaybe $ \m -> - event Nothing Just (maybeToEvent m) == m -- * Utility functions similar to those available for Maybe -- | event @@ -437,6 +429,14 @@ forAll randomEvent $ \e -> forAll randomBool $ \b -> gate e b == filterE (const b) e + +-- * Utilities for easy event construction + +-- | maybeToEvent +testMaybeToEvent :: Property +testMaybeToEvent = + forAll randomMaybe $ \m -> + event Nothing Just (maybeToEvent m) == m -- * Arbitrary value generation diff --git a/yampa-test.cabal b/yampa-test.cabal --- a/yampa-test.cabal +++ b/yampa-test.cabal @@ -31,7 +31,7 @@ build-type: Simple name: yampa-test -version: 0.14.4 +version: 0.14.5 author: Ivan Perez maintainer: ivan.perez@keera.co.uk homepage: http://github.com/ivanperez-keera/Yampa @@ -84,7 +84,7 @@ base >= 4 && < 5 , normaldistribution >= 1.1.0.1 && < 1.2 , QuickCheck >= 2.12 && < 2.15 - , Yampa >= 0.14.4 && < 0.15 + , Yampa >= 0.14.5 && < 0.15 default-language: Haskell2010