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