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

test: hopefully improve debugging information in test-program

for bugs in the make-hello-world subprocess.
parent d4f4a211
No related branches found
No related tags found
No related merge requests found
...@@ -40,7 +40,7 @@ ...@@ -40,7 +40,7 @@
#+allegro :lisp-path #+allegro *lisp* #+allegro :lisp-path #+allegro *lisp*
:load (native-namestring (subpathname *test-directory* "make-hello-world.lisp")) :load (native-namestring (subpathname *test-directory* "make-hello-world.lisp"))
:eval "(asdf-test::make-hello-image)") :eval "(asdf-test::make-hello-image)")
:output t :error-output :output :input nil)) :output :interactive :error-output :interactive :input nil))
0) 0)
(assert (probe-file* img) () "Can't find image file ~S" img) (assert (probe-file* img) () "Can't find image file ~S" img)
...@@ -92,7 +92,7 @@ ...@@ -92,7 +92,7 @@
#+allegro :lisp-path #+allegro *lisp* #+allegro :lisp-path #+allegro *lisp*
:load (native-namestring (subpathname *test-directory* "make-hello-world.lisp")) :load (native-namestring (subpathname *test-directory* "make-hello-world.lisp"))
:eval "(asdf-test::make-hello-program)") :eval "(asdf-test::make-hello-program)")
:output t :error-output :output :input nil)) :output :interactive :error-output :interactive :input nil))
0) 0)
(assert (probe-file* exe) () "Can't find executable file ~S" exe) (assert (probe-file* exe) () "Can't find executable file ~S" exe)
......
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