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

Fix mzlib/unit tests for new undefined handling.

Browse Source 
original commit: 4872bdfb2fe6f1896d801145c5ef8530f59b23ca
This commit is contained in:
Sam Tobin-Hochstadt 2014-04-17 10:05:14 -04:00
parent c0cbbeccfb
commit faa3058442
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/compatibility-pkgs/compatibility-test/tests/mzlib/unit.rktl
View File

@ -3,6 +3,7 @@
(Section 'unit) (Section 'unit)
(require mzlib/unit200) (require mzlib/unit200)
(require racket/undefined)
;; Hide keywords from scheme/unit.rkt: ;; Hide keywords from scheme/unit.rkt:
(define import #f) (define import #f)
@ -68,7 +69,7 @@
; Self-import is now allowed ; Self-import is now allowed
; (syntax-test #'(compound-unit (import) (link (A (0 (A)))) (export))) ; (syntax-test #'(compound-unit (import) (link (A (0 (A)))) (export)))
; (syntax-test #'(compound-unit (import) (link (A (0 (A x)))) (export))) ; (syntax-test #'(compound-unit (import) (link (A (0 (A x)))) (export)))
(test (list (letrec ([x x]) x) 5) (test (list undefined 5)
'self-import 'self-import
(invoke-unit (invoke-unit
(compound-unit (compound-unit
@ -362,7 +363,7 @@
(test #t unit? u2) (test #t unit? u2)
(test 3 'invoke (invoke-unit u2)) (test 3 'invoke (invoke-unit u2))
(test (letrec ([x y][y 0]) x) 'invoke (test undefined #;(letrec ([x y][y 0]) x) 'invoke
(invoke-unit (unit (import) (export) (define x y) (define y 7) x))) (invoke-unit (unit (import) (export) (define x y) (define y 7) x)))
; Can shadow syntax/macros in unit ; Can shadow syntax/macros in unit