From b477015fa1eb1661da255969debf5610a6d2b1fb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 18 Feb 2001 19:24:20 +0000 Subject: [PATCH] . original commit: 4a8724dd798caed158672759236c2e90ef3c9535 --- collects/tests/mzscheme/unit.ss | 7 +++---- collects/tests/mzscheme/unitsig.ss | 9 ++++----- 2 files changed, 7 insertions(+), 9 deletions(-) diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss index ecec74b..9c7240a 100644 --- a/collects/tests/mzscheme/unit.ss +++ b/collects/tests/mzscheme/unit.ss @@ -1,9 +1,8 @@ -(if (not (defined? 'SECTION)) - (load-relative "testing.ss")) +(load-relative "loadtest.ss") (SECTION 'unit) -(import (lib "unit.ss")) +(require (lib "unit.ss")) (syntax-test #'(unit)) (syntax-test #'(unit (import))) @@ -319,7 +318,7 @@ ; Units and objects combined: -(import (lib "class.ss")) +(require (lib "class.ss")) (define u@ (unit (import x) (export) diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss index 21598a1..db7b790 100644 --- a/collects/tests/mzscheme/unitsig.ss +++ b/collects/tests/mzscheme/unitsig.ss @@ -1,10 +1,9 @@ -(if (not (defined? 'SECTION)) - (load-relative "testing.ss")) +(load-relative "loadtest.ss") -(import (lib "unit.ss")) -(import (lib "unitsig.ss")) -(import (lib "include.ss")) +(require (lib "unit.ss")) +(require (lib "unitsig.ss")) +(require (lib "include.ss")) (SECTION 'unit/sig)