More tests for linked-assocs
parent
41b7853e08
commit
143567c917
|
@ -17,10 +17,33 @@ IN: linked-assocs.test
|
|||
"c" swap at*
|
||||
] unit-test
|
||||
|
||||
{ { 2 3 4 } { "c" "a" "d" } } [
|
||||
{ { 2 3 4 } { "c" "a" "d" } 3 } [
|
||||
<linked-hash> 1 "a" pick set-at
|
||||
2 "c" pick set-at
|
||||
3 "a" pick set-at
|
||||
4 "d" pick set-at
|
||||
[ values ] [ keys ] bi
|
||||
] unit-test
|
||||
[ values ] [ keys ] [ assoc-size ] tri
|
||||
] unit-test
|
||||
|
||||
{ f 1 } [
|
||||
<linked-hash> 1 "c" pick set-at
|
||||
2 "b" pick set-at
|
||||
"c" over delete-at
|
||||
"c" over at swap assoc-size
|
||||
] unit-test
|
||||
|
||||
{ { } 0 } [
|
||||
<linked-hash> 1 "a" pick set-at
|
||||
2 "c" pick set-at
|
||||
3 "a" pick set-at
|
||||
4 "d" pick set-at
|
||||
dup clear-assoc [ keys ] [ assoc-size ] bi
|
||||
] unit-test
|
||||
|
||||
{ { } { 1 2 3 } } [
|
||||
<linked-hash> dup clone
|
||||
1 "c" pick set-at
|
||||
2 "q" pick set-at
|
||||
3 "a" pick set-at
|
||||
[ values ] bi@
|
||||
] unit-test
|
||||
|
|
Loading…
Reference in New Issue