guile18/test-suite/standalone/test-require-extension

   1 #!/bin/sh
   2
   3 set -e
   4
   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 #
  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
  13
  14 # expect these to succeed
  15 guile -q -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
  16 guile -q -c '(require-extension (srfi))'
  17
  18 exit 0