From b86c77fd555023c46b5198e22882c0e8aa1c6ca0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 12 Mar 2004 13:43:00 +0000 Subject: [PATCH] . original commit: dd4c0c2ada2b0fa837737d541f008a9e7700c571 --- collects/tests/mzscheme/unit.ss | 2 +- collects/tests/mzscheme/unitsig.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss index af319fb..e10d509 100644 --- a/collects/tests/mzscheme/unit.ss +++ b/collects/tests/mzscheme/unit.ss @@ -72,7 +72,7 @@ (U b))]) (export)))) -(error-test #'(invoke-unit (unit (import not-defined) (export) 10) not-defined) exn:variable?) +(error-test #'(invoke-unit (unit (import not-defined) (export) 10) not-defined) exn:fail:contract:variable?) (test #t unit? (unit (import) (export))) (test #t unit? (unit (import) (export) 5)) diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss index f373605..0c54754 100644 --- a/collects/tests/mzscheme/unitsig.ss +++ b/collects/tests/mzscheme/unitsig.ss @@ -132,7 +132,7 @@ (export)))) (define-signature not-defined^ (not-defined)) -(error-test #'(invoke-unit/sig (unit/sig () (import not-defined^) 10) not-defined^) exn:variable?) +(error-test #'(invoke-unit/sig (unit/sig () (import not-defined^) 10) not-defined^) exn:fail:contract:variable?) (test #t unit/sig? (unit/sig a (import))) (test #t unit/sig? (unit/sig b (import) (define x 1) (define y 2)))