mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-16 01:44:03 +03:00
3318963d99
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/4990 GitOrigin-RevId: 85c0ac27a7437c6ff96ce282b2fcf6950d5f4d07
112 lines
2.9 KiB
Haskell
112 lines
2.9 KiB
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
-- | Primary key related queries
|
|
module Test.PrimaryKeySpec (spec) where
|
|
|
|
import Harness.Backend.Citus qualified as Citus
|
|
import Harness.Backend.Postgres qualified as Postgres
|
|
import Harness.Backend.Sqlserver qualified as Sqlserver
|
|
import Harness.GraphqlEngine qualified as GraphqlEngine
|
|
import Harness.Quoter.Graphql (graphql)
|
|
import Harness.Quoter.Yaml (shouldReturnYaml, yaml)
|
|
import Harness.Test.Context qualified as Context
|
|
import Harness.Test.Schema (Table (..), table)
|
|
import Harness.Test.Schema qualified as Schema
|
|
import Harness.TestEnvironment (TestEnvironment)
|
|
import Test.Hspec (SpecWith, describe, it)
|
|
import Prelude
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Preamble
|
|
|
|
spec :: SpecWith TestEnvironment
|
|
spec =
|
|
Context.run
|
|
[ Context.Context
|
|
{ name = Context.Backend Context.Postgres,
|
|
mkLocalTestEnvironment = Context.noLocalTestEnvironment,
|
|
setup = Postgres.setup schema,
|
|
teardown = Postgres.teardown schema,
|
|
customOptions = Nothing
|
|
},
|
|
Context.Context
|
|
{ name = Context.Backend Context.Citus,
|
|
mkLocalTestEnvironment = Context.noLocalTestEnvironment,
|
|
setup = Citus.setup schema,
|
|
teardown = Citus.teardown schema,
|
|
customOptions = Nothing
|
|
},
|
|
Context.Context
|
|
{ name = Context.Backend Context.SQLServer,
|
|
mkLocalTestEnvironment = Context.noLocalTestEnvironment,
|
|
setup = Sqlserver.setup schema,
|
|
teardown = Sqlserver.teardown schema,
|
|
customOptions = Nothing
|
|
}
|
|
]
|
|
tests
|
|
|
|
schema :: [Schema.Table]
|
|
schema = [author]
|
|
|
|
author :: Schema.Table
|
|
author =
|
|
(table "author")
|
|
{ tableColumns =
|
|
[ Schema.column "id" Schema.TInt,
|
|
Schema.column "name" Schema.TStr,
|
|
Schema.column "createdAt" Schema.TUTCTime
|
|
],
|
|
tablePrimaryKey = ["id"],
|
|
tableData =
|
|
[ [ Schema.VInt 1,
|
|
Schema.VStr "Author 1",
|
|
Schema.parseUTCTimeOrError "2017-09-21 09:39:44"
|
|
],
|
|
[ Schema.VInt 2,
|
|
Schema.VStr "Author 2",
|
|
Schema.parseUTCTimeOrError "2017-09-21 09:50:44"
|
|
]
|
|
]
|
|
}
|
|
|
|
tests :: Context.Options -> SpecWith TestEnvironment
|
|
tests opts = describe "PrimaryKeySpec" $ do
|
|
it "works with primary key" $ \testEnvironment ->
|
|
shouldReturnYaml
|
|
opts
|
|
( GraphqlEngine.postGraphql
|
|
testEnvironment
|
|
[graphql|
|
|
query {
|
|
hasura_author_by_pk(id: 1) {
|
|
id
|
|
name
|
|
}
|
|
}|]
|
|
)
|
|
[yaml|
|
|
data:
|
|
hasura_author_by_pk:
|
|
id: 1
|
|
name: Author 1
|
|
|]
|
|
|
|
it "works with non existent primary key" $ \testEnvironment ->
|
|
shouldReturnYaml
|
|
opts
|
|
( GraphqlEngine.postGraphql
|
|
testEnvironment
|
|
[graphql|
|
|
query {
|
|
hasura_author_by_pk(id: 4) {
|
|
id
|
|
name
|
|
}
|
|
}|]
|
|
)
|
|
[yaml|
|
|
data:
|
|
hasura_author_by_pk: null
|
|
|]
|