25 lines
745 B
Common Lisp
25 lines
745 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))
|
|
))
|
|
|
|
(defun test-csys ()
|
|
(test-neuron-basics))
|
|
|
|
(deftest test-neuron-basics ()
|
|
(let* ((prb (csys:neuron #'probe :env t:*test-suite* :state '(43 44)))
|
|
;(syn (csys:synapse prb (csys:set-content #'1+)))
|
|
(syn (csys:synapse prb #'1+))
|
|
;(syn (csys:synapse prb (csys:inhibit)))
|
|
(fw (csys:neuron #'csys:forward :syns (list syn))))
|
|
(actor:send fw 42)
|
|
(actor:send fw 43)
|
|
(sleep 0.1)
|
|
(actor:stop prb)
|
|
(actor:stop fw)
|
|
))
|