mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-21 06:21:39 +03:00
d713cad315
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/6179 GitOrigin-RevId: 6455e5809ea06b86dfbcddf781ee105088ca78f9
30 lines
1.3 KiB
Haskell
30 lines
1.3 KiB
Haskell
module Test.ExplainSpec (spec) where
|
|
|
|
import Control.Lens ((&), (?~))
|
|
import Hasura.Backends.DataConnector.API (Capabilities (..), Config, ExplainResponse (..), QueryRequest (..), Routes (..), SourceName, qFields)
|
|
import Servant.API (NamedRoutes)
|
|
import Servant.Client (Client, (//))
|
|
import Test.Data (TestData (..))
|
|
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 :: TestData -> Client IO (NamedRoutes Routes) -> SourceName -> Config -> Capabilities -> Spec
|
|
spec TestData {..} 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` []
|
|
where
|
|
artistsQueryRequest :: QueryRequest
|
|
artistsQueryRequest =
|
|
let fields = Data.mkFieldsMap [("ArtistId", _tdColumnField "ArtistId"), ("Name", _tdColumnField "Name")]
|
|
query = Data.emptyQuery & qFields ?~ fields
|
|
in QueryRequest _tdArtistsTableName [] query
|