Skip to content
Browse files

Bring out the Generic Maybe bug in tests

  • Loading branch information...
1 parent cc5526f commit 3dc1c44762f206a739320cab9808abbfef44d5ae @nikita-volkov committed
Showing with 2 additions and 0 deletions.
  1. +2 −0 tests/Properties.hs
View
2 tests/Properties.hs
@@ -143,12 +143,14 @@ tests = [
, testProperty "Double" $ genericFrom (1::Double)
, testProperty "Int" $ genericFrom (1::Int)
, testProperty "Foo" $ genericFrom (undefined::Foo)
+ , testProperty "Maybe" $ genericFrom (Just 1 :: Maybe Int)
],
testGroup "genericTo" [
testProperty "Bool" $ genericTo True
, testProperty "Double" $ genericTo (1::Double)
, testProperty "Int" $ genericTo (1::Int)
, testProperty "Foo" $ genericTo (undefined::Foo)
+ , testProperty "Maybe" $ genericTo (Just 1 :: Maybe Int)
],
testGroup "roundTrip" [
testProperty "Bool" $ roundTripEq True

0 comments on commit 3dc1c44

Please sign in to comment.
Something went wrong with that request. Please try again.