setup (scaffolding) of new system scopes-substrate

scopes-substrate.asd

@@ -0,0 +1,25 @@
+(in-package #:asdf-user)
+
+(defsystem :scopes-substrate
+  :author "cyberconcepts.org Team <team@cyberconcepts.org>"
+  :license "MIT"
+  :version "0.0.1"
+  :homepage "https://www.cyberconcepts.org"
+  :description "Communication substrate."
+  :depends-on (:alexandria :cl-dotenv :cl-readline :com.inuoe.jzon 
+               :flexi-streams :ironclad :local-time :log4cl 
+               :lparallel :qbase64 :serapeum :str
+               :scopes-core)
+  :components ((:file "config" :depends-on ("util/util"))
+               (:file "substrate/substrate" 
+                      :depends-on ("config"))
+               (:file "util/util"))
+  :long-description "scopes/substrate: Communication substrate, sort of new core."
+  :in-order-to ((test-op (test-op "scopes-substrate/test"))))
+
+(defsystem :scopes-substrate/test
+  :depends-on (:scopes-substrate)
+  :components ( (:file "test/test-substrate"))
+  :perform (test-op (o c) 
+    (symbol-call :scopes/test-substrate :run)))
+

substrate/substrate.lisp

@@ -0,0 +1,12 @@
+;;;; cl-scopes/substrate - communication substrate.
+
+(defpackage :scopes/substrate
+  (:use :common-lisp)
+  (:local-nicknames (:async :scopes/util/async)
+                    (:config :scopes/config)
+                    (:util :scopes/util))
+  (:export #:*root*
+           #:add-action #:config)) 
+
+(in-package :scopes/substrate)
+

test/test-substrate.lisp

@@ -0,0 +1,25 @@
+;;;; 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)
+)