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.Functor ((<&>))
import Data.HashMap.Strict (HashMap)
import Data.List (sortOn)
import Data.List.NonEmpty (NonEmpty (..))
import Data.List.NonEmpty qualified as NonEmpty
import Data.Maybe (fromMaybe, maybeToList)
import Hasura.Backends.DataConnector.API
import Test.AgentAPI (mutationGuarded, queryGuarded)
@ -224,6 +226,14 @@ spec TestData {..} edgeCasesTestData Capabilities {..} = describe "Delete Mutati
[ ("PlaylistId", _tdColumnField _tdPlaylistTracksTableName "PlaylistId"),
("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 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
let joinInTrack (invoiceLine :: HashMap FieldName FieldValue) =