circuithub/rel8
1
1
Fork 0
mirror of https://github.com/circuithub/rel8.git synced 2024-09-11 16:05:41 +03:00
Code Issues Projects Releases Wiki Activity

Drop some coverage conditions from tests (#89)

Browse Source 
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.
This commit is contained in:
Ollie Charles 2021-06-29 17:55:27 +04:00 committed by GitHub
parent 18a414ae1d
commit 6950d691ba
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/Main.hs
View File

@ -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
@ -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