assocs: adding tests for "assoc-stack".

diff --git a/core/assocs/assocs-tests.factor b/core/assocs/assocs-tests.factor
index e04237251b94f7fe50177bce91a3e485b9f4aa3d..50fbf9a7ffe564700cde2c3ec127466b3a35506d 100644 (file)
--- a/core/assocs/assocs-tests.factor
+++ b/core/assocs/assocs-tests.factor
@@ -194,3 +194,8 @@ unit-test
         H{ { 1 7 } { 5 6 } }
     } assoc-refine
 ] unit-test
+
+[ f ] [ "a" { } assoc-stack ] unit-test
+[ 1 ] [ "a" { H{ { "a" 1 } } H{ { "b" 2 } } } assoc-stack ] unit-test
+[ 2 ] [ "b" { H{ { "a" 1 } } H{ { "b" 2 } } } assoc-stack ] unit-test
+[ f ] [ "c" { H{ { "a" 1 } } H{ { "b" 2 } } } assoc-stack ] unit-test