20 lines
636 B
Common Lisp
20 lines
636 B
Common Lisp
;;;; cl-scopes/test/config-sqlite.lisp
|
|
;;;; use: `(load "test/...")` from package scopes/test-storage
|
|
|
|
(in-package :scopes/test-storage)
|
|
|
|
(config:root :env-keys '(:db-name))
|
|
|
|
(config:add :logger :class 'logging:config
|
|
:loglevel :debug
|
|
:logfile (t:test-path "scopes-test.log" "log")
|
|
:console nil)
|
|
|
|
(defvar sqlite-connect-args
|
|
(list :database-name
|
|
(namestring
|
|
(scopes/testing:test-path (config:from-env :db-name "test.db") "data"))))
|
|
|
|
(config:add :storage :class 'storage:config :setup #'storage:setup
|
|
:db-type :sqlite3
|
|
:connect-args sqlite-connect-args)
|