1 ! Copyright (C) 2011 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: assocs hashtables.sequences kernel literals sequences
7 IN: hashtables.sequences.tests
9 [ 1000 ] [ 0 4 "asdf" <slice> SH{ { "asdf" 1000 } } at ] unit-test
12 1001 0 4 "asdf" <slice> SH{ { "asdf" 1000 } }
17 SH{ } clone 1001 0 4 "asdf" <slice> pick set-at
21 [ { { "asdf" 1000 } } ] [ SH{ { "asdf" 1000 } } >alist ] unit-test