extra/hash-sets/numbers/numbers-tests.factor

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