24 lines
581 B
Haskell
24 lines
581 B
Haskell
module SpecHelper where
|
|
|
|
import Network.Wai
|
|
|
|
import Database.HDBC
|
|
import Database.HDBC.PostgreSQL
|
|
|
|
import Dbapi (AppConfig(..))
|
|
|
|
cfg :: AppConfig
|
|
cfg = AppConfig "postgres://postgres:@localhost:5432/dbapi_test" 9000
|
|
|
|
loadFixture :: String -> IO Connection
|
|
loadFixture name = do
|
|
conn <- connectPostgreSQL $ configDbUri cfg
|
|
sql <- readFile $ "test/fixtures/" ++ name ++ ".sql"
|
|
runRaw conn "drop schema if exists \"1\" cascade"
|
|
runRaw conn sql
|
|
commit conn
|
|
return conn
|
|
|
|
prepareAppDb :: String -> Application -> IO Application
|
|
prepareAppDb = (. return) . (>>) . loadFixture
|