graphql-engine/server/tests-dc-api/Test/QuerySpec.hs
2022-06-02 05:23:51 +00:00

18 lines
662 B
Haskell

module Test.QuerySpec (spec) where
import Control.Monad (when)
import Hasura.Backends.DataConnector.API (Capabilities (..), Config, Routes (..), SourceName)
import Servant.API (NamedRoutes)
import Servant.Client (Client)
import Test.Hspec
import Test.QuerySpec.BasicSpec qualified
import Test.QuerySpec.RelationshipsSpec qualified
import Prelude
spec :: Client IO (NamedRoutes Routes) -> SourceName -> Config -> Capabilities -> Spec
spec api sourceName config Capabilities {..} = do
describe "query API" do
Test.QuerySpec.BasicSpec.spec api sourceName config
when (dcRelationships) $
Test.QuerySpec.RelationshipsSpec.spec api sourceName config