sync node height before making an update call in compliance tests (#213)

dfinity · Jul 18, 2023 · 99efc33 · 99efc33
1 parent e727fec
commit 99efc33
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/IC/Test/Agent.hs b/src/IC/Test/Agent.hs
@@ -433,7 +433,7 @@ postReadStateCBOR' :: (HasCallStack, HasAgentConfig) => String -> Blob -> GenR -
 postReadStateCBOR' ep cid = postCBOR' ep $ "/api/v2/canister/" ++ textual cid ++ "/read_state"
 
 postCallCBOR, postQueryCBOR, postReadStateCBOR :: (HasCallStack, HasAgentConfig) => Blob -> GenR -> IO (Response BS.ByteString)
-postCallCBOR cid      = postCBOR $ "/api/v2/canister/" ++ textual cid ++ "/call"
+postCallCBOR cid      = (\r -> sync_height cid >> postCBOR ("/api/v2/canister/" ++ textual cid ++ "/call") r)
 postQueryCBOR cid     = (\r -> sync_height cid >> postCBOR ("/api/v2/canister/" ++ textual cid ++ "/query") r)
 postReadStateCBOR cid = (\r -> sync_height cid >> postReadStateCBOR' endPoint cid r)