math.hashcodes: better tests.

db4
John Benediktsson 2013-03-16 13:58:29 -07:00
parent 7162bfed57
commit f936a1dc65
1 changed files with 3 additions and 3 deletions

View File

@ -1,16 +1,16 @@
! Copyright (C) 2013 John Benediktsson ! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: kernel sequences tools.test ; USING: arrays kernel math sequences tools.test ;
IN: math.hashcodes IN: math.hashcodes
{ t } [ { t } [
{ 12 12.0 C{ 12 0 } } 12 dup >bignum 12.0 12 0 complex boa 4array
[ number-hashcode 12 = ] all? [ number-hashcode 12 = ] all?
] unit-test ] unit-test
{ t } [ { t } [
{ 1.5 3/2 C{ 1.5 0 } C{ 3/2 0 } } 1.5 3/2 1.5 0 complex boa 3/2 0 complex boa 4array
[ number-hashcode 3458764513820540928 = ] all? [ number-hashcode 3458764513820540928 = ] all?
] unit-test ] unit-test