Add unit test for >alist on linked-assocs

db4
Slava Pestov 2009-02-16 21:42:09 -06:00
parent 60d96b56ce
commit 13d96df8b6
1 changed files with 8 additions and 0 deletions

View File

@ -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