steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.hashcodes: better test-case.

db4
John Benediktsson 2013-03-19 22:55:50 -07:00
parent 86fcc79628
commit dc08c22a92
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/math/hashcodes/hashcodes-tests.factor
View File

@ -1,20 +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: arrays kernel math sequences tools.test ; USING: arrays kernel grouping math sequences tools.test ;
IN: math.hashcodes IN: math.hashcodes
{ t } [ { t } [
12 dup >bignum 12.0 12 0 complex boa 4array 12 dup >bignum 12.0 12 0 complex boa 4array
[ number-hashcode 12 = ] all? [ number-hashcode ] map all-equal?
] unit-test ] unit-test
{ t } [ { t } [
1.5 3/2 1.5 0 complex boa 3/2 0 complex boa 4array 1.5 3/2 1.5 0 complex boa 3/2 0 complex boa 4array
[ [ number-hashcode ] map all-equal?
number-hashcode
cell-bits 64 = 3458764513820540928 3221225472 ?
=
] all?
] unit-test ] unit-test