[armedbear-cvs] r12816 - trunk/abcl/test/lisp/ansi

[Mark Evenson]

Author: mevenson
Date: Wed Jul 21 03:39:38 2010
New Revision: 12816

Log:
Upgrade finding test results database for ASDF2.



Modified:
   trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp

Modified: trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp
==============================================================================
--- trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp	(original)
+++ trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp	Wed Jul 21 03:39:38 2010
@@ -74,7 +74,9 @@
   (getf `(doit ,*doit* compileit ,*compileit*) test))  
 
 (defvar *default-database-file* 
-  (merge-pathnames "ansi-test-failures" (directory-namestring *load-truename*)))
+  (if (find :asdf2 *features*)
+      (asdf:system-relative-pathname :ansi-compiled "test/lisp/ansi/ansi-test-failures")
+      (merge-pathnames "ansi-test-failures" (directory-namestring *load-truename*)))
 
 (defun parse (&optional (file *default-database-file*))
   (format t "Parsing test report database from ~A~%" *default-database-file*)