diff --git a/test/test-storage.lisp b/test/test-storage.lisp index 1452e44..56aec6c 100644 --- a/test/test-storage.lisp +++ b/test/test-storage.lisp @@ -14,22 +14,19 @@ (in-package :scopes/test-storage) (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 () (run-sqlite) (run-postgres)) (defun run-sqlite () - (load (str:concat *config-source* "sqlite")) + (load (t:test-path :scopes "config-sqlite")) (let ((storage:*db-config* *db-config-test*) (t:*test-suite* (t:test-suite "sqlite"))) (run))) (defun run-postgres () - (load (str:concat *config-source* "postgres")) + (load (t:test-path :scopes "config-postgres")) (let ((storage:*db-config* *db-config-test*) (t:*test-suite* (t:test-suite "postgres"))) (run)))