mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-25 16:36:31 +03:00
a1c5ac46f6
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/6000 Co-authored-by: Daniel Chambers <1214352+daniel-chambers@users.noreply.github.com> GitOrigin-RevId: d8f3cd0194191ab4c51a5a7d350cb2c3a0a5a7f3
19 lines
873 B
Haskell
19 lines
873 B
Haskell
module Test.CapabilitiesSpec (spec) where
|
|
|
|
import Hasura.Backends.DataConnector.API (Capabilities, CapabilitiesResponse (..), Config, Routes (..), validateConfigAgainstConfigSchema)
|
|
import Servant.API (NamedRoutes)
|
|
import Servant.Client (Client, (//))
|
|
import Test.Expectations (jsonShouldBe)
|
|
import Test.Hspec (Spec, describe, it)
|
|
import Prelude
|
|
|
|
spec :: Client IO (NamedRoutes Routes) -> Config -> Capabilities -> Spec
|
|
spec api config expectedCapabilities = describe "capabilities API" $ do
|
|
it "returns the expected capabilities" $ do
|
|
CapabilitiesResponse capabilities _ <- api // _capabilities
|
|
capabilities `jsonShouldBe` expectedCapabilities
|
|
|
|
it "returns a schema that can be used to validate the current config" $ do
|
|
CapabilitiesResponse _ configSchema <- api // _capabilities
|
|
validateConfigAgainstConfigSchema configSchema config `jsonShouldBe` []
|