summaryrefslogtreecommitdiff
path: root/test-suite/tests/modules.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/modules.test')
-rw-r--r--test-suite/tests/modules.test4
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/modules.test b/test-suite/tests/modules.test
index 5f34d9e70..79e3c98e9 100644
--- a/test-suite/tests/modules.test
+++ b/test-suite/tests/modules.test
@@ -290,6 +290,10 @@
(import2 (make-module))
(handler-invoked? #f)
(handler (lambda (module name int1 val1 int2 val2 var val)
+ ;; We expect both VAR and VAL to be #f, as there
+ ;; is no previous binding for 'imported in M.
+ (if var (error "unexpected var" var))
+ (if val (error "unexpected val" val))
(set! handler-invoked? #t)
;; Keep the first binding.
(or var (module-local-variable int1 name)))))