63 lines
2 KiB
Common Lisp
63 lines
2 KiB
Common Lisp
;;;; cl-scopes/test-csys - testing for the scopes-csys system.
|
|
|
|
(defpackage :scopes/test-csys
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:alx :alexandria)
|
|
(:actor :scopes/core/actor)
|
|
(:async :scopes/util/async)
|
|
(:config :scopes/config)
|
|
(:core :scopes/core)
|
|
(:csys :scopes/csys)
|
|
(:logging :scopes/logging)
|
|
(:message :scopes/core/message)
|
|
(:shape :scopes/shape)
|
|
(:util :scopes/util)
|
|
(:t :scopes/testing))
|
|
(:export #:run)
|
|
(:import-from :scopes/testing #:deftest #:== #:!= #:in-seq))
|
|
|
|
(in-package :scopes/test-csys)
|
|
|
|
;;;; testing environment
|
|
|
|
(defclass test-env (csys:environment)
|
|
((test-suite :reader test-suite :initarg :test-suite)))
|
|
|
|
(defun eff-handler (state &optional (env csys:*environment*))
|
|
(lambda (msg)
|
|
(util:lgi msg state)
|
|
(let ((t:*test-suite* (test-suite env))
|
|
(val (shape:data msg)))
|
|
(unless (consp val)
|
|
(setf state (in-seq val state :remove t))))))
|
|
|
|
(defun add (msg state syns env)
|
|
(list msg (+ (shape:data msg) state) syns env))
|
|
|
|
;;;; test runner
|
|
|
|
(defun run ()
|
|
(async:init)
|
|
(let* ((t:*test-suite* (make-instance 't:test-suite :name "csys"))
|
|
(csys:*environment* (make-instance 'test-env :test-suite t:*test-suite*)))
|
|
(load (t:test-path "config-csys" "etc"))
|
|
(core:setup-services)
|
|
(unwind-protect
|
|
(progn
|
|
(test-init))
|
|
(sleep 0.1)
|
|
(async:finish)
|
|
(t:show-result))))
|
|
|
|
(deftest test-init ()
|
|
(setf (gethash '(:effect :default) (csys:procs csys:*environment*))
|
|
(csys:make-eff-proc (eff-handler '(1 3 4 5))))
|
|
(csys:init)
|
|
(csys:send-message '(:csys :sensor :init :zero) '(:std :s1))
|
|
(csys:send-message '(:csys :sensor :init :zero) '(:std :s2))
|
|
(sleep 0.1)
|
|
(csys:send-message '(:csys :add :std :s1) 1)
|
|
(csys:send-message '(:csys :add :std :s1) 3)
|
|
(csys:send-message '(:csys :sub :std :s2) 4)
|
|
(csys:send-message '(:csys :add :std :s2) 5)
|
|
)
|