summaryrefslogtreecommitdiff
path: root/test-suite/standalone/test-extensions
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/standalone/test-extensions')
-rwxr-xr-xtest-suite/standalone/test-extensions14
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/standalone/test-extensions b/test-suite/standalone/test-extensions
new file mode 100755
index 000000000..bea432de2
--- /dev/null
+++ b/test-suite/standalone/test-extensions
@@ -0,0 +1,14 @@
+#!/bin/sh
+exec guile -q -s "$0" "$@"
+!#
+
+(load-extension "libtest-extensions" "libtest_extensions_init")
+(load-extension "libtest-extensions" "libtest_extensions_init2")
+
+(or (= init2-count 1)
+ (error "init2 called more or less than one time"))
+
+
+;; Local Variables:
+;; mode: scheme
+;; End: \ No newline at end of file