X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=guile18%2Ftest-suite%2Fstandalone%2Ftest-require-extension;fp=guile18%2Ftest-suite%2Fstandalone%2Ftest-require-extension;h=69f18589aaf6949294f33c5b8a996b9e975b7698;hb=2fef7b7eb7ac5d7a2ed237bf22a6ec6fe5d946d9;hp=0000000000000000000000000000000000000000;hpb=74daefdc62920b729061cb8711b63890de1f0c17;p=lilypond.git

diff --git a/guile18/test-suite/standalone/test-require-extension b/guile18/test-suite/standalone/test-require-extension
new file mode 100755
index 0000000000..69f18589aa
--- /dev/null
+++ b/guile18/test-suite/standalone/test-require-extension
@@ -0,0 +1,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