diff --git a/test/test-csys.lisp b/test/test-csys.lisp
index 25250de..23ce91b 100644
--- a/test/test-csys.lisp
+++ b/test/test-csys.lisp
@@ -52,7 +52,7 @@
       (test-basic-0)
       (test-basic-1)
       (test-basic-2)
-      (sleep 0.1)
+      (sleep 0.02)
       (tc:check-expected)
       (t:show-result))))
 
@@ -71,26 +71,29 @@
 (deftest test-basic-0 ()
   (let ((environ:*env* (setup-test (list (basic:prog-b0)))))
         ;(rcvr (tc:receiver t:*test-suite*))
-    (sleep 0.1)
+    (sleep 0.02)
     ;(tc:expect rcvr (message:create '(:csys :effect :e01) :data '(:value 1)))
     (environ:send-value '(:s00 "0-1") 1)
     (environ:send-value '(:s00 "0-1") 2)
-    (sleep 0.1)
+    (sleep 0.03)
     (core:shutdown)))
 
 (deftest test-basic-1 ()
   (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-1") 2)
-    (sleep 0.1)
+    (sleep 0.03)
     (core:shutdown)))
 
 (deftest test-basic-2 ()
   (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-1") 1) ;; 2 => loop
-    (sleep 0.1)
+    (sleep 0.0001)
+    (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)))