cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

work in progress: test receiver: 'expect' function

Browse source
This commit is contained in:
Helmut Merz 2024-06-13 19:08:57 +02:00
parent 10d4c9c687
commit ed5af42f49
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/test-core.lisp
View file

@ -29,6 +29,9 @@
(push (format nil "unexpected: ~s" msg) (push (format nil "unexpected: ~s" msg)
(t:errors t:*test-suite*))))) (t:errors t:*test-suite*)))))
(defun expect (ctx msg)
(setf (gethash (message:head msg) (expected ctx)) (message:data msg)))
;;;; test runner ;;;; test runner
(defclass test-suite (t:test-suite) (defclass test-suite (t:test-suite)
@ -47,6 +50,7 @@
(let ((rcvr (receiver t:*test-suite*)) (let ((rcvr (receiver t:*test-suite*))
(msg (message:simple-message :test :dummy))) (msg (message:simple-message :test :dummy)))
(setf (message:data msg) "dummy payload") (setf (message:data msg) "dummy payload")
(expect rcvr msg)
(== (core:name rcvr) :test-rcvr) (== (core:name rcvr) :test-rcvr)
(core:send rcvr msg) (core:send rcvr msg)
)) ))