Commit 2aa7a9fd authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

tests: Make Guile "execute_request" test deterministic.

* tests/guile.scm ("execute_request"): Arrange to fix ordering of the
returned messages.
parent bb95444f
......@@ -93,7 +93,10 @@
("execute_result" (json->execute-result content))
("execute_reply" (json->execute-reply content)))))
(append (filter (type-predicate "status") replies)
(remove (type-predicate "status") replies))))))
(map (lambda (type)
(find (type-predicate type) replies))
'("execute_input" "execute_result"
(let ((thread (call-with-new-thread client-thunk)))
(run-guile-kernel connection)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment