13 lines
305 B
Haskell
13 lines
305 B
Haskell
module Model.MigrationSpec where
|
|
|
|
import TestImport
|
|
|
|
import Model.Migration
|
|
|
|
|
|
spec :: Spec
|
|
spec = withApp $ -- `withApp` does migration, if needed
|
|
describe "Migration" $
|
|
it "is idempotent" $
|
|
(`shouldBe` False) <$> runDB requiresMigration -- Migration shouldn't be needed after `withApp` above
|