;;;; 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 '(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)
    ))