[test] small reorganization so tests are similar to sqlite creation

84ee557d · Przemyslaw Kaminski · 3ddef2f4 · 84ee557d
Verified Commit 84ee557d authored Feb 25, 2025 by Przemyslaw Kaminski
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Export.hs test/Test/API/Export.hs +2 -2

No files found.
--- a/test/Test/API/Export.hs
+++ b/test/Test/API/Export.hs
@@ -50,7 +50,7 @@ tests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do
                  -- [S.Only listLen] <- S.query conn "SELECT COUNT(*) FROM lists WHERE id = ?" (S.Only $ unNodeId listId)
                  -- listLen `shouldBe` (1 :: Int)

-                  [S.Only docsLen] <- S.query_ conn "SELECT COUNT(*) FROM documents"
-                  docsLen `shouldBe` (2 :: Int)
                  [S.Only ngramsLen] <- S.query_ conn "SELECT COUNT(*) FROM ngrams"
                  ngramsLen `shouldBe` (0 :: Int)
+                  [S.Only docsLen] <- S.query_ conn "SELECT COUNT(*) FROM documents"
+                  docsLen `shouldBe` (2 :: Int)