From 2bff59766d92d5b34e0a91f2bf1b47a29f561e44 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 29 Jun 2019 06:12:14 -0600 Subject: [PATCH] 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`. --- pkgs/racket-test-core/tests/racket/set.rktl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/set.rktl b/pkgs/racket-test-core/tests/racket/set.rktl index 9206cb0526..67b068ab0b 100644 --- a/pkgs/racket-test-core/tests/racket/set.rktl +++ b/pkgs/racket-test-core/tests/racket/set.rktl @@ -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))