20 lines
397 B
Factor
20 lines
397 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
|