From e9e7e42b6488caf4ecfeb9cd3d5a9e14ea5320ee Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Sun, 9 Aug 2015 10:50:50 -0500 Subject: [PATCH] Fix generics tests for hashing change. --- pkgs/racket-test/tests/generic/base-interfaces.rkt | 4 ++-- pkgs/racket-test/tests/generic/equal+hash.rkt | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-test/tests/generic/base-interfaces.rkt b/pkgs/racket-test/tests/generic/base-interfaces.rkt index 43c1a3e568..15deb83d9b 100644 --- a/pkgs/racket-test/tests/generic/base-interfaces.rkt +++ b/pkgs/racket-test/tests/generic/base-interfaces.rkt @@ -27,5 +27,5 @@ ;; ok if these don't raise unbound id errors (check-equal? (with-output-to-string (lambda () (write (tuple 5)))) "#0=#0#") (check-equal? (tuple 5) (tuple 5)) - (check-equal? (equal-hash-code (tuple 5)) 53) - (check-equal? (equal-secondary-hash-code (tuple 5)) 44)) + (check-equal? (equal-hash-code (tuple 5)) 54) + (check-equal? (equal-secondary-hash-code (tuple 5)) 45)) diff --git a/pkgs/racket-test/tests/generic/equal+hash.rkt b/pkgs/racket-test/tests/generic/equal+hash.rkt index b6a765cda4..a72707c6e8 100644 --- a/pkgs/racket-test/tests/generic/equal+hash.rkt +++ b/pkgs/racket-test/tests/generic/equal+hash.rkt @@ -16,5 +16,5 @@ (check-false (equal? (kons 1 2) 2)) (check-false (equal? 2 (kons 1 2))) (check-false (equal? (kons 1 2) (kons 3 4))) - (check-equal? (equal-hash-code (kons 1 2)) 60) + (check-equal? (equal-hash-code (kons 1 2)) 61) )