这是indexloc提供的服务，不要输入任何密码
Skip to content

server tests with https webhook now (fix #196) #214

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
wants to merge 2 commits into from
Closed

server tests with https webhook now (fix #196) #214

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
dd3586f
server tests with webhook
ecthiender Jul 25, 2018
218b624
Merge branch 'master' of github.com:hasura/graphql-engine into fix-19…
ecthiender Jul 26, 2018
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
44 changes: 28 additions & 16 deletions server/test/Main.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -39,36 +39,28 @@ resetStateTx = do
Q.unitQE PGQ.PGExecErrTx "DROP SCHEMA public CASCADE" () False
Q.unitQE PGQ.PGExecErrTx "CREATE SCHEMA public" () False

ravenApp :: L.LoggerCtx -> PGQ.PGPool -> IO Application
ravenApp loggerCtx pool = do
ravenApp :: L.LoggerCtx -> PGQ.PGPool -> AuthMode -> IO Application
ravenApp loggerCtx pool authMode = do
let corsCfg = CorsConfigG "*" False -- cors is enabled
-- spockAsApp $ spockT id $ app Q.Serializable Nothing rlogger pool AMNoAuth corsCfg True -- no access key and no webhook
mkWaiApp Q.Serializable Nothing loggerCtx pool AMNoAuth corsCfg True -- no access key and no webhook
mkWaiApp Q.Serializable Nothing loggerCtx pool authMode corsCfg True

main :: IO ()
main = do
-- parse CLI flags for connection params
ConnectionParams rci cp <- parseArgs
-- form the postgres connection info
ci <- either ((>> exitFailure) . (putStrLn . connInfoErrModifier))
return $ mkConnInfo Nothing rci
-- intialize the pool
pool <- Q.initPGPool ci cp
runTests :: PGQ.PGPool -> IO Application -> IO ()
runTests pool app = do
-- reset state in the database
void $ liftIO $ runExceptT $ Q.runTx pool defTxMode resetStateTx
-- intialize state for graphql-engine in the database
liftIO $ initialise pool
-- generate the test specs
specs <- mkSpecs
loggerCtx <- L.mkLoggerCtx L.defaultLoggerSettings
-- run the tests
withArgs [] $ hspecWith defaultConfig $ with (ravenApp loggerCtx pool) specs
withArgs [] $ hspecWith defaultConfig $ with app specs

where
initialise :: Q.PGPool -> IO ()
initialise pool = do
initialise pool' = do
currentTime <- getCurrentTime
res <- runExceptT $ Q.runTx pool defTxMode $ initCatalogSafe currentTime
res <- runExceptT $ Q.runTx pool' defTxMode $ initCatalogSafe currentTime
either ((>> exitFailure) . (BLC.putStrLn . J.encode)) putStrLn res


Expand All @@ -80,3 +72,23 @@ parseArgs = execParser opts
opts = info (helper <*> optParser)
( fullDesc <>
header "graphql-engine-test")

main :: IO ()
main = do
-- parse CLI flags for connection params
ConnectionParams rci cp <- parseArgs
-- form the postgres connection info
ci <- either ((>> exitFailure) . (putStrLn . connInfoErrModifier))
return $ mkConnInfo Nothing rci
-- intialize the pool and the logger
pool <- Q.initPGPool ci cp
loggerCtx <- L.mkLoggerCtx L.defaultLoggerSettings

let am = AMAccessKeyAndHook "abcd" "https://us-central1-hasura-io.cloudfunctions.net/graphql-engine-webhook-test"
noHookApp = ravenApp loggerCtx pool AMNoAuth
appWHook = ravenApp loggerCtx pool am

putStrLn "Running tests without webhook"
runTests pool noHookApp
putStrLn "Running tests with webhook"
runTests pool appWHook