Add unit test for >alist on linked-assocs
parent
60d96b56ce
commit
13d96df8b6
|
@ -54,4 +54,12 @@ IN: linked-assocs.test
|
|||
{ [ [ 1- ] bi@ ] [ 2 / ] } "second" pick set-at
|
||||
4 6 pick values [ first call ] each
|
||||
+ swap values <reversed> [ second call ] each
|
||||
] unit-test
|
||||
|
||||
{ V{ { "az" 1 } { "by" 2 } { "cx" 3 } } } [
|
||||
<linked-hash>
|
||||
1 "az" pick set-at
|
||||
2 "by" pick set-at
|
||||
3 "cx" pick set-at
|
||||
>alist
|
||||
] unit-test
|
Loading…
Reference in New Issue