Fix another of the tests for units.
svn: r16452
This commit is contained in:
parent
6d70a48de1
commit
4bad2f34c1
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user