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

csys tests: use carefully crafted delays for safely getting interesting behaviour

Browse source
This commit is contained in:
Helmut Merz 2026-08-10 16:59:58 +02:00
parent bc6205b3ce
commit eaa006941e
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
test/test-csys.lisp
View file

@ -52,7 +52,7 @@
(test-basic-0) (test-basic-0)
(test-basic-1) (test-basic-1)
(test-basic-2) (test-basic-2)
(sleep 0.1) (sleep 0.02)
(tc:check-expected) (tc:check-expected)
(t:show-result)))) (t:show-result))))
@ -71,26 +71,29 @@
(deftest test-basic-0 () (deftest test-basic-0 ()
(let ((environ:*env* (setup-test (list (basic:prog-b0))))) (let ((environ:*env* (setup-test (list (basic:prog-b0)))))
;(rcvr (tc:receiver t:*test-suite*)) ;(rcvr (tc:receiver t:*test-suite*))
(sleep 0.1) (sleep 0.02)
;(tc:expect rcvr (message:create '(:csys :effect :e01) :data '(:value 1))) ;(tc:expect rcvr (message:create '(:csys :effect :e01) :data '(:value 1)))
(environ:send-value '(:s00 "0-1") 1) (environ:send-value '(:s00 "0-1") 1)
(environ:send-value '(:s00 "0-1") 2) (environ:send-value '(:s00 "0-1") 2)
(sleep 0.1) (sleep 0.03)
(core:shutdown))) (core:shutdown)))
(deftest test-basic-1 () (deftest test-basic-1 ()
(let ((environ:*env* (setup-test (basic:config-b1)))) (let ((environ:*env* (setup-test (basic:config-b1))))
(sleep 0.1) (sleep 0.02)
(environ:send-value '(:s01 "0-0") 1) (environ:send-value '(:s01 "0-0") 1)
(environ:send-value '(:s01 "0-1") 2) (environ:send-value '(:s01 "0-1") 2)
(sleep 0.1) (sleep 0.03)
(core:shutdown))) (core:shutdown)))
(deftest test-basic-2 () (deftest test-basic-2 ()
(let ((environ:*env* (setup-test (basic:config-b2)))) (let ((environ:*env* (setup-test (basic:config-b2))))
(sleep 0.2) (sleep 0.02)
(environ:send-value '(:s02 "1-0") 1) (environ:send-value '(:s02 "1-0") 1)
(environ:send-value '(:s02 "1-1") 1) ;; 2 => loop (sleep 0.0001)
(sleep 0.1) (environ:send-value '(:s02 "1-1") 2) ;; 2 => loop
(sleep 0.0001)
(environ:send-value '(:s02 "1-0") 2) ;; stop loop
(sleep 0.03)
(core:shutdown))) (core:shutdown)))