From f5a5d6b629082e788392a6d3474ef7aa777449aa Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Sat, 28 Feb 2026 10:28:53 +0100
Subject: [PATCH] substrate: basic test setup

---
 substrate/substrate.lisp       |  9 +++++++++
 test/etc/config-substrate.lisp | 13 +++++++++++++
 test/test-substrate.lisp       |  6 ++++--
 3 files changed, 26 insertions(+), 2 deletions(-)
 create mode 100644 test/etc/config-substrate.lisp

diff --git a/substrate/substrate.lisp b/substrate/substrate.lisp
index 5f27dfb..a84a93b 100644
--- a/substrate/substrate.lisp
+++ b/substrate/substrate.lisp
@@ -10,3 +10,12 @@
 
 (in-package :scopes/substrate)
 
+(defvar *root* nil)
+
+(defclass config (config:base)
+  ()
+  )
+
+(defclass dispatcher ()
+  ()
+  )
diff --git a/test/etc/config-substrate.lisp b/test/etc/config-substrate.lisp
new file mode 100644
index 0000000..dbcfac1
--- /dev/null
+++ b/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)
+
diff --git a/test/test-substrate.lisp b/test/test-substrate.lisp
index 1a6ef15..d6b8b07 100644
--- a/test/test-substrate.lisp
+++ b/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