From ed5af42f4948dbd46c29ec269f57be187bc75aa6 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Thu, 13 Jun 2024 19:08:57 +0200 Subject: [PATCH] work in progress: test receiver: 'expect' function --- test/test-core.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/test-core.lisp b/test/test-core.lisp index c2f81dd..c505421 100644 --- a/test/test-core.lisp +++ b/test/test-core.lisp @@ -29,6 +29,9 @@ (push (format nil "unexpected: ~s" msg) (t:errors t:*test-suite*))))) +(defun expect (ctx msg) + (setf (gethash (message:head msg) (expected ctx)) (message:data msg))) + ;;;; test runner (defclass test-suite (t:test-suite) @@ -47,6 +50,7 @@ (let ((rcvr (receiver t:*test-suite*)) (msg (message:simple-message :test :dummy))) (setf (message:data msg) "dummy payload") + (expect rcvr msg) (== (core:name rcvr) :test-rcvr) (core:send rcvr msg) ))