21 lines
398 B
Factor
21 lines
398 B
Factor
|
! Copyright (C) 2013 John Benediktsson
|
||
|
|
! See http://factorcode.org/license.txt for BSD license
|
||
|
|
|
||
|
|
USING: hash-sets.numbers kernel sets tools.test ;
|
||
|
|
|
||
|
|
IN: hash-sets.numbers.tests
|
||
|
|
|
||
|
|
[ t ] [ 1.5 NHS{ 3/2 } in? ] unit-test
|
||
|
|
|
||
|
|
[ NHS{ 3/2 } ] [
|
||
|
|
1.5 NHS{ 3/2 } [ adjoin ] keep
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ t ] [
|
||
|
|
NHS{ } clone 1.5 over adjoin
|
||
|
|
3/2 swap in?
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ { 1.5 } ] [ NHS{ 1.5 } members ] unit-test
|
||
|
|
|