diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-07 11:41:00 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-07 11:42:29 +0100 |
commit | 1ce645567d40537eb3603215c6b569033eb55d01 (patch) | |
tree | 72ae2e8677c67faca05a9a49c4d6879414486945 | |
parent | 19ef14f9b8b73c04acbbfa6bd993908171bc69f7 (diff) | |
download | guile-1ce645567d40537eb3603215c6b569033eb55d01.tar.gz |
add scoping test
* test-suite/tests/syntax.test ("top-level define"): Add a test for
module scoping of introduced identifiers.
-rw-r--r-- | test-suite/tests/syntax.test | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index f6eb28a67..31d992120 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -795,7 +795,24 @@ (pass-if-syntax-error "(define)" exception:generic-syncase-error (eval '(define) - (interaction-environment))))) + (interaction-environment)))) + + (pass-if "module scoping" + (equal? + (eval + '(begin + (define-module (top-level-define/module-scoping-1) + #:export (define-10)) + (define-syntax-rule (define-10 name) + (begin + (define t 10) + (define (name) t))) + (define-module (top-level-define/module-scoping-2) + #:use-module (top-level-define/module-scoping-1)) + (define-10 foo) + (foo)) + (current-module)) + 10))) (with-test-prefix "internal define" |