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

...

Browse Source 
original commit: 3c8c153e5c7faa3deddc5f6a33de17e61060b4a4
This commit is contained in:
Robby Findler 2001-01-05 18:36:17 +00:00
parent 8a01b429af
commit ca617eea1e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/pconvert.ss
View File

@ -220,6 +220,14 @@
(cons (box (cons empty empty))
(cons (cons 1 empty)
empty))))
(make-test (list "" "" (vector) (vector))
'(list "" "" (vector) (vector))
'(list "" "" (vector) (vector))
'(list "" "" (vector) (vector))
'`("" "" ,(vector) ,(vector))
'`("" "" ,(vector) ,(vector))
'`("" "" ,(vector) ,(vector))
'(cons "" (cons "" (cons (vector) (cons (vector) empty)))))
(make-test (let ([x (list 1)]) (set-car! x x) x)
'(shared ([-0- (list -0-)]) -0-)
'(shared ([-0- (list -0-)]) -0-)