math.hashcodes: better tests.
parent
7162bfed57
commit
f936a1dc65
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue