git.iko.soy/typeable/postgresql-simple
on master help sign in
OK let drop nullary
f9906e8Alexey Khudyakov
test/Main.hs−11
compare with master
unifiedsplit
@@ -46,7 +46,6 @@ tests =
46 , TestLabel "Values" . testValues
46 , TestLabel "Values" . testValues
47 , TestLabel "Copy" . testCopy
47 , TestLabel "Copy" . testCopy
48 , TestLabel "Double" . testDouble
48 , TestLabel "Double" . testDouble
49− , TestLabel "0-ary generic" . testGeneric0
50 , TestLabel "1-ary generic" . testGeneric1
49 , TestLabel "1-ary generic" . testGeneric1
51 , TestLabel "2-ary generic" . testGeneric2
50 , TestLabel "2-ary generic" . testGeneric2
52 , TestLabel "3-ary generic" . testGeneric3
51 , TestLabel "3-ary generic" . testGeneric3
@@ -323,11 +322,6 @@ testDouble TestEnv{..} = TestCase $ do
323 [Only (x :: Double)] <- query_ conn "SELECT '-Infinity'::float8"
322 [Only (x :: Double)] <- query_ conn "SELECT '-Infinity'::float8"
324 x @?= (-1 / 0)
323 x @?= (-1 / 0)
325
324
326−testGeneric0 :: TestEnv -> Test
327−testGeneric0 TestEnv{..} = TestCase $ do
328− let x0 = Gen0
329− r <- query conn "SELECT" x0
330− r @?= [x0]
331
325
332testGeneric1 :: TestEnv -> Test
326testGeneric1 :: TestEnv -> Test
333testGeneric1 TestEnv{..} = TestCase $ do
327testGeneric1 TestEnv{..} = TestCase $ do
@@ -347,11 +341,6 @@ testGeneric3 TestEnv{..} = TestCase $ do
347 r <- query conn "SELECT ?::int, ?::text, ?::bool" x0
341 r <- query conn "SELECT ?::int, ?::text, ?::bool" x0
348 r @?= [x0]
342 r @?= [x0]
349
343
350−data Gen0 = Gen0
351− deriving (Show,Eq,Generic)
352−instance FromRow Gen0
353−instance ToRow Gen0
354−
355data Gen1 = Gen1 Int
344data Gen1 = Gen1 Int
356 deriving (Show,Eq,Generic)
345 deriving (Show,Eq,Generic)
357instance FromRow Gen1
346instance FromRow Gen1