Add a test case for issue #334

2015-10-30 19:16:59 +01:00
parent 1c22b8d429
commit 2cfe3651b4
2 changed files with 8 additions and 2 deletions
@@ -184,4 +184,6 @@ createJsonData = do
      [H.stmt|
        insert into "1".json (data) values (?)
      |]
-      (J.object [("foo", J.object [("bar", J.String "baz")])])
+      (J.object [("id", J.Number 1)
+                ,("foo", J.object [("bar", J.String "baz")])
+                ])