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

#!/bin/sh

set -e

! guile -c '(require-extension 7)' 2> /dev/null
! guile -c '(require-extension (blarg))' 2> /dev/null
! guile -c '(require-extension (srfi "foo"))' 2> /dev/null

guile -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
guile -c '(require-extension (srfi))'

exit 0
Commit	Line	Data
b0f2a9b4 RB	1	#!/bin/sh
	2
	3	set -e
	4
	5	! guile -c '(require-extension 7)' 2> /dev/null
	6	! guile -c '(require-extension (blarg))' 2> /dev/null
	7	! guile -c '(require-extension (srfi "foo"))' 2> /dev/null
	8
	9	guile -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
	10	guile -c '(require-extension (srfi))'
	11
	12	exit 0