check (implementation = work in progress): logging; put sqlite DB in data subdirectory

.gitignore

@@ -1,2 +1,3 @@
 test.db
 bin
+*-test.log

core/core.lisp

@@ -66,8 +66,10 @@
   (:method ((rcvr context) msg)
     (let* ((acts (actions rcvr))
            (hdlrs (select msg acts)))
-      (dolist (hdlr hdlrs)
+      (if (null hdlrs)
-        (funcall hdlr rcvr msg)))))
+        (log:warn "no action selected for ~s" msg)
+        (dolist (hdlr hdlrs)
+          (funcall hdlr rcvr msg))))))
 
 ;;;; simple printer service
 

test/config-sqlite.lisp

@@ -6,7 +6,7 @@
     :db-type :sqlite3
     :connect-args
 	 (:database-name 
-       ,(namestring (scopes/testing:test-path "test.db")))
+       ,(namestring (scopes/testing:test-path "test.db" "data")))
     :options nil))
 
 (setf scopes/test-storage:*db-config-test* db-config-sqlite)

test/data/README.md

@@ -0,0 +1 @@
+Database files and other storage items should be placed here.

test/test-core.lisp

@@ -51,6 +51,7 @@
   (let* ((*config* nil)
          (t:*test-suite* (make-instance 'test-suite :name "core"))
          (rcvr (receiver t:*test-suite*)))
+    (log4cl:log-config :sane :daily (t:test-path "scopes-test.log" "log"))
     (load (t:test-path "config-core" "etc"))
     (core:add-action rcvr '(:test) #'check-message)
     (test-send)