extra/hashtables/numbers/numbers-tests.factor

   1 ! Copyright (C) 2013 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: assocs hashtables.numbers kernel literals sequences
   5 tools.test ;
   6
   7 IN: hashtables.numbers.tests
   8
   9 [ 1000 ] [ 3/2 NH{ { 1.5 1000 } } at ] unit-test
  10
  11 [ 1001 ] [
  12     1001 1.5 NH{ { 3/2 1000 } }
  13     [ set-at ] [ at ] 2bi
  14 ] unit-test
  15
  16 [ 1001 ] [
  17     NH{ } clone 1001 1.5 pick set-at
  18     3/2 of
  19 ] unit-test
  20
  21 [ { { 1.0 1000 } } ] [ NH{ { 1.0 1000 } } >alist ] unit-test
  22