suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more tests

Browse Source 
original commit: 44dcd5ea5a98be651984cfc1e06937ac7cc7a3b2
This commit is contained in:
Matthew Flatt 1998-03-15 14:14:03 +00:00
parent cd403e671f
commit 5a5a4dd657
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/mzscheme/unit.ss
View File

@ -353,6 +353,17 @@
(test #t unit? u2) (test #t unit? u2)
(test 5 'invoke-unit-in-unit (invoke-unit u2)) (test 5 'invoke-unit-in-unit (invoke-unit u2))
(syntax-test '(define u
(invoke-unit
(unit
(import) (export)
(define x 10)
x
(unit (import) (export)
apple
x)))))
; Units and objects combined: ; Units and objects combined:
(define u@ (define u@

5
collects/tests/mzscheme/unitsig.ss
View File

@ -143,6 +143,10 @@
(test #t unit/sig? (compound-unit/sig (import (i : a)) (link (b@ : b (b@))) (export (open b@)))) (test #t unit/sig? (compound-unit/sig (import (i : a)) (link (b@ : b (b@))) (export (open b@))))
(test #t unit/sig? (compound-unit/sig (import (i : a)) (link (b@ : b (b@))) (export (open (b@ : b))))) (test #t unit/sig? (compound-unit/sig (import (i : a)) (link (b@ : b (b@))) (export (open (b@ : b)))))
(test #t unit/sig? (compound-unit/sig (import)
(link [compound-unit : () ((unit/sig () (import) 10))])
(export)))
; Include: ; Include:
(define i1@ (define i1@
@ -244,7 +248,6 @@
(define m2-3@ (define m2-3@
(compound-unit/sig (compound-unit/sig
(import) (import)
(link [O@ : m2-1^ (m2-1@)] (link [O@ : m2-1^ (m2-1@)]
[T@ : m2-2^ (m2-2@ O@)]) [T@ : m2-2^ (m2-2@ O@)])