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

adjust a test for Racket CS

Browse Source 
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:
Matthew Flatt 2019-06-29 06:12:14 -06:00
parent e0d454040a
commit 2bff59766d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test-core/tests/racket/set.rktl
View File

@ -632,7 +632,10 @@
(mutable-set 1) (mutable-set 1)
(λ (s) (set-remove! s 1)) (λ (s) (set-remove! s 1))
#f) #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 counting-chaperone
(set 2) (set 2)
(λ (s) (set-member? s 2)) (λ (s) (set-member? s 2))