assocs.extras: more tests for deep-at.

diff --git a/extra/assocs/extras/extras-tests.factor b/extra/assocs/extras/extras-tests.factor
index b70819b9fbce69909c46d3767822c37704a5483e..0916a217287d475dbef6b4d9eca859c4de2ffdc1 100644 (file)
--- a/extra/assocs/extras/extras-tests.factor
+++ b/extra/assocs/extras/extras-tests.factor
@@ -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