25 lines
686 B
Common Lisp
25 lines
686 B
Common Lisp
;;;; cl-scopes/test-substrate - testing for the scopes-substrate system.
|
|
|
|
(defpackage :scopes/test-substrate
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:substrate :scopes/substrate)
|
|
(:message :scopes/core/message)
|
|
(:t :scopes/testing))
|
|
(:export #:run)
|
|
(:import-from :scopes/testing #:deftest #:== #:!=))
|
|
|
|
(in-package :scopes/test-substrate)
|
|
|
|
(defun run ()
|
|
(let* ((t:*test-suite* (make-instance 't:test-suite :name "substrate")))
|
|
;(load (t:test-path "config-substrate" "etc"))
|
|
;(substrate:setup)
|
|
(unwind-protect
|
|
(progn
|
|
(test-basic)
|
|
)
|
|
(t:show-result))))
|
|
|
|
(deftest test-basic ()
|
|
;(substrate:send msg)
|
|
)
|