factor/extra/math/hashcodes/hashcodes-tests.factor

17 lines
395 B
Factor
Raw Normal View History

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