22 lines
464 B
Factor
22 lines
464 B
Factor
! Copyright (C) 2013 John Benediktsson
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
USING: assocs hashtables.numbers kernel literals sequences
|
|
tools.test ;
|
|
|
|
IN: hashtables.numbers.tests
|
|
|
|
{ 1000 } [ 3/2 NH{ { 1.5 1000 } } at ] unit-test
|
|
|
|
{ 1001 } [
|
|
1001 1.5 NH{ { 3/2 1000 } }
|
|
[ set-at ] [ at ] 2bi
|
|
] unit-test
|
|
|
|
{ 1001 } [
|
|
NH{ } clone 1001 1.5 pick set-at
|
|
3/2 of
|
|
] unit-test
|
|
|
|
{ { { 1.0 1000 } } } [ NH{ { 1.0 1000 } } >alist ] unit-test
|