[bpt/guile.git] / test-suite / standalone / test-import-order

#!/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:
Commit	Line	Data
ad4bd7c2	1	#!/bin/sh
7ad0737d	2	exec guile -q -L "$srcdir" -s "$0" "$@"
ad4bd7c2 AW	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: