graphql-engine/server/tests-hspec/Test/ServiceLivenessSpec.hs
Sibi Prabakaran e43a5e4794 Rename State to TestEnvironment in hspec test suite
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/4309
GitOrigin-RevId: 899b1aa3674654f5c4bdf94dcd45009570b34644
2022-04-20 17:16:42 +00:00

28 lines
1.0 KiB
Haskell

-- | Service liveness tests: Confirm that the harness is working
-- properly. If this passes, the rest of the tests will pass.
module Test.ServiceLivenessSpec (spec) where
import Harness.Backend.Citus qualified as Citus
import Harness.Backend.Mysql qualified as Mysql
import Harness.Backend.Postgres qualified as Postgres
import Harness.Backend.Sqlserver qualified as Sqlserver
import Harness.GraphqlEngine qualified as GraphqlEngine
import Harness.Http qualified as Http
import Harness.TestEnvironment (TestEnvironment (TestEnvironment, server))
import Test.Hspec
import Prelude
spec :: SpecWith TestEnvironment
spec = do
ignoreSubject do
it "PostgreSQL liveness" $ shouldReturn Postgres.livenessCheck ()
it "MySQL liveness" $ shouldReturn Mysql.livenessCheck ()
it "SQLServer liveness" $ shouldReturn Sqlserver.livenessCheck ()
it "Citus liveness" $ shouldReturn Citus.livenessCheck ()
it
"graphql-engine liveness"
\TestEnvironment {server} ->
shouldReturn
(Http.healthCheck (GraphqlEngine.serverUrl server))
()