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
! See http://factorcode.org/license.txt for BSD license
USING: kernel sequences tools.test ;
USING: arrays kernel math sequences tools.test ;
IN: math.hashcodes
{ t } [
{ 12 12.0 C{ 12 0 } }
12 dup >bignum 12.0 12 0 complex boa 4array
[ number-hashcode 12 = ] all?
] unit-test
{ 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?
] unit-test