Commits

Bryan O'Sullivan  committed 2e86bd1

Add a test case for gh-72

  • Participants
  • Parent commits 6b58201

Comments (0)

Files changed (1)

File tests/Properties.hs

                 Error _ -> False
                 Success x' -> x == x'
 
+regress_gh72 :: [(String, Maybe String)] -> Bool
+regress_gh72 ys = G.decode (G.encode m) == Just m
+    where m = Map.fromList ys
 
 data Foo = Foo {
       fooInt :: Int
 
 tests :: [Test]
 tests = [
+  testGroup "regression" [
+      testProperty "gh-72" regress_gh72
+  ],
   testGroup "encode" [
       testProperty "encodeDouble" encodeDouble
     , testProperty "encodeInteger" encodeInteger