hasura/graphql-engine
1
0
Fork 0
mirror of https://github.com/hasura/graphql-engine.git synced 2024-12-14 08:02:15 +03:00
Code Issues Projects Releases Wiki Activity

Fix non-determinism in expected ordering in agent test suite test

Browse Source 
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/8493
GitOrigin-RevId: 210b6beb991d806e9a3e4cc901ee922ede0e3c84
This commit is contained in:
Daniel Chambers 2023-03-27 13:21:17 +11:00 committed by hasura-bot
parent 042046bba7
commit 8acd447803
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
server/lib/dc-api/test/Test/Specs/MutationSpec/DeleteSpec.hs
View File

@ -6,7 +6,9 @@ import Data.Aeson qualified as J
import Data.Foldable (for_) import Data.Foldable (for_)
import Data.Functor ((<&>)) import Data.Functor ((<&>))
import Data.HashMap.Strict (HashMap) import Data.HashMap.Strict (HashMap)
import Data.List (sortOn)
import Data.List.NonEmpty (NonEmpty (..)) import Data.List.NonEmpty (NonEmpty (..))
import Data.List.NonEmpty qualified as NonEmpty
import Data.Maybe (fromMaybe, maybeToList) import Data.Maybe (fromMaybe, maybeToList)
import Hasura.Backends.DataConnector.API import Hasura.Backends.DataConnector.API
import Test.AgentAPI (mutationGuarded, queryGuarded) import Test.AgentAPI (mutationGuarded, queryGuarded)
@ -224,6 +226,14 @@ spec TestData {..} edgeCasesTestData Capabilities {..} = describe "Delete Mutati
[ ("PlaylistId", _tdColumnField _tdPlaylistTracksTableName "PlaylistId"), [ ("PlaylistId", _tdColumnField _tdPlaylistTracksTableName "PlaylistId"),
("TrackId", _tdColumnField _tdPlaylistTracksTableName "TrackId") ("TrackId", _tdColumnField _tdPlaylistTracksTableName "TrackId")
] ]
& qOrderBy
?~ OrderBy
mempty
( NonEmpty.fromList
[ _tdOrderByColumn [] "PlaylistId" Ascending,
_tdOrderByColumn [] "TrackId" Ascending
]
)
) )
) )
) )
@ -245,7 +255,10 @@ spec TestData {..} edgeCasesTestData Capabilities {..} = describe "Delete Mutati
let joinInPlaylistTracks (track :: HashMap FieldName FieldValue) = let joinInPlaylistTracks (track :: HashMap FieldName FieldValue) =
let trackId = track ^? Data.field "TrackId" . Data._ColumnFieldNumber let trackId = track ^? Data.field "TrackId" . Data._ColumnFieldNumber
playlistTracks = _tdPlaylistTracksRows & filter (\playlistTrack -> playlistTrack ^? Data.field "TrackId" . Data._ColumnFieldNumber == trackId) playlistTracks =
_tdPlaylistTracksRows
& filter (\playlistTrack -> playlistTrack ^? Data.field "TrackId" . Data._ColumnFieldNumber == trackId)
& sortOn (\playlistTrack -> (playlistTrack ^? Data.field "PlaylistId", playlistTrack ^? Data.field "TrackId"))
in Data.insertField "PlaylistTracks" (Data.mkSubqueryRowsFieldValue playlistTracks) track in Data.insertField "PlaylistTracks" (Data.mkSubqueryRowsFieldValue playlistTracks) track
let joinInTrack (invoiceLine :: HashMap FieldName FieldValue) = let joinInTrack (invoiceLine :: HashMap FieldName FieldValue) =