cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

load config file via new test-path function

Browse source
This commit is contained in:
Helmut Merz 2024-06-03 18:34:24 +02:00
parent d85453096e
commit 9fa4e3402f
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/test-storage.lisp
View file

@ -14,22 +14,19 @@
(in-package :scopes/test-storage) (in-package :scopes/test-storage)
(defparameter *db-config-test* nil) (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 () (defun run-all ()
(run-sqlite) (run-sqlite)
(run-postgres)) (run-postgres))
(defun run-sqlite () (defun run-sqlite ()
(load (str:concat *config-source* "sqlite")) (load (t:test-path :scopes "config-sqlite"))
(let ((storage:*db-config* *db-config-test*) (let ((storage:*db-config* *db-config-test*)
(t:*test-suite* (t:test-suite "sqlite"))) (t:*test-suite* (t:test-suite "sqlite")))
(run))) (run)))
(defun run-postgres () (defun run-postgres ()
(load (str:concat *config-source* "postgres")) (load (t:test-path :scopes "config-postgres"))
(let ((storage:*db-config* *db-config-test*) (let ((storage:*db-config* *db-config-test*)
(t:*test-suite* (t:test-suite "postgres"))) (t:*test-suite* (t:test-suite "postgres")))
(run))) (run)))