18 lines
490 B
Common Lisp
18 lines
490 B
Common Lisp
;;; cl-scopes/test/etc.lisp
|
|
;;; use: `(load "test/etc")` from package scopes/test-storage
|
|
|
|
(defparameter db-config-sqlite
|
|
'(:db-type :sqlite3
|
|
:database-name "test/test.db"))
|
|
|
|
(defparameter db-config-postgres
|
|
'(:db-type :postgres
|
|
:database-name "cl-test"
|
|
:host "localhost"
|
|
:port "5432"
|
|
:username "testuser"
|
|
:password "secret"
|
|
:schema "testing"))
|
|
|
|
(setf scopes/test-storage:*db-config-sqlite* db-config-sqlite)
|
|
(setf scopes/test-storage:*db-config-postgres* db-config-postgres)
|