From 1aa7740967860e9c0d8d5c029d4495a2070d7c79 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 6 Jan 1998 15:53:26 +0000 Subject: [PATCH] . original commit: 04c65b16f821c4adac1782e73c296d0ba167e160 --- collects/tests/mzscheme/unit.ss | 5 +++++ collects/tests/mzscheme/unitsig.ss | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss index 3c248cd..1cada27 100644 --- a/collects/tests/mzscheme/unit.ss +++ b/collects/tests/mzscheme/unit.ss @@ -418,4 +418,9 @@ (export) (define define-values 10))) +(test #t unit? (unit + (import define-values) + (export) + (let () (define define-values 10) define-values))) + (report-errs) diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss index 50cc969..201798f 100644 --- a/collects/tests/mzscheme/unitsig.ss +++ b/collects/tests/mzscheme/unitsig.ss @@ -464,8 +464,12 @@ ; Not ok if defining an imported name, but error should be about ; redefining an imported name. (This behavior is not actually tested.) (syntax-test '(unit/sig () - (import (define-values) ) + (import (define-values)) (define define-values 17))) +(test #t unit/sig? (unit/sig () + (import (define-values)) + (let () (define define-values 10) define-values))) + (report-errs)