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

assocs.extras: more tests for deep-at.

db4
John Benediktsson 2012-05-17 09:40:43 -07:00
parent 9230acbbb8
commit 2bc8016d40
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/assocs/extras/extras-tests.factor
View File

@ -3,5 +3,9 @@ USING: assocs.extras tools.test ;
IN: assocs.extras
{ f } [ f { } deep-at ] unit-test
{ f } [ f { "foo" } deep-at ] unit-test
{ f } [ H{ } { 1 2 3 } deep-at ] unit-test
{ f } [ H{ { "a" H{ { "b" 1 } } } } { "a" "c" } deep-at ] unit-test
{ 1 } [ H{ { "a" H{ { "b" 1 } } } } { "a" "b" } deep-at ] unit-test
{ 4 } [ H{ { 1 H{ { 2 H{ { 3 4 } } } } } } { 1 2 3 } deep-at ] unit-test