From 0d20c71946868424e2c44cb32c54e6bc4e84db4d Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sun, 6 Jan 2013 20:23:52 -0500 Subject: [PATCH] Fix test for CLISP. --- test/test-concatenate-source.script | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/test-concatenate-source.script b/test/test-concatenate-source.script index 90f3ee88..95e9396d 100644 --- a/test/test-concatenate-source.script +++ b/test/test-concatenate-source.script @@ -15,10 +15,10 @@ (mlccso (asdf::make-operation 'asdf::monolithic-load-compiled-concatenated-source-op)) (sys (find-system :test-concatenate-source))) (assert (asdf::operation-monolithic-p mcso)) - (assert-equal - (input-files mcso sys) - (loop :for n :in '(3 1 2) - :collect (asdf::subpathname *test-directory* (format nil "file~D.lisp" n)))) + (assert-equal ;; on CLISP, we get un-equal pathnames with same namestrings. Sigh. + (princ-to-string (input-files mcso sys)) + (princ-to-string (loop :for n :in '(3 1 2) + :collect (asdf::subpathname *test-directory* (format nil "file~D.lisp" n))))) (assert-equal (output-file mcso sys) (apply-output-translations (asdf::subpathname *test-directory* "test-concatenate-source.lisp"))) -- GitLab