persistent-migration-0.0.1: test/Unit.hs

import Database.Persist.Migration.Internal (MigrateBackend)
import qualified Database.Persist.Migration.Postgres as Postgres
import Test.Tasty
import Test.Unit.Migration (testMigrations)
import Test.Unit.Property (testProperties)
import Test.Utils.Goldens (goldenDir)

unitDir :: String -> FilePath
unitDir = goldenDir "unit"

main :: IO ()
main = defaultMain $ testGroup "persistent-migration-goldens"
  [ testBackend "postgresql" Postgres.backend
  , testProperties
  ]

-- | Build a test suite running unit tests for the given MigrateBackend.
testBackend :: String -> MigrateBackend -> TestTree
testBackend label backend = testGroup label
  [ testMigrations (unitDir label) backend
  ]