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

fix tests that relied on a specific internal hashing function

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-26 19:46:33 -07:00
parent cf60eb2715
commit 9fec456335
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test/tests/generic/base-interfaces.rkt
View File

@ -27,5 +27,7 @@
;; 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)) 55)
(check-equal? (equal-secondary-hash-code (tuple 5)) 46))
(check-equal? (equal-hash-code (tuple 5))
(equal-hash-code (tuple 5)))
(check-equal? (equal-secondary-hash-code (tuple 5))
(equal-secondary-hash-code (tuple 5))))

3
pkgs/racket-test/tests/generic/equal+hash.rkt
View File

@ -16,5 +16,6 @@
(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)) 62)
(check-equal? (equal-hash-code (kons 1 2))
(equal-hash-code (kons 1 2)))
)