graphql-engine/server/lib/api-tests/test/Test/ServiceLivenessSpec.hs
Tom Harding f05f746b94 Extract the test harness from the Hspec tests
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/6095
Co-authored-by: Gil Mizrahi <8547573+soupi@users.noreply.github.com>
GitOrigin-RevId: 51693f7324e62e201a2bdc701255cf6c730745e2
2022-10-04 08:31:26 +00:00

30 lines
1.1 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.Cockroach qualified as Cockroach
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 Hasura.Prelude
import Test.Hspec
spec :: SpecWith TestEnvironment
spec = do
ignoreSubject do
it "Postgres" $ shouldReturn Postgres.livenessCheck ()
it "MySQL" $ shouldReturn Mysql.livenessCheck ()
it "SQLServer" $ shouldReturn Sqlserver.livenessCheck ()
it "Citus" $ shouldReturn Citus.livenessCheck ()
it "Cockroach" $ shouldReturn Cockroach.livenessCheck ()
it
"graphql-engine"
\TestEnvironment {server} ->
shouldReturn
(Http.healthCheck (GraphqlEngine.serverUrl server))
()