From 9fa4e3402f5c5555d2a46cf6d862b60ca09fb7a7 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Mon, 3 Jun 2024 18:34:24 +0200 Subject: [PATCH] load config file via new test-path function --- test/test-storage.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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)))