mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
7ad0737de9
* test-suite/standalone/Makefile.am (GUILE_AUTO_COMPILE): Add srcdir to the environment. * test-suite/standalone/test-import-order: Look for the modules in the srcdir. Fixes out-of-tree builds.
31 lines
No EOL
726 B
Scheme
Executable file
31 lines
No EOL
726 B
Scheme
Executable file
#!/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: |