mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 04:51:35 +03:00
e43a5e4794
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/4309 GitOrigin-RevId: 899b1aa3674654f5c4bdf94dcd45009570b34644
72 lines
2.8 KiB
Haskell
72 lines
2.8 KiB
Haskell
{-# LANGUAGE DuplicateRecordFields #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
-- | Test that clear_metadata API executes successfully when any remote
|
|
-- relationships are present between two entities. Currently remote relationships are
|
|
-- possible between:
|
|
-- 1. Two Postgres Sources
|
|
-- 2. (Postgres - Remote Schema), here a PG source has remote relationship with a
|
|
-- remote schema
|
|
-- 3. (Remote Schema - Postgres), here a remote schema has remote relationship with a
|
|
-- PG source.
|
|
-- 4. (Remote Schema - Remote Schema), here a remote schema has a remote relationship
|
|
-- with another remote schema
|
|
--
|
|
-- A Remote relationship has two entities: LHS (left hand side) and RHS (right hand
|
|
-- side). Think of them as a mathematical equation: LHS = RHS i.e a LHS entity
|
|
-- depends on RHS entity.
|
|
-- In terms of remote relationship:
|
|
-- A source present on LHS has a remote relationship with the source on RHS. That
|
|
-- means, the source on LHS depends on RHS. This is the reason why in the setup of
|
|
-- tests - we first setup the RHS and then setup the LHS. And we do the reverse in
|
|
-- teardown.
|
|
--
|
|
-- The RHS source in the below tests have the source name as "target"
|
|
-- The LHS source in the below tests have the source name as "source"
|
|
module Test.RemoteRelationship.MetadataAPI.ClearMetadataSpec (spec) where
|
|
|
|
import Harness.GraphqlEngine qualified as GraphqlEngine
|
|
import Harness.Quoter.Yaml (shouldReturnYaml, yaml)
|
|
import Harness.Test.Context qualified as Context
|
|
import Harness.TestEnvironment (TestEnvironment)
|
|
import Test.Hspec (SpecWith, describe, it)
|
|
import Test.RemoteRelationship.MetadataAPI.Common qualified as Common
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Preamble
|
|
|
|
spec :: SpecWith TestEnvironment
|
|
spec = Context.runWithLocalTestEnvironment contexts tests
|
|
where
|
|
contexts =
|
|
[ Common.dbTodbRemoteRelationshipContext,
|
|
Common.dbToRemoteSchemaRemoteRelationshipContext,
|
|
Common.remoteSchemaToDBRemoteRelationshipContext,
|
|
Common.remoteSchemaToremoteSchemaRemoteRelationshipContext
|
|
]
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Tests
|
|
|
|
tests :: Context.Options -> SpecWith (TestEnvironment, Common.LocalTestTestEnvironment)
|
|
tests opts = describe "clear-metadata-metadata-tests" do
|
|
clearMetadataTests opts
|
|
|
|
clearMetadataTests :: Context.Options -> SpecWith (TestEnvironment, Common.LocalTestTestEnvironment)
|
|
clearMetadataTests opts = describe "clear_metadata" do
|
|
it "clears the metadata" \(testEnvironment, _) -> do
|
|
let query =
|
|
[yaml|
|
|
type: clear_metadata
|
|
args : {}
|
|
|]
|
|
|
|
expectedResponse =
|
|
[yaml|
|
|
message: success
|
|
|]
|
|
shouldReturnYaml
|
|
opts
|
|
(GraphqlEngine.postMetadata testEnvironment query)
|
|
expectedResponse
|