module EmptyEntityTest (specs) where
import Database.Persist.Sql
import Database.Persist.TH
import Control.Monad.Trans.Resource (runResourceT)
import Init
#ifdef WITH_NOSQL
mkPersist persistSettings [persistUpperCase|
#else
share [mkPersist sqlSettings, mkMigrate "dataTypeMigrate"] [persistLowerCase|
#endif
EmptyEntity
|]
#ifdef WITH_NOSQL
cleanDB :: MonadIO m => ReaderT Context m ()
cleanDB = deleteWhere ([] :: [Filter EmptyEntity])
#endif
specs :: Spec
specs = describe "empty entity" $
it "inserts" $ (id :: IO () -> IO ()) $ runResourceT $ runConn $ do
#ifndef WITH_NOSQL
_ <- runMigrationSilent dataTypeMigrate
_ <- runMigrationSilent dataTypeMigrate
#endif
x <- insert EmptyEntity
Just EmptyEntity <- get x
return ()