basis/hash-sets/sequences/sequences-tests.factor

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