git.iko.soy/rel8
on master help sign in
Drop some coverage conditions from tests (#89)
6950d69Ollie Charles
tests/Main.hs−6
compare with master
unifiedsplit
@@ -473,9 +473,6 @@ testDBEq getTestDatabase = testGroup "DBEq instances"
473 [res] <- liftIO $ Rel8.select connection $ pure $ Rel8.litExpr x Rel8.==. Rel8.litExpr y
473 [res] <- liftIO $ Rel8.select connection $ pure $ Rel8.litExpr x Rel8.==. Rel8.litExpr y
474 res === (x == y)
474 res === (x == y)
475
475
476− cover 1 "Equal" $ x == y
477− cover 1 "Not Equal" $ x /= y
478−
479
476
480testTableEquality :: IO TmpPostgres.DB -> TestTree
477testTableEquality :: IO TmpPostgres.DB -> TestTree
481testTableEquality = databasePropertyTest "TestTable equality" \transaction -> do
478testTableEquality = databasePropertyTest "TestTable equality" \transaction -> do
@@ -487,9 +484,6 @@ testTableEquality = databasePropertyTest "TestTable equality" \transaction -> do
487
484
488 eq === (x == y)
485 eq === (x == y)
489
486
490− cover 1 "Equal" $ x == y
491− cover 1 "Not Equal" $ x /= y
492−
493
487
494testFromString :: IO TmpPostgres.DB -> TestTree
488testFromString :: IO TmpPostgres.DB -> TestTree
495testFromString = databasePropertyTest "FromString" \transaction -> do
489testFromString = databasePropertyTest "FromString" \transaction -> do