! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license

USING: arrays kernel grouping math sequences tools.test ;

IN: math.hashcodes

{ t } [
    12 dup >bignum 12.0 12 0 complex boa 4array
    [ number-hashcode ] map all-equal?
] unit-test

{ t } [
    1.5 3/2 1.5 0 complex boa 3/2 0 complex boa 4array
    [ number-hashcode ] map all-equal?
] unit-test