summaryrefslogtreecommitdiff
path: root/test-suite/standalone/test-import-order
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/standalone/test-import-order')
-rwxr-xr-xtest-suite/standalone/test-import-order31
1 files changed, 31 insertions, 0 deletions
diff --git a/test-suite/standalone/test-import-order b/test-suite/standalone/test-import-order
new file mode 100755
index 000000000..8b51312a9
--- /dev/null
+++ b/test-suite/standalone/test-import-order
@@ -0,0 +1,31 @@
+#!/bin/sh
+exec guile -q -L "$srcdir" -s "$0" "$@"
+!#
+
+(define-module (base)
+ #:export (push! order))
+
+(define order '())
+(define (push!)
+ (set! order `(,@order ,(module-name (current-module)))))
+
+(define-module (test-1)
+ #:use-module (base)
+ #:use-module (test-import-order-a)
+ #:use-module (test-import-order-b))
+
+(use-modules (test-import-order-c) (test-import-order-d))
+
+(if (not (equal? order
+ '((test-import-order-a)
+ (test-import-order-b)
+ (test-import-order-c)
+ (test-import-order-d))))
+ (begin
+ (format (current-error-port) "Unexpected import order: ~a" order)
+ (exit 1))
+ (exit 0))
+
+;; Local Variables:
+;; mode: scheme
+;; End: \ No newline at end of file