sydtest-persistent-postgresql-0.3.0.0: test/Test/Syd/Persistent/PostgresqlSpec.hs

module Test.Syd.Persistent.PostgresqlSpec (spec) where

import Database.Persist
import Database.Persist.Sql
import Test.Syd
import Test.Syd.Persistent.Example
import Test.Syd.Persistent.Postgresql

spec :: Spec
spec = do
  postgresqlMigrationSucceedsSpec "test_resources/migration.sql" migrateExample
  describe "persistPostgresqlSpec" $
    persistPostgresqlSpec migrateExample $ do
      it "can write and read this example person" $ \pool ->
        runPostgresqlTest pool $ do
          let p = Person {personName = "John Doe", personAge = Just 21}
          i <- insert p
          mp <- get i
          liftIO $ mp `shouldBe` Just p
      describe "shared data" $ do
        it "can write this example person" $ \pool ->
          runPostgresqlTest pool $ do
            let p = Person {personName = "John Doe", personAge = Just 21}
            insert_ p
        it "cannot read anything that has not been written yet" $ \pool ->
          runPostgresqlTest pool $ do
            mp <- get (toSqlKey 0)
            liftIO $ mp `shouldBe` (Nothing :: Maybe Person)