;;;; cl-scopes/test-substrate - testing for the scopes-substrate system.

(defpackage :scopes/test-substrate
  (:use :common-lisp)
  (:local-nicknames (:config :scopes/config)
                    (:logging :scopes/logging)
                    (: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)
)