From 18bcccf895cfdccb27ccbb41ce5436e05aeb92e1 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sun, 13 Apr 2014 11:36:32 -0400 Subject: [PATCH] test: hopefully improve debugging information in test-program for bugs in the make-hello-world subprocess. --- test/test-program.script | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/test-program.script b/test/test-program.script index eb9e5eb4..a7702d57 100644 --- a/test/test-program.script +++ b/test/test-program.script @@ -40,7 +40,7 @@ #+allegro :lisp-path #+allegro *lisp* :load (native-namestring (subpathname *test-directory* "make-hello-world.lisp")) :eval "(asdf-test::make-hello-image)") - :output t :error-output :output :input nil)) + :output :interactive :error-output :interactive :input nil)) 0) (assert (probe-file* img) () "Can't find image file ~S" img) @@ -92,7 +92,7 @@ #+allegro :lisp-path #+allegro *lisp* :load (native-namestring (subpathname *test-directory* "make-hello-world.lisp")) :eval "(asdf-test::make-hello-program)") - :output t :error-output :output :input nil)) + :output :interactive :error-output :interactive :input nil)) 0) (assert (probe-file* exe) () "Can't find executable file ~S" exe) -- GitLab