19 lines
592 B
Common Lisp
19 lines
592 B
Common Lisp
;;;; decons/test-csys - tests for the csys (cybernetic ommunication systems) package
|
|
|
|
(in-package :decons/test-decons)
|
|
|
|
(defun probe (msg state syns env)
|
|
(let ((t:*test-suite* env))
|
|
(== (actor:content msg) (pop state))
|
|
(lambda (msg) (probe msg state syns env))
|
|
))
|
|
|
|
(deftest test-neuron ()
|
|
(let* ((prb (csys:neuron #'probe :env t:*test-suite* :state '(42 43)))
|
|
(fw (csys:neuron #'csys:forward :syns (list (csys:synapse prb)))))
|
|
(actor:send fw (actor:message 42))
|
|
(actor:send fw (actor:message 43))
|
|
(sleep 0.1)
|
|
(actor:stop prb)
|
|
(actor:stop fw)
|
|
))
|