mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-20 14:01:39 +03:00
88c5b14c3d
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/5603 GitOrigin-RevId: b9255d265ceb88d96643c95f409387fb93df6676
30 lines
1.2 KiB
Haskell
30 lines
1.2 KiB
Haskell
module Test.ExplainSpec (spec) where
|
|
|
|
import Control.Lens ((&), (?~))
|
|
import Data.Aeson.KeyMap qualified as KeyMap
|
|
import Hasura.Backends.DataConnector.API (Capabilities (..), Config, ExplainResponse (..), QueryRequest (..), Routes (..), SourceName, qFields)
|
|
import Servant.API (NamedRoutes)
|
|
import Servant.Client (Client, (//))
|
|
import Test.Data qualified as Data
|
|
import Test.Hspec (Spec, describe, it, shouldNotBe)
|
|
import Prelude
|
|
|
|
-- Note:
|
|
-- We currently simply check that for a basic query the explain plan is not empty.
|
|
-- There may be additional tests for explain-plans in HGE that we can leverage.
|
|
--
|
|
spec :: Client IO (NamedRoutes Routes) -> SourceName -> Config -> Capabilities -> Spec
|
|
spec api sourceName config _ = do
|
|
describe "Explain API" do
|
|
it "can generate an explain plan a query for a list of artists" $ do
|
|
let query = artistsQueryRequest
|
|
ExplainResponse {..} <- (api // _explain) sourceName config query
|
|
_erQuery `shouldNotBe` ""
|
|
_erLines `shouldNotBe` []
|
|
|
|
artistsQueryRequest :: QueryRequest
|
|
artistsQueryRequest =
|
|
let fields = KeyMap.fromList [("ArtistId", Data.columnField "ArtistId"), ("Name", Data.columnField "Name")]
|
|
query = Data.emptyQuery & qFields ?~ fields
|
|
in QueryRequest Data.artistsTableName [] query
|