Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Bring out the Generic Maybe bug in tests

  • Loading branch information...
commit 3dc1c44762f206a739320cab9808abbfef44d5ae 1 parent cc5526f
Nikita Volkov authored December 21, 2012

Showing 1 changed file with 2 additions and 0 deletions. Show diff stats Hide diff stats

  1. 2  tests/Properties.hs
2  tests/Properties.hs
@@ -143,12 +143,14 @@ tests = [
143 143
     , testProperty "Double" $ genericFrom (1::Double)
144 144
     , testProperty "Int" $ genericFrom (1::Int)
145 145
     , testProperty "Foo" $ genericFrom (undefined::Foo)
  146
+    , testProperty "Maybe" $ genericFrom (Just 1 :: Maybe Int)
146 147
     ],
147 148
   testGroup "genericTo" [
148 149
       testProperty "Bool" $ genericTo True
149 150
     , testProperty "Double" $ genericTo (1::Double)
150 151
     , testProperty "Int" $ genericTo (1::Int)
151 152
     , testProperty "Foo" $ genericTo (undefined::Foo)
  153
+    , testProperty "Maybe" $ genericTo (Just 1 :: Maybe Int)
152 154
     ],
153 155
   testGroup "roundTrip" [
154 156
       testProperty "Bool" $ roundTripEq True

0 notes on commit 3dc1c44

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