Revert "db error busy treatments (#796)" (#808)

This reverts commit 1afcefa5e7.
This commit is contained in:
Evgeny Poberezkin
2023-08-09 12:24:03 +01:00
committed by GitHub
parent fdbfe0e8d1
commit 82aec2cd8f
5 changed files with 87 additions and 109 deletions

View File

@@ -50,13 +50,13 @@ testSchemaMigrations = do
putStrLn $ "down migration " <> name m
let downMigr = fromJust $ toDownMigration m
schema <- getSchema testDB testSchema
Migrations.run st $ MTRUp [m]
withConnection st (`Migrations.run` MTRUp [m])
schema' <- getSchema testDB testSchema
schema' `shouldNotBe` schema
Migrations.run st $ MTRDown [downMigr]
withConnection st (`Migrations.run` MTRDown [downMigr])
schema'' <- getSchema testDB testSchema
schema'' `shouldBe` schema
Migrations.run st $ MTRUp [m]
withConnection st (`Migrations.run` MTRUp [m])
schema''' <- getSchema testDB testSchema
schema''' `shouldBe` schema'