From ef80927de464cee5ee91bc7bacc0ad64a32cf68a Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Wed, 11 Mar 2026 18:20:30 +0100 Subject: [PATCH] csys tests: use check-seq action (instead of tc:check-message) --- test/test-core.lisp | 3 ++- test/test-csys.lisp | 11 ++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/test/test-core.lisp b/test/test-core.lisp index 367349f..18e9854 100644 --- a/test/test-core.lisp +++ b/test/test-core.lisp @@ -15,7 +15,8 @@ (:util :scopes/util) (:t :scopes/testing)) (:export #:run #:user #:password - #:test-receiver #:receiver #:expect #:check-message #:check-expected + #:test-receiver #:receiver #:suite + #:expect #:check-message #:check-expected #:setup #:test-suite) (:import-from :scopes/testing #:deftest #:== #:!=)) diff --git a/test/test-csys.lisp b/test/test-csys.lisp index a501e3a..c9e4f75 100644 --- a/test/test-csys.lisp +++ b/test/test-csys.lisp @@ -24,9 +24,15 @@ (defclass test-env (csys:environment) ((test-suite :reader test-suite :initarg :test-suite))) +(defun check-seq (seq) + (lambda (ctx msg) + (let ((t:*test-suite* (tc:suite ctx))) + (t:in-seq (shape:data msg) seq)))) + (defun setup-config () (config:add :test-receiver :setup #'tc:setup) - (config:add-action '(:csys :sub) #'tc:check-message) + (config:add-action '(:csys :sub) (check-seq '(4))) + (config:add-action '(:csys :add) (check-seq '(1 3 5))) (config:add-action '(:csys) (constantly nil)) ) @@ -52,7 +58,7 @@ (test-init rcvr)) (sleep 0.1) (core:shutdown) - (tc:check-expected) + ;(tc:check-expected) (t:show-result)))) (deftest test-init (rcvr) @@ -64,7 +70,6 @@ (sleep 0.1) (csys:send-message '(:csys :add :std :s1) 1) (csys:send-message '(:csys :add :std :s1) 3) - (tc:expect rcvr (message:create '(:csys :sub :std :s2) :data 4)) (csys:send-message '(:csys :sub :std :s2) 4) (csys:send-message '(:csys :add :std :s2) 5) )