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

tests for changes to mzlib/pconvert on immutable hash-tables

Browse Source 
goes with https://github.com/racket/pconvert-lib/pull/2
This commit is contained in:
AlexKnauth 2015-08-21 00:04:40 -04:00 committed by Robby Findler
parent be6ae83cbd
commit f376519eed
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compatibility-test/tests/mzlib/pconvert.rktl
View File

@ -217,6 +217,12 @@
(hash-set! ht 'x 1)
ht)
'(make-hash (list (cons 'x 1))))
(make-same-test (make-immutable-hasheq)
'(make-immutable-hasheq))
(make-same-test (make-immutable-hash)
'(make-immutable-hash))
(make-same-test (make-immutable-hash (list (cons 'x 1)))
'(make-immutable-hash (list (cons '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))
@ -321,13 +327,13 @@
(-8- `(,-4- ,-5- (2 3))))
-0-))
(make-pctest (read (open-input-string "#hasheq((#0=(1 . #0#) . a))"))
'(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a)))))))
'(shared ((-1- (cons 1 -1-))) (make-immutable-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-immutable-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-immutable-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-immutable-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-immutable-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-immutable-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-immutable-hasheq (list (cons -1- 'a)))))))
(for-each run-test tests))
(let ()