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

Fix generics tests for hashing change.

Browse Source
This commit is contained in:
Vincent St-Amour 2015-08-09 10:50:50 -05:00
parent 9f682a3f11
commit e9e7e42b64
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,5 +27,5 @@
;; ok if these don't raise unbound id errors ;; ok if these don't raise unbound id errors
(check-equal? (with-output-to-string (lambda () (write (tuple 5)))) "#0=#0#") (check-equal? (with-output-to-string (lambda () (write (tuple 5)))) "#0=#0#")
(check-equal? (tuple 5) (tuple 5)) (check-equal? (tuple 5) (tuple 5))
(check-equal? (equal-hash-code (tuple 5)) 53) (check-equal? (equal-hash-code (tuple 5)) 54)
(check-equal? (equal-secondary-hash-code (tuple 5)) 44)) (check-equal? (equal-secondary-hash-code (tuple 5)) 45))

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

@ -16,5 +16,5 @@
(check-false (equal? (kons 1 2) 2)) (check-false (equal? (kons 1 2) 2))
(check-false (equal? 2 (kons 1 2))) (check-false (equal? 2 (kons 1 2)))
(check-false (equal? (kons 1 2) (kons 3 4))) (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)
) )