From d597605d24e8c1897c034b7db0ac3f6c22984526 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 6 May 2008 11:48:46 +0000
Subject: [PATCH] fix some 'unit' tests

svn: r9680
---
 collects/tests/units/test-unit-compiletime.ss |  4 ++--
 collects/tests/units/test-unit.ss             | 15 +++++++--------
 2 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/collects/tests/units/test-unit-compiletime.ss b/collects/tests/units/test-unit-compiletime.ss
index 07b18a2cc5..7d29f20850 100644
--- a/collects/tests/units/test-unit-compiletime.ss
+++ b/collects/tests/units/test-unit-compiletime.ss
@@ -1,5 +1,5 @@
-(require-for-syntax (lib "unit-compiletime.ss" "mzlib" "private")
-                    (lib "unit-syntax.ss" "mzlib" "private"))
+(require (for-syntax (lib "unit-compiletime.ss" "mzlib" "private")
+                     (lib "unit-syntax.ss" "mzlib" "private")))
 (require "test-harness.ss"
          (lib "unit-compiletime.ss" "mzlib" "private")
          (lib "unit-keywords.ss" "mzlib" "private")
diff --git a/collects/tests/units/test-unit.ss b/collects/tests/units/test-unit.ss
index 0c63eaaa9a..e1c2ac2f2d 100644
--- a/collects/tests/units/test-unit.ss
+++ b/collects/tests/units/test-unit.ss
@@ -1,8 +1,8 @@
-(require-for-syntax (lib "unit-compiletime.ss" "mzlib" "private")
-                    (lib "unit-syntax.ss" "mzlib" "private"))
+(require (for-syntax (lib "unit-compiletime.ss" "mzlib" "private")
+                     (lib "unit-syntax.ss" "mzlib" "private")))
 (require "test-harness.ss"
          ;unit
-         mzlib/unit)
+         scheme/unit)
 
 (define-syntax (lookup-sig-mac stx)
   (parameterize ((error-syntax stx))
@@ -1153,7 +1153,6 @@
 (test-syntax-error "struct: bad omission"
   (define-signature x ((struct n () x))))
 
-(require mzlib/plt-match)
 (let ()
   (define-signature sig ((struct s (x y))))
   (test 3
@@ -1182,21 +1181,21 @@
     (test #t (s? (make-s 1))))
 
   (let ((set-s-x! 1))
-    (define-signature sig ((struct s (x y) -setters)))
+    (define-signature sig ((struct s (x y))))
     (test 1
       (invoke-unit
        (compound-unit (import) (export)
                       (link (((S : sig)) (unit (import) (export sig) (define-struct s (x y))))
                             (() (unit (import sig) (export)
                                       set-s-x!) S))))))
-  (let ((s-x 1))
-    (define-signature sig ((struct s (x y) -selectors)))
+  (let ((make-s 1))
+    (define-signature sig ((struct s (x y) #:omit-constructor)))
     (test 1
       (invoke-unit
        (compound-unit (import) (export)
                       (link (((S : sig)) (unit (import) (export sig) (define-struct s (x y))))
                             (() (unit (import sig) (export)
-                                      s-x) S)))))))
+                                      make-s) S)))))))
 
 ;; Dependencies