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

file-modify-seconds and undo unit changes

Browse Source 
original commit: c998d7ccd271b76fbc7e09f7a9a215c378c1b931
This commit is contained in:
Matthew Flatt 1998-03-11 14:25:43 +00:00
parent aef6468dd9
commit cd403e671f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,13 +58,13 @@
(syntax-test '(unit (import i) (export (a x) b) (define x 5) (define b 6)))
(syntax-test '(unit (import i) (export (a x) b) (set! a 5) (define b 6)))
; No identifiers in link/export:
(syntax-test '(compound-unit (import) (link (A (0 (A)))) (export)))
(syntax-test '(compound-unit (import) (link (A (0))) (export (A))))
(syntax-test '(compound-unit (import) (link (A (0 (B))) (B (0))) (export)))
(syntax-test '(compound-unit (import) (link (A (0)) (B (0))) (export (A x) (B))))
; Empty exports are syntactically ok::
(error-test '(compound-unit (import) (link (A (0))) (export (A))) exn:unit:non-unit?)
(error-test '(compound-unit (import) (link (A (0 (B))) (B (0))) (export)) exn:unit:non-unit?)
(error-test '(compound-unit (import) (link (A (0)) (B (0))) (export (A x) (B))) exn:unit:non-unit?)
; Self-import:
(syntax-test '(compound-unit (import) (link (A (0 (A)))) (export)))
(syntax-test '(compound-unit (import) (link (A (0 (A x)))) (export)))
(unless (defined? 'test-global-var)