substrate: basic test setup

substrate/substrate.lisp

@@ -10,3 +10,12 @@
 
 (in-package :scopes/substrate)
 
+(defvar *root* nil)
+
+(defclass config (config:base)
+  ()
+  )
+
+(defclass dispatcher ()
+  ()
+  )

test/etc/config-substrate.lisp

@@ -0,0 +1,13 @@
+;;;; cl-scopes/test/etc/config-substrate - configuration for `config-substrate` tests.
+
+(in-package :scopes/test-substrate)
+
+(config:root)
+
+(config:add :logger  :class 'logging:config
+            :loglevel (config:from-env :loglevel :info)
+            :logfile (t:test-path "scopes-test.log" "log")
+            :console nil)
+
+(config:add :substrate :class 'substrate:config)
+

test/test-substrate.lisp

@@ -2,7 +2,9 @@
 
 (defpackage :scopes/test-substrate
   (:use :common-lisp)
-  (:local-nicknames (:substrate :scopes/substrate)
+  (:local-nicknames (:config :scopes/config)
+                    (:logging :scopes/logging)
+                    (:substrate :scopes/substrate)
                     (:message :scopes/core/message)
                     (:t :scopes/testing))
   (:export #:run)
@@ -12,7 +14,7 @@
 
 (defun run ()
   (let* ((t:*test-suite* (make-instance 't:test-suite :name "substrate")))
-    ;(load (t:test-path "config-substrate" "etc"))
+    (load (t:test-path "config-substrate" "etc"))
     ;(substrate:setup)
     (unwind-protect
       (progn