basis/hashtables/sequences/sequences-tests.factor

   1 ! Copyright (C) 2011 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: assocs hashtables.sequences kernel literals sequences
   5 tools.test ;
   6
   7 IN: hashtables.sequences.tests
   8
   9 { 1000 } [ 0 4 "asdf" <slice> SH{ { "asdf" 1000 } } at ] unit-test
  10
  11 { 1001 } [
  12     1001 0 4 "asdf" <slice> SH{ { "asdf" 1000 } }
  13     [ set-at ] [ at ] 2bi
  14 ] unit-test
  15
  16 { 1001 } [
  17     SH{ } clone 1001 0 4 "asdf" <slice> pick set-at
  18     "asdf" of
  19 ] unit-test
  20
  21 { { { "asdf" 1000 } } } [ SH{ { "asdf" 1000 } } >alist ] unit-test