2022-03-16 03:39:21 +03:00
|
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
|
2021-11-19 18:13:33 +03:00
|
|
|
-- | Testing array relationships.
|
2022-01-21 10:48:27 +03:00
|
|
|
module Test.ArrayRelationshipsSpec (spec) where
|
2021-11-19 18:13:33 +03:00
|
|
|
|
2022-01-21 10:48:27 +03:00
|
|
|
import Harness.Backend.Mysql as Mysql
|
2021-11-19 18:13:33 +03:00
|
|
|
import Harness.GraphqlEngine qualified as GraphqlEngine
|
2022-01-21 10:48:27 +03:00
|
|
|
import Harness.Quoter.Graphql
|
|
|
|
import Harness.Quoter.Yaml
|
2021-11-23 21:15:17 +03:00
|
|
|
import Harness.State (State)
|
2022-02-21 20:05:09 +03:00
|
|
|
import Harness.Test.Context qualified as Context
|
2022-03-10 14:18:13 +03:00
|
|
|
import Harness.Test.Schema qualified as Schema
|
2021-11-19 18:13:33 +03:00
|
|
|
import Test.Hspec
|
|
|
|
import Prelude
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Preamble
|
|
|
|
|
2021-11-23 21:15:17 +03:00
|
|
|
spec :: SpecWith State
|
2021-11-19 18:13:33 +03:00
|
|
|
spec =
|
2022-02-21 20:05:09 +03:00
|
|
|
Context.run
|
|
|
|
[ Context.Context
|
2022-03-15 19:08:47 +03:00
|
|
|
{ name = Context.Backend Context.MySQL,
|
2022-02-21 20:05:09 +03:00
|
|
|
mkLocalState = Context.noLocalState,
|
2022-03-10 14:18:13 +03:00
|
|
|
setup = Mysql.setup schema,
|
|
|
|
teardown = Mysql.teardown schema,
|
2022-02-18 16:35:32 +03:00
|
|
|
customOptions = Nothing
|
2022-02-14 20:24:24 +03:00
|
|
|
}
|
|
|
|
]
|
|
|
|
tests
|
2021-11-19 18:13:33 +03:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
2022-03-10 14:18:13 +03:00
|
|
|
-- Schema
|
2021-11-19 18:13:33 +03:00
|
|
|
|
2022-03-10 14:18:13 +03:00
|
|
|
schema :: [Schema.Table]
|
|
|
|
schema = [author, article]
|
2021-11-19 18:13:33 +03:00
|
|
|
|
2022-03-10 14:18:13 +03:00
|
|
|
author :: Schema.Table
|
|
|
|
author =
|
|
|
|
Schema.Table
|
|
|
|
"author"
|
|
|
|
[ Schema.column "id" Schema.TInt,
|
|
|
|
Schema.column "name" Schema.TStr,
|
|
|
|
Schema.column "createdAt" Schema.TUTCTime
|
|
|
|
]
|
|
|
|
["id"]
|
|
|
|
[]
|
|
|
|
[ [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"]
|
|
|
|
]
|
2021-11-19 18:13:33 +03:00
|
|
|
|
2022-03-10 14:18:13 +03:00
|
|
|
article :: Schema.Table
|
|
|
|
article =
|
|
|
|
Schema.Table
|
|
|
|
"article"
|
|
|
|
[ Schema.column "id" Schema.TInt,
|
|
|
|
Schema.column "title" Schema.TStr,
|
|
|
|
Schema.column "content" Schema.TStr,
|
|
|
|
Schema.column "is_published" Schema.TBool,
|
|
|
|
Schema.column "published_on" Schema.TUTCTime,
|
|
|
|
Schema.columnNull "author_id" Schema.TInt,
|
|
|
|
Schema.columnNull "co_author_id" Schema.TInt
|
|
|
|
]
|
|
|
|
["id"]
|
|
|
|
[ Schema.Reference "author_id" "author" "id",
|
|
|
|
Schema.Reference "co_author_id" "author" "id"
|
|
|
|
]
|
|
|
|
[ [ Schema.VInt 1,
|
|
|
|
Schema.VStr "Article 1",
|
|
|
|
Schema.VStr "Sample article content 1",
|
|
|
|
Schema.VBool False,
|
|
|
|
Schema.parseUTCTimeOrError "2022-01-01 00:00:00",
|
|
|
|
Schema.VInt 1,
|
|
|
|
Schema.VInt 2
|
|
|
|
],
|
|
|
|
[ Schema.VInt 2,
|
|
|
|
Schema.VStr "Article 2",
|
|
|
|
Schema.VStr "Sample article content 2",
|
|
|
|
Schema.VBool True,
|
|
|
|
Schema.parseUTCTimeOrError "2022-01-01 00:00:00",
|
|
|
|
Schema.VInt 1,
|
|
|
|
Schema.VInt 2
|
|
|
|
],
|
|
|
|
[ Schema.VInt 3,
|
|
|
|
Schema.VStr "Article 3",
|
|
|
|
Schema.VStr "Sample article content 3",
|
|
|
|
Schema.VBool True,
|
|
|
|
Schema.parseUTCTimeOrError "2022-01-01 00:00:00",
|
|
|
|
Schema.VInt 2,
|
|
|
|
Schema.VInt 1
|
|
|
|
]
|
|
|
|
]
|
2021-11-19 18:13:33 +03:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Tests
|
|
|
|
|
2022-02-21 20:05:09 +03:00
|
|
|
tests :: Context.Options -> SpecWith State
|
2022-02-09 18:26:14 +03:00
|
|
|
tests opts = do
|
2021-11-23 21:15:17 +03:00
|
|
|
it "Select an author and one of their articles" $ \state ->
|
2021-11-19 18:13:33 +03:00
|
|
|
shouldReturnYaml
|
2022-02-09 18:26:14 +03:00
|
|
|
opts
|
2021-11-19 18:13:33 +03:00
|
|
|
( GraphqlEngine.postGraphql
|
2021-11-23 21:15:17 +03:00
|
|
|
state
|
2021-11-19 18:13:33 +03:00
|
|
|
[graphql|
|
|
|
|
query {
|
|
|
|
# we put id=1 restrictions here because we don't assume ordering support
|
|
|
|
hasura_author(where: {id: {_eq: 1}}) {
|
|
|
|
id
|
2022-03-10 14:18:13 +03:00
|
|
|
# the _by_author_id part is necessary to distinguish between multiple foreign key relationships between the same two tables
|
|
|
|
articles_by_author_id(where: {id: {_eq: 1}}) {
|
2021-11-19 18:13:33 +03:00
|
|
|
id
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|]
|
|
|
|
)
|
|
|
|
[yaml|
|
|
|
|
data:
|
|
|
|
hasura_author:
|
|
|
|
- id: 1
|
2022-03-10 14:18:13 +03:00
|
|
|
articles_by_author_id:
|
2021-11-19 18:13:33 +03:00
|
|
|
- id: 1
|
|
|
|
|]
|