mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

Use `-q' when running standalone tests.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/ChangeLog
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> 2008-06-02 Ludovic Courtès <ludo@gnu.org>
* standalone/test-conversion.c: Support systems whose * standalone/test-conversion.c: Support systems whose

2
test-suite/standalone/test-asmobs
View file

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

2
test-suite/standalone/test-bad-identifiers
View file

@ -1,5 +1,5 @@
#!/bin/sh #!/bin/sh
exec guile -s "$0" "$@" exec guile -q -s "$0" "$@"
!# !#
;; The use of certain identifiers as variable or parameter names has ;; The use of certain identifiers as variable or parameter names has

10
test-suite/standalone/test-require-extension
View file

@ -7,12 +7,12 @@ set -e
# (Note the syntax "! guile -c ..." isn't used here, because that doesn't # (Note the syntax "! guile -c ..." isn't used here, because that doesn't
# work on Solaris 10.) # work on Solaris 10.)
# #
guile -c '(require-extension 7)' 2>/dev/null && exit 1 guile -q -c '(require-extension 7)' 2>/dev/null && exit 1
guile -c '(require-extension (blarg))' 2>/dev/null && exit 1 guile -q -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 (srfi "foo"))' 2>/dev/null && exit 1
# expect these to succeed # expect these to succeed
guile -c '(require-extension (srfi 1)) (exit (procedure? take-right))' guile -q -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
guile -c '(require-extension (srfi))' guile -q -c '(require-extension (srfi))'
exit 0 exit 0

2
test-suite/standalone/test-system-cmds
View file

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