[elephant-cvs] CVS update: elephant/tests/elephant-tests.lisp

[blee at common-lisp.net]

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*)