From f376519eedc3b0afc4583d43e82123fdcc5b778b Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Fri, 21 Aug 2015 00:04:40 -0400 Subject: [PATCH] tests for changes to mzlib/pconvert on immutable hash-tables goes with https://github.com/racket/pconvert-lib/pull/2 --- compatibility-test/tests/mzlib/pconvert.rktl | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/compatibility-test/tests/mzlib/pconvert.rktl b/compatibility-test/tests/mzlib/pconvert.rktl index 523a24d..048b9c4 100644 --- a/compatibility-test/tests/mzlib/pconvert.rktl +++ b/compatibility-test/tests/mzlib/pconvert.rktl @@ -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 ()