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

.

Browse Source 
original commit: 83c36d8311a5021406c7c3817da7659765f64df9
This commit is contained in:
Robby Findler 2004-10-12 22:43:41 +00:00
parent cd84bb89a0
commit 7f8d2ed4e8
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,10 +209,18 @@
'(case-lambda [() ...] [args ...]))
(make-same-test (case-lambda [() 'a] [(x y z) 'a] [x 'a])
'(case-lambda [() ...] [(a1 a2 a3) ...] [args ...]))
(make-same-test (make-hash-table)
'(hash-table))
(make-same-test (make-hash-table 'weak)
'(hash-table 'weak))
(make-same-test (make-hash-table 'equal)
'(hash-table 'equal))
(make-same-test (make-hash-table 'equal 'weak)
'(hash-table 'equal 'weak))
(make-same-test (let ([ht (make-hash-table)])
(hash-table-put! ht 'x 1)
ht)
'(make-hash-table))
'(hash-table ('x 1)))
(make-pctest (list 'a (box (list ())) (cons 1 '()))
'(list (quote a) (box (list empty)) (list 1))
'(list (quote a) (box (list empty)) (list 1))
@ -360,7 +368,7 @@
(test-shared (vector 1 2 3) '(vector 1 2 3))
(let () (define-struct a () (make-inspector)) (test-shared (make-a) '(make-a)))
(test-shared (box 1) '(box 1))
(test-shared (make-hash-table) '(make-hash-table)))
(test-shared (make-hash-table) '(hash-table)))
(arity-test print-convert 1 2)
(arity-test build-share 1 1)