extra/math/hashcodes/hashcodes-tests.factor

   1 ! Copyright (C) 2013 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: arrays kernel grouping math math.hashcodes sequences
   5 tools.test ;
   6
   7 { t } [
   8     12 dup >bignum 12.0 12 0 complex boa 4array
   9     [ number-hashcode ] map all-equal?
  10 ] unit-test
  11
  12 { t } [
  13     1.5 3/2 1.5 0 complex boa 3/2 0 complex boa 4array
  14     [ number-hashcode ] map all-equal?
  15 ] unit-test