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

test for: fix bug field counts for struct-type-info result

Browse Source 
svn: r5895
This commit is contained in:
Matthew Flatt 2007-04-09 02:26:38 +00:00
parent b45664c279
commit b41a2abf23
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -98,7 +98,8 @@
(let-values ([(prop:p3 p3? p3-ref) (make-struct-type-property 'prop3)]
[(prop:p4 p4? p4-ref) (make-struct-type-property 'prop4)])
(let-values ([(btype bmake bpred bsel bset) (make-struct-type 'b type 0 3 'unun (list (cons prop:p3 33) (cons prop:p4 44)) (make-inspector insp2))]
[(btypex bmakex bpredx bselx bsetx) (make-struct-type 'bx typex 1 5 'nope (list (cons prop:p3 330)) (make-inspector insp1))])
[(btypex bmakex bpredx bselx bsetx) (make-struct-type 'bx typex 1 5 'nope (list (cons prop:p3 330)) (make-inspector insp1))]
[(ctype cmake cpred csel cset) (make-struct-type 'c type 3 2 #f null (make-inspector insp1))])
(arity-test bmake 2 2)
(arity-test bmakex 1 1)
@ -180,6 +181,8 @@
(put a-bx 0 'yep)
(test 'yep get a-bx 0)
(test (list 'bx 1 5 null #f #t) list name isize asize const super skipped?))
(let-values ([(name isize asize get put const super skipped?) (struct-type-info ctype)])
(test (list 'c 3 2 null type #f) list name isize asize const super skipped?))
'...))))))))