ac84f6b · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Tweak testsuite for compatibility with aeson-0.7

commitac84f6b1813ff10ff57b327a72ef33bb3a86e944 authorLeon P Smith <leon@melding-monads.com> dateSun 12 Jan 2014, 14:03 (13 years ago) parent3e6e624

1 file changed+3−3

unifiedsplit

test/Main.hs+3−3

@@ -171,9 +171,9 @@ testHStore TestEnv{..} = TestCase $ do

171171

172172testJSON :: TestEnv -> Test

173173testJSON TestEnv{..} = TestCase $ do

174− roundTrip (Map.fromList [] :: Map ByteString ByteString)

175− roundTrip (Map.fromList [("foo","bar"),("bar","baz"),("baz","hello")] :: Map ByteString ByteString )

176− roundTrip (Map.fromList [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")] :: Map ByteString ByteString)

174+ roundTrip (Map.fromList [] :: Map Text Text)

175+ roundTrip (Map.fromList [("foo","bar"),("bar","baz"),("baz","hello")] :: Map Text Text)

176+ roundTrip (Map.fromList [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")] :: Map Text Text)

177177 roundTrip (V.fromList [1,2,3,4,5::Int])

178178 where

179179 roundTrip :: ToJSON a => a -> Assertion