diff options
Diffstat (limited to 'test-suite/standalone/test-import-order')
-rwxr-xr-x | test-suite/standalone/test-import-order | 31 |
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 |