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

..

Browse Source 
original commit: be1fdd992867a7067aae40c45678ddc7b4973626
This commit is contained in:
Robby Findler 2002-10-27 20:27:45 +00:00
parent 7de900b38b
commit bd6a071a0e
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/tests/mzscheme/contracts.ss
View File

@ -501,7 +501,23 @@
(s? (make-s 1))
(set-s-a! (make-s 1) 2)))))
))
(test/spec-passed
'provide/contract4
'(let ()
(eval '(module contract-test-suite5 mzscheme
(require (lib "contracts.ss"))
(provide/contract (struct s ((a any?)))
(struct t ((a any?))))
(define-struct s (a))
(define-struct t (a))))
(eval '(require contract-test-suite5))
(eval '(list (make-s 1)
(s-a (make-s 1))
(s? (make-s 1))
(set-s-a! (make-s 1) 2)
(make-t 1)
(t-a (make-t 1))
(t? (make-t 1))
(set-t-a! (make-t 1) 2)))))))
(report-errs)