From f150fda30819b010d09cdfe0e5f2d5fcf852f1ba Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Wed, 8 Jan 2014 23:17:45 -0500 Subject: [PATCH] Improve test-sysdef-asdf: test for fallback vs the real thing. Remove trace on clisp --- test/test-sysdef-asdf.script | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/test/test-sysdef-asdf.script b/test/test-sysdef-asdf.script index 856ca3cdf..e3943185e 100644 --- a/test/test-sysdef-asdf.script +++ b/test/test-sysdef-asdf.script @@ -1,15 +1,22 @@ ;;; -*- Lisp -*- +;; Empty configuration: no asdf.asd (initialize-source-registry '(:source-registry :ignore-inherited-configuration)) (load-system :asdf) +;; We didn't find it and got the fallback +(assert-equal nil (system-source-file (find-system :asdf))) +;; Proper configuration: asdf.asd from the source above (initialize-source-registry `(:source-registry (:directory ,*asdf-directory*) (:directory ,*uiop-directory*) :ignore-inherited-configuration)) (load-system :asdf) +;; This time we found it +(assert-pathname-equal (subpathname *asdf-directory* "asdf.asd") + (system-source-file (find-system :asdf))) (defun system-lisp-files (system) (loop :for f :in (required-components system :keep-component 'cl-source-file) @@ -22,8 +29,6 @@ :output :string :error-output t :directory *asdf-directory*) :separator #(#\space #\newline #\return #\tab)))) -#+clisp (trace run-program reduce/strcat) - (defmacro compare-files (system target) `(assert-equal (system-lisp-files ,system) (makefile-lisp-files ,target))) -- GitLab