test-suite/standalone/test-require-extension

   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