work in progess: config, test-config

app/demo/main.lisp

@@ -2,8 +2,8 @@
 
 (defpackage :scopes/app/demo
   (:use :common-lisp)
-    (:local-nicknames (:forge :scopes/forge))
-    (:export #:main))
+  (:local-nicknames (:forge :scopes/forge))
+  (:export #:main))
 
 (in-package :scopes/app/demo)
 

config.lisp

@@ -0,0 +1,11 @@
+;;;; cl-scopes/config
+
+;;;; Utilities for configuration of scopes services.
+
+(defpackage :scopes/config
+  (:use :common-lisp)
+  (:export #:base #:make-system-path))
+
+(in-package :scopes/config)
+
+(defclass base () ())

scopes.asd

@@ -6,8 +6,10 @@
   :version "0.0.1"
   :homepage "https://www.cyberconcepts.org"
   :description ""
-  :depends-on (:alexandria :chanl :com.inuoe.jzon :dbi :local-time :log4cl :str :sxql)
-  :components ((:file "forge/forge")
+  :depends-on (:alexandria :chanl :cl-dotenv :com.inuoe.jzon :dbi 
+               :local-time :log4cl :str :sxql)
+  :components ((:file "config")
+               (:file "forge/forge")
                (:file "storage/storage")
                (:file "storage/tracking" :depends-on ("storage/storage"))
                (:file "testing")
@@ -21,8 +23,10 @@
 
 (defsystem :scopes/test
   :depends-on (:scopes)
-  :components ((:file "test/test-storage")
+  :components ((:file "test/test-config")
+               (:file "test/test-storage")
                (:file "test/test-forge"))
   :perform (test-op (o c) 
+    (symbol-call :scopes/test-config :run)
     (symbol-call :scopes/test-storage :run-all)
     (symbol-call :scopes/test-forge :run)))

test/test-config.lisp

@@ -1,6 +1,6 @@
-;;;; cl-scopes/test/test-confi
+;;;; cl-scopes/test/test-config
 
-;;;; tests for the scopes/config functionality
+;;;; Tests for the scopes/config functionality.
 
 (defpackage :scopes/test-config
   (:use :common-lisp)
@@ -11,10 +11,13 @@
 
 (in-package :scopes/test-config)
 
-(defvar *override-keys* '(USER, PASSWORD))
-
-(defclass config (config:base))
+(defclass config (config:base) 
+  ((override-keys :initform '(user password) :reader override-keys
+                  :allocation :class)))
 
 (defun run ()
   (let ((t:*test-suite* (t:test-suite "config")))
- 
+    (test-make-path)
+    (t:show-result)))
+
+(t:deftest test-make-path ())

test/test-storage.lisp

@@ -15,6 +15,7 @@
 
 (defparameter *db-config-test* nil)
 (defparameter *config-source* 
+  ;(asdf:system-relative-pathname :scopes "test")
   (str:concat (namestring (asdf:system-source-directory :scopes)) "test/config-"))
 
 (defun run-all ()