mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
13ff681c33
* test-suite/standalone/Makefile.am (top_srcdir): Add `top_srcdir'. (check_SCRIPTS, TESTS): Add `test-language'. (EXTRA_DIST): Add `test-language.el' and `test-language.js'. * test-suite/standalone/test-language, test-suite/standalone/test-language.el, test-suite/standalone/test-language.js: New files.
25 lines
785 B
Bash
Executable file
25 lines
785 B
Bash
Executable file
#!/bin/sh
|
|
|
|
set -e
|
|
|
|
# Make sure that code passed as `-c' or `-l' is evaluted using the
|
|
# right language.
|
|
|
|
# The default language in effect until `--language' is encountered is
|
|
# Scheme.
|
|
guile -c "(exit (= 3 (apply + '(1 2))))" --language=elisp
|
|
! guile -c "(= (funcall (symbol-function '+) 1 2) 3)" 2> /dev/null
|
|
|
|
guile --language=elisp -c "(= (funcall (symbol-function '+) 1 2) 3)"
|
|
guile --language=ecmascript -c '(function (x) { return x * x; })(2);'
|
|
|
|
# Same with `-l'.
|
|
guile --no-auto-compile -l "$top_srcdir/module/ice-9/q.scm" -c 1
|
|
guile --no-auto-compile \
|
|
-l "$top_srcdir/module/ice-9/q.scm" \
|
|
--language=elisp \
|
|
-l "$srcdir/test-language.el" \
|
|
--language=ecmascript \
|
|
-l "$srcdir/test-language.js" \
|
|
--language=scheme \
|
|
-c 1
|