2011-09-27 00:59:26 -04:00
|
|
|
! Copyright (C) 2011 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
|
|
|
|
|
|
USING: assocs hashtables.sequences kernel literals sequences
|
|
|
|
|
tools.test ;
|
|
|
|
|
|
2013-04-06 17:11:45 -04:00
|
|
|
IN: hashtables.sequences.tests
|
2011-09-27 00:59:26 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 1000 } [ 0 4 "asdf" <slice> SH{ { "asdf" 1000 } } at ] unit-test
|
2011-09-27 00:59:26 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 1001 } [
|
2011-09-27 00:59:26 -04:00
|
|
|
1001 0 4 "asdf" <slice> SH{ { "asdf" 1000 } }
|
|
|
|
|
[ set-at ] [ at ] 2bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 1001 } [
|
2011-09-27 00:59:26 -04:00
|
|
|
SH{ } clone 1001 0 4 "asdf" <slice> pick set-at
|
2013-03-23 17:35:01 -04:00
|
|
|
"asdf" of
|
2011-09-27 00:59:26 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ { { "asdf" 1000 } } } [ SH{ { "asdf" 1000 } } >alist ] unit-test
|
