Joe NelsonandGitHub
74e68408e6
* Bring packages up to date * New LTS includes deps now Use stack to select most versions * Alphabetize packages * Strip down packages Switch tests to protolude * Appease cabal check with base version constraint
78 lines
2.6 KiB
Haskell
78 lines
2.6 KiB
Haskell
module Main where
|
|
|
|
import Test.Hspec
|
|
import SpecHelper
|
|
|
|
import qualified Hasql.Pool as P
|
|
|
|
import PostgREST.DbStructure (getDbStructure)
|
|
import PostgREST.App (postgrest)
|
|
import Control.AutoUpdate
|
|
import Data.Function (id)
|
|
import Data.IORef
|
|
import Data.Time.Clock.POSIX (getPOSIXTime)
|
|
|
|
import qualified Feature.AuthSpec
|
|
import qualified Feature.ConcurrentSpec
|
|
import qualified Feature.CorsSpec
|
|
import qualified Feature.DeleteSpec
|
|
import qualified Feature.InsertSpec
|
|
import qualified Feature.NoJwtSpec
|
|
import qualified Feature.QueryLimitedSpec
|
|
import qualified Feature.QuerySpec
|
|
import qualified Feature.RangeSpec
|
|
import qualified Feature.StructureSpec
|
|
import qualified Feature.UnicodeSpec
|
|
import qualified Feature.ProxySpec
|
|
|
|
import Protolude
|
|
|
|
main :: IO ()
|
|
main = do
|
|
setupDb
|
|
|
|
pool <- P.acquire (3, 10, toS testDbConn)
|
|
-- ask for the OS time at most once per second
|
|
getTime <- mkAutoUpdate
|
|
defaultUpdateSettings { updateAction = getPOSIXTime }
|
|
|
|
|
|
result <- P.use pool $ getDbStructure "test"
|
|
refDbStructure <- newIORef $ either (panic.show) id result
|
|
let withApp = return $ postgrest testCfg refDbStructure pool getTime
|
|
ltdApp = return $ postgrest testLtdRowsCfg refDbStructure pool getTime
|
|
unicodeApp = return $ postgrest testUnicodeCfg refDbStructure pool getTime
|
|
proxyApp = return $ postgrest testProxyCfg refDbStructure pool getTime
|
|
noJwtApp = return $ postgrest testCfgNoJWT refDbStructure pool getTime
|
|
|
|
hspec $ do
|
|
mapM_ (beforeAll_ resetDb . before withApp) specs
|
|
|
|
-- this test runs with a different server flag
|
|
beforeAll_ resetDb . before ltdApp $
|
|
describe "Feature.QueryLimitedSpec" Feature.QueryLimitedSpec.spec
|
|
|
|
-- this test runs with a different schema
|
|
beforeAll_ resetDb . before unicodeApp $
|
|
describe "Feature.UnicodeSpec" Feature.UnicodeSpec.spec
|
|
|
|
-- this test runs with a proxy
|
|
beforeAll_ resetDb . before proxyApp $
|
|
describe "Feature.ProxySpec" Feature.ProxySpec.spec
|
|
|
|
-- this test runs without a JWT secret
|
|
beforeAll_ resetDb . before noJwtApp $
|
|
describe "Feature.NoJwtSpec" Feature.NoJwtSpec.spec
|
|
|
|
where
|
|
specs = map (uncurry describe) [
|
|
("Feature.AuthSpec" , Feature.AuthSpec.spec)
|
|
, ("Feature.ConcurrentSpec" , Feature.ConcurrentSpec.spec)
|
|
, ("Feature.CorsSpec" , Feature.CorsSpec.spec)
|
|
, ("Feature.DeleteSpec" , Feature.DeleteSpec.spec)
|
|
, ("Feature.InsertSpec" , Feature.InsertSpec.spec)
|
|
, ("Feature.QuerySpec" , Feature.QuerySpec.spec)
|
|
, ("Feature.RangeSpec" , Feature.RangeSpec.spec)
|
|
, ("Feature.StructureSpec" , Feature.StructureSpec.spec)
|
|
]
|