22 lines
484 B
Factor
22 lines
484 B
Factor
! Copyright (C) 2013 John Benediktsson
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
USING: hash-sets.sequences kernel literals sequences sets
|
|
tools.test ;
|
|
|
|
IN: hash-sets.sequences.tests
|
|
|
|
[ t ] [ 0 4 "asdf" <slice> SHS{ "asdf" } in? ] unit-test
|
|
|
|
[ SHS{ "asdf" } ] [
|
|
0 4 "asdf" <slice> SHS{ "asdf" } [ adjoin ] keep
|
|
] unit-test
|
|
|
|
[ t ] [
|
|
SHS{ } clone 0 4 "asdf" <slice> over adjoin
|
|
"asdf" swap in?
|
|
] unit-test
|
|
|
|
[ { "asdf" } ] [ SHS{ "asdf" } members ] unit-test
|
|
|