2 USING: assocs.extras tools.test ;
6 { f } [ f { } deep-at ] unit-test
7 { f } [ f { "foo" } deep-at ] unit-test
8 { f } [ H{ } { 1 2 3 } deep-at ] unit-test
9 { f } [ H{ { "a" H{ { "b" 1 } } } } { "a" "c" } deep-at ] unit-test
10 { 1 } [ H{ { "a" H{ { "b" 1 } } } } { "a" "b" } deep-at ] unit-test
11 { 4 } [ H{ { 1 H{ { 2 H{ { 3 4 } } } } } } { 1 2 3 } deep-at ] unit-test