! 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