File: test-require-extension

package info (click to toggle)
guile-2.0 2.0.11%2B1-9
  • links: PTS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 27,612 kB
  • sloc: ansic: 132,286; lisp: 67,206; sh: 4,593; makefile: 1,977; perl: 243; awk: 37
file content (18 lines) | stat: -rwxr-xr-x 536 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/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