1 ! Copyright (C) 2013 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: hash-sets.numbers kernel sets tools.test ;
6 IN: hash-sets.numbers.tests
8 { t } [ 1.5 NHS{ 3/2 } in? ] unit-test
11 1.5 NHS{ 3/2 } [ adjoin ] keep
15 NHS{ } clone 1.5 over adjoin
19 { { 1.5 } } [ NHS{ 1.5 } members ] unit-test