[bpt/guile.git] / test-suite / standalone / test-require-extension

#!/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 -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 -q -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
guile -q -c '(require-extension (srfi))'

exit 0
Commit	Line	Data
b0f2a9b4 RB	1	#!/bin/sh
	2
	3	set -e
	4
8ab3d8a0 KR	5	# expect these to throw errors, if they succeed it's wrong
	6	#
	7	# (Note the syntax "! guile -c ..." isn't used here, because that doesn't
	8	# work on Solaris 10.)
	9	#
8722d99a LC	10	guile -q -c '(require-extension 7)' 2>/dev/null && exit 1
	11	guile -q -c '(require-extension (blarg))' 2>/dev/null && exit 1
	12	guile -q -c '(require-extension (srfi "foo"))' 2>/dev/null && exit 1
b0f2a9b4	13
8ab3d8a0	14	# expect these to succeed
8722d99a LC	15	guile -q -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
8722d99a LC	16	guile -q -c '(require-extension (srfi))'
b0f2a9b4 RB	17
b0f2a9b4 RB	18	exit 0