Fix another of the tests for units.

svn: r16452
This commit is contained in:
Stevie Strickland 2009-10-29 18:38:08 +00:00
parent 6d70a48de1
commit 4bad2f34c1

View File

@ -6,14 +6,14 @@
b)))
(module test2 mzscheme
(require mzlib/unit test1)
(require mzlib/unit 'test1)
(provide s2)
(define-signature s2 extends s1
((define-values (c) (list b a d))
d)))
(module test3 mzscheme
(require mzlib/unit test1 test2)
(require mzlib/unit 'test1 'test2)
(provide (all-defined))
(define-unit u1 (import s1) (export)
(list a b))
@ -27,7 +27,7 @@
(module test4 mzscheme
(require mzlib/unit test1 test2 test3)
(require mzlib/unit 'test1 'test2 'test3)
(require "test-harness.ss")
(test '(101 100)
(invoke-unit
@ -52,4 +52,4 @@
)
(require test4)
(require 'test4)