Skip to content

Commit

Permalink
Drop some coverage conditions from tests (#89)
Browse files Browse the repository at this point in the history
These are just making tests flaky. For now, they are removed. In the
future we should make these tests more likely to have full coverage.

Fixes #86.
  • Loading branch information
ocharles committed Jun 29, 2021
1 parent 18a414a commit 6950d69
Showing 1 changed file with 0 additions and 6 deletions.
6 changes: 0 additions & 6 deletions tests/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -473,9 +473,6 @@ testDBEq getTestDatabase = testGroup "DBEq instances"
[res] <- liftIO $ Rel8.select connection $ pure $ Rel8.litExpr x Rel8.==. Rel8.litExpr y
res === (x == y)

cover 1 "Equal" $ x == y
cover 1 "Not Equal" $ x /= y


testTableEquality :: IO TmpPostgres.DB -> TestTree
testTableEquality = databasePropertyTest "TestTable equality" \transaction -> do
Expand All @@ -487,9 +484,6 @@ testTableEquality = databasePropertyTest "TestTable equality" \transaction -> do

eq === (x == y)

cover 1 "Equal" $ x == y
cover 1 "Not Equal" $ x /= y


testFromString :: IO TmpPostgres.DB -> TestTree
testFromString = databasePropertyTest "FromString" \transaction -> do
Expand Down

0 comments on commit 6950d69

Please sign in to comment.