13 lines
380 B
Common Lisp
13 lines
380 B
Common Lisp
;;; cl-scopes/test/config-sqlite.lisp
|
|
;;; use: `(load "test/...")` from package scopes/test-storage
|
|
|
|
(defparameter db-config-sqlite
|
|
`(:backend :dbi
|
|
:db-type :sqlite3
|
|
:connect-args
|
|
(:database-name
|
|
,(str:concat (namestring (asdf:system-source-directory :scopes)) "test/test.db"))
|
|
:options nil))
|
|
|
|
(setf scopes/test-storage:*db-config-test* db-config-sqlite)
|
|
|