server/lib/api-tests/src/Test/Regression/AggregateBoolExpConflictSpec.hs - master - alt3rmann/graphql-engine

server/lib/api-tests/src/Test/Regression/AggregateBoolExpConflictSpec.hs
93 строки3 KB
Tom Harding
Upgrade Ormolu to 0.7.0.0
24 май 2023, 16:53
24 май 2023, 16:53e0c0043
-- | Test the schema names conflict of bool exp aggregates and table selection aggregates
module Test.Regression.AggregateBoolExpConflictSpec (spec) where

import Data.List.NonEmpty qualified as NE
import Harness.Backend.Postgres qualified as Postgres
import Harness.Schema (Table (..), table)
import Harness.Schema qualified as Schema
import Harness.Test.Fixture qualified as Fixture
import Harness.TestEnvironment (GlobalTestEnvironment, TestEnvironment)
import Hasura.Prelude
import Test.Hspec (SpecWith, it)

spec :: SpecWith GlobalTestEnvironment
spec =
  Fixture.run
    ( NE.fromList
        [ (Fixture.fixture $ Fixture.Backend Postgres.backendTypeMetadata)
            { Fixture.setupTeardown = \(testEnv, _) ->
                [ Postgres.setupTablesAction schema testEnv
                ]
            }
        ]
    )
    tests

--------------------------------------------------------------------------------
-- Schema

schema :: [Schema.Table]
schema =
  [ (table "author")
      { tableColumns =
          [ Schema.column "id" Schema.defaultSerialType,
            Schema.column "name" Schema.TStr
          ],
        tablePrimaryKey = ["id"]
      },
    (table "user")
      { tableColumns =
          [ Schema.column "id" Schema.defaultSerialType,
            Schema.column "name" Schema.TStr
          ],
        tablePrimaryKey = ["id"]
      },
    (table "article")
      { tableColumns =
          [ Schema.column "id" Schema.defaultSerialType,
            Schema.column "title" Schema.TStr,
            Schema.column "content" Schema.TStr,
            Schema.column "published_on" Schema.TStr,
            Schema.column "author_id" serialInt,
            Schema.column "user_id" serialInt
          ],
        tablePrimaryKey = ["id"],
        tableReferences =
          [ Schema.reference "author_id" "author" "id",
            Schema.reference "user_id" "user" "id"
          ]
      },
    -- The regression specifically is that the `_aggregate` root field for this
    -- table will conflict with the aggregation predicate for the array relationship
    -- between author and article.
    (table $ Schema.mkArrayRelationshipName "author_article" "id" "author_id" mempty)
      { tableColumns =
          [ Schema.column "id" Schema.defaultSerialType
          ],
        tablePrimaryKey = ["id"]
      },
    (table $ Schema.mkArrayRelationshipName "article" "id" "author_id" mempty)
      { tableColumns =
          [ Schema.column "id" Schema.defaultSerialType
          ],
        tablePrimaryKey = ["id"]
      }
  ]

serialInt :: Schema.ScalarType
serialInt =
  Schema.TCustomType
    $ Schema.defaultBackendScalarType
      { Schema.bstCitus = Just "INT",
        Schema.bstPostgres = Just "INT",
        Schema.bstCockroach = Just "INT4"
      }

--------------------------------------------------------------------------------
-- Tests

tests :: SpecWith TestEnvironment
tests =
  -- All of the testing is done during setup.
  -- If setup succeeds and we have no conflicts, and this test will pass.
  it "Creates a schema without conflicts" \_ -> pure @IO ()