adjust a test for Racket CS
The fact that Racket uses double hashing and Racket CS uses single hashing can show up in a test that supplies a `equal-key-proc` argument to `{impersonate,chaperone}-hash`.
This commit is contained in:
parent
e0d454040a
commit
2bff59766d
|
@ -632,7 +632,10 @@
|
|||
(mutable-set 1)
|
||||
(λ (s) (set-remove! s 1))
|
||||
#f)
|
||||
(test '((inject 2) (equal-key 2) (equal-key 2))
|
||||
(test (if (eq? 'chez-scheme (system-type 'vm))
|
||||
;; No secondary hash on Racket CS:
|
||||
'((inject 2) (equal-key 2))
|
||||
'((inject 2) (equal-key 2) (equal-key 2)))
|
||||
counting-chaperone
|
||||
(set 2)
|
||||
(λ (s) (set-member? s 2))
|
||||
|
|
Loading…
Reference in New Issue
Block a user