factor/extra/hash-sets/numbers/numbers-tests.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