mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-10 03:10:25 +02:00
f41529c37b
So that they use the guile (or guile.exe, in the MinGW case) that was
just built, and not just any guile that can be found in the PATH.
* test-suite/standalone/test-asmobs: Use ${GUILE:-guile} instead of
guile.
* test-suite/standalone/test-bad-identifiers: Ditto.
* test-suite/standalone/test-fast-slot-ref.in: Ditto.
* test-suite/standalone/test-require-extension: Ditto.
* test-suite/standalone/test-system-cmds: Ditto.
* test-suite/standalone/test-use-srfi.in: Ditto.
18 lines
586 B
Bash
Executable file
18 lines
586 B
Bash
Executable file
#!/bin/sh
|
|
|
|
set -e
|
|
|
|
# expect these to throw errors, if they succeed it's wrong
|
|
#
|
|
# (Note the syntax "! guile -c ..." isn't used here, because that doesn't
|
|
# work on Solaris 10.)
|
|
#
|
|
${GUILE:-guile} -q -c '(require-extension 7)' 2>/dev/null && exit 1
|
|
${GUILE:-guile} -q -c '(require-extension (blarg))' 2>/dev/null && exit 1
|
|
${GUILE:-guile} -q -c '(require-extension (srfi "foo"))' 2>/dev/null && exit 1
|
|
|
|
# expect these to succeed
|
|
${GUILE:-guile} -q -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
|
|
${GUILE:-guile} -q -c '(require-extension (srfi))'
|
|
|
|
exit 0
|