test-suite/standalone/test-import-order

   1 #!/bin/sh
   2 exec guile -q -L "$srcdir" -s "$0" "$@"
   3 !#
   4
   5 (define-module (base)
   6   #:export (push! order))
   7
   8 (define order '())
   9 (define (push!)
  10   (set! order `(,@order ,(module-name (current-module)))))
  11
  12 (define-module (test-1)
  13   #:use-module (base)
  14   #:use-module (test-import-order-a)
  15   #:use-module (test-import-order-b))
  16
  17 (use-modules (test-import-order-c) (test-import-order-d))
  18
  19 (if (not (equal? order
  20                  '((test-import-order-a)
  21                    (test-import-order-b)
  22                    (test-import-order-c)
  23                    (test-import-order-d))))
  24     (begin
  25       (format (current-error-port) "Unexpected import order: ~a" order)
  26       (exit 1))
  27     (exit 0))
  28
  29 ;; Local Variables:
  30 ;; mode: scheme
  31 ;; End: