1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +02:00

Use `-q' when running standalone tests.

This commit is contained in:
Ludovic Courtès 2008-07-06 23:58:15 +02:00
parent fb4f418926
commit 10a529b027
5 changed files with 14 additions and 8 deletions

View file

@ -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

View file

@ -1,5 +1,5 @@
#!/bin/sh
exec guile -s "$0" "$@"
exec guile -q -s "$0" "$@"
!#
(load-extension "libtest-asmobs" "libtest_asmobs_init")

View file

@ -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

View file

@ -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

View file

@ -1,5 +1,5 @@
#!/bin/sh
exec guile -s "$0" "$@"
exec guile -q -s "$0" "$@"
!#
(define (test-system-cmd)