steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More tests for linked-assocs

db4
James Cash 2008-11-08 12:21:50 -05:00
parent 41b7853e08
commit 143567c917
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
basis/linked-assocs/linked-assocs-tests.factor
View File

@ -17,10 +17,33 @@ IN: linked-assocs.test
"c" swap at* "c" swap at*
] unit-test ] unit-test
{ { 2 3 4 } { "c" "a" "d" } } [ { { 2 3 4 } { "c" "a" "d" } 3 } [
<linked-hash> 1 "a" pick set-at <linked-hash> 1 "a" pick set-at
2 "c" pick set-at 2 "c" pick set-at
3 "a" pick set-at 3 "a" pick set-at
4 "d" pick set-at 4 "d" pick set-at
[ values ] [ keys ] bi [ values ] [ keys ] [ assoc-size ] tri
] unit-test ] 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