git.iko.soy/typeable/postgresql-simple
on master help sign in
Add a test for empty hstores
eea3778Leon P Smith
test/Main.hs+1
compare with master
unifiedsplit
@@ -108,6 +108,7 @@ testArray TestEnv{..} = TestCase $ do
108
108
109testHStore :: TestEnv -> Test
109testHStore :: TestEnv -> Test
110testHStore TestEnv{..} = TestCase $ do
110testHStore TestEnv{..} = TestCase $ do
111+ roundTrip []
111 roundTrip [("foo","bar"),("bar","baz"),("baz","hello")]
112 roundTrip [("foo","bar"),("bar","baz"),("baz","hello")]
112 roundTrip [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")]
113 roundTrip [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")]
113 where
114 where