Run QueryLimitedSpec with its own server flags

This commit is contained in:
Joe Nelson
2016-02-22 19:21:39 -08:00
parent c02dd4aa98
commit c28b26d949
2 changed files with 11 additions and 2 deletions
+7 -2
View File
@@ -28,8 +28,14 @@ main = do
result <- P.use pool $ getDbStructure "test"
let dbStructure = either (error.show) id result
withApp = return $ postgrest testCfg dbStructure pool
ltdApp = return $ postgrest testLtdRowsCfg dbStructure pool
hspec . mapM_ (beforeAll_ resetDb . before withApp) $ specs
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
where
specs = map (uncurry describe) [
@@ -38,7 +44,6 @@ main = do
, ("Feature.CorsSpec" , Feature.CorsSpec.spec)
, ("Feature.DeleteSpec" , Feature.DeleteSpec.spec)
, ("Feature.InsertSpec" , Feature.InsertSpec.spec)
, ("Feature.QueryLimitedSpec" , Feature.QueryLimitedSpec.spec)
, ("Feature.QuerySpec" , Feature.QuerySpec.spec)
, ("Feature.RangeSpec" , Feature.RangeSpec.spec)
, ("Feature.StructureSpec" , Feature.StructureSpec.spec)