28 lines
806 B
Haskell
28 lines
806 B
Haskell
|
module TestImport
|
||
|
|
( module TestImport
|
||
|
|
, module X
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Application (makeFoundation)
|
||
|
|
import ClassyPrelude as X
|
||
|
|
import Database.Persist as X hiding (get)
|
||
|
|
import Database.Persist.Sql (SqlPersistM, runSqlPersistMPool)
|
||
|
|
import Foundation as X
|
||
|
|
import Model as X
|
||
|
|
import Test.Hspec as X
|
||
|
|
import Yesod.Default.Config2 (ignoreEnv, loadAppSettings)
|
||
|
|
import Yesod.Test as X
|
||
|
|
|
||
|
|
runDB :: SqlPersistM a -> YesodExample App a
|
||
|
|
runDB query = do
|
||
|
|
pool <- fmap appConnPool getTestYesod
|
||
|
|
liftIO $ runSqlPersistMPool query pool
|
||
|
|
|
||
|
|
withApp :: SpecWith App -> Spec
|
||
|
|
withApp = before $ do
|
||
|
|
settings <- loadAppSettings
|
||
|
|
["config/test-settings.yml", "config/settings.yml"]
|
||
|
|
[]
|
||
|
|
ignoreEnv
|
||
|
|
makeFoundation settings
|