Skip to content
Snippets Groups Projects
Commit 347bcab6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Try to debug test-program.script on CLISP, it unbreaks the test (!)

Tweak some test output.
parent 8e8cb498
No related branches found
No related tags found
No related merge requests found
...@@ -142,7 +142,7 @@ Some constraints: ...@@ -142,7 +142,7 @@ Some constraints:
(defun assert-pathname-equal-helper (qx x qy y) (defun assert-pathname-equal-helper (qx x qy y)
(cond (cond
((equal x y) ((equal x y)
(format t "~S and ~S both evaluate to same path:~% ~S~%" qx qy x)) (format t "~S and~% ~S both evaluate to same path:~% ~S~%" qx qy x))
((ucall :pathname-equal x y) ((ucall :pathname-equal x y)
(warn "These two expressions yield pathname-equal yet not equal path~%~ (warn "These two expressions yield pathname-equal yet not equal path~%~
the first expression ~S yields this:~% ~S~% ~S~% the first expression ~S yields this:~% ~S~% ~S~%
...@@ -532,7 +532,9 @@ is bound, write a message and exit on an error. If ...@@ -532,7 +532,9 @@ is bound, write a message and exit on an error. If
(asym :pathname-equal)) (asym :pathname-equal))
(format t "Comparing directories~%") (format t "Comparing directories~%")
(let ((x (acall :pathname-directory-pathname (nth-value 2 (acall :locate-system :test-asdf))))) (let ((x (acall :pathname-directory-pathname (nth-value 2 (acall :locate-system :test-asdf)))))
(assert-pathname-equal *test-directory* x) ;; not always EQUAL (!) (assert-pathname-equal-helper ;; not always EQUAL (!)
'*test-directory* *test-directory*
'(:pathname-directory-pathname (nth-value 2 (:locate-system :test-asdf))) x)
(unless (equal *test-directory* x) (unless (equal *test-directory* x)
(format t "Interestingly, while *test-directory* has components~% ~S~%~ (format t "Interestingly, while *test-directory* has components~% ~S~%~
ASDF finds the ASDs in~% ~S~%Using the latter.~%" ASDF finds the ASDs in~% ~S~%Using the latter.~%"
......
...@@ -30,11 +30,12 @@ ...@@ -30,11 +30,12 @@
(delete-file-if-exists exe) (delete-file-if-exists exe)
(assert-equal (assert-equal
(multiple-value-list (nth-value 2
(run-program (run-program
(symbol-call :lisp-invocation :lisp-invocation-arglist (symbol-call :lisp-invocation :lisp-invocation-arglist
:load (native-namestring (subpathname *test-directory* "make-hello-world.lisp"))))) :load (native-namestring (subpathname *test-directory* "make-hello-world.lisp")))
'(nil nil 0)) :output t :error-output :output :input nil))
0)
(assert (probe-file* exe)) (assert (probe-file* exe))
(assert-equal (run-program `(,(native-namestring exe)) :output :lines) (assert-equal (run-program `(,(native-namestring exe)) :output :lines)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment