Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp.net:/tmp/cvs-serv8794/tests
Modified Files: elephant-tests.lisp Log Message: use asdf packaging info
Date: Tue Sep 21 03:38:12 2004 Author: blee
Index: elephant/tests/elephant-tests.lisp diff -u elephant/tests/elephant-tests.lisp:1.3 elephant/tests/elephant-tests.lisp:1.4 --- elephant/tests/elephant-tests.lisp:1.3 Thu Sep 16 06:25:19 2004 +++ elephant/tests/elephant-tests.lisp Tue Sep 21 03:38:12 2004 @@ -82,7 +82,12 @@ (in-package :ele-tests)
-(defvar *testdb-path* "/usr/local/share/common-lisp/elephant-0.2/tests/testdb") +(defvar *testdb-path* + ;;"/usr/local/share/common-lisp/elephant-0.2/tests/testdb" + (namestring + (merge-pathnames + #p"tests/testdb/" + (asdf:component-pathname (asdf:find-system 'elephant-tests)))))
(defun do-all-tests() (with-open-store (*testdb-path*)