From 8722d99a45ce09fbacad4a7bc6dff790bbf0af54 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 6 Jul 2008 23:58:15 +0200
Subject: [PATCH] Use `-q' when running standalone tests.

---
 test-suite/ChangeLog                         |  6 ++++++
 test-suite/standalone/test-asmobs            |  2 +-
 test-suite/standalone/test-bad-identifiers   |  2 +-
 test-suite/standalone/test-require-extension | 10 +++++-----
 test-suite/standalone/test-system-cmds       |  2 +-
 5 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 9b4cdd643..4c0d992b8 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,9 @@
+2008-07-06  Ludovic Courtès  <ludo@gnu.org>
+
+	* standalone/test-asmobs, standalone/test-bad-identifiers,
+	standalone/test-require-extension, standalone/test-system-cmds:
+	Invoke `guile' with `-q'.
+
 2008-06-02  Ludovic Courtès  <ludo@gnu.org>
 
 	* standalone/test-conversion.c: Support systems whose
diff --git a/test-suite/standalone/test-asmobs b/test-suite/standalone/test-asmobs
index 19557e0f1..2ea75d9bf 100755
--- a/test-suite/standalone/test-asmobs
+++ b/test-suite/standalone/test-asmobs
@@ -1,5 +1,5 @@
 #!/bin/sh
-exec guile -s "$0" "$@"
+exec guile -q -s "$0" "$@"
 !#
 
 (load-extension "libtest-asmobs" "libtest_asmobs_init")
diff --git a/test-suite/standalone/test-bad-identifiers b/test-suite/standalone/test-bad-identifiers
index 6462dbdbe..e7af5a1d1 100755
--- a/test-suite/standalone/test-bad-identifiers
+++ b/test-suite/standalone/test-bad-identifiers
@@ -1,5 +1,5 @@
 #!/bin/sh
-exec guile -s "$0" "$@"
+exec guile -q -s "$0" "$@"
 !#
 
 ;; The use of certain identifiers as variable or parameter names has
diff --git a/test-suite/standalone/test-require-extension b/test-suite/standalone/test-require-extension
index 730137b55..69f18589a 100755
--- a/test-suite/standalone/test-require-extension
+++ b/test-suite/standalone/test-require-extension
@@ -7,12 +7,12 @@ set -e
 # (Note the syntax "! guile -c ..." isn't used here, because that doesn't
 # work on Solaris 10.)
 #
-guile -c '(require-extension 7)' 2>/dev/null            && exit 1
-guile -c '(require-extension (blarg))' 2>/dev/null      && exit 1
-guile -c '(require-extension (srfi "foo"))' 2>/dev/null && exit 1
+guile -q -c '(require-extension 7)' 2>/dev/null            && exit 1
+guile -q -c '(require-extension (blarg))' 2>/dev/null      && exit 1
+guile -q -c '(require-extension (srfi "foo"))' 2>/dev/null && exit 1
 
 # expect these to succeed
-guile -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
-guile -c '(require-extension (srfi))'
+guile -q -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
+guile -q -c '(require-extension (srfi))'
 
 exit 0
diff --git a/test-suite/standalone/test-system-cmds b/test-suite/standalone/test-system-cmds
index d0e4a6991..f5007297e 100755
--- a/test-suite/standalone/test-system-cmds
+++ b/test-suite/standalone/test-system-cmds
@@ -1,5 +1,5 @@
 #!/bin/sh
-exec guile -s "$0" "$@"
+exec guile -q -s "$0" "$@"
 !#
 
 (define (test-system-cmd)