Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Bring out the Generic Maybe bug in tests

  • Loading branch information...
commit 3dc1c44762f206a739320cab9808abbfef44d5ae 1 parent cc5526f
@nikita-volkov authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.