trees.splay, add test for assoc-size

diff --git a/extra/trees/splay/splay-tests.factor b/extra/trees/splay/splay-tests.factor
index 40083da4656803b1c69d84c678f05b25c54e7572..b5309ebdad144e75816e6dbca9d83015c42295ef 100644 (file)
--- a/extra/trees/splay/splay-tests.factor
+++ b/extra/trees/splay/splay-tests.factor
@@ -36,3 +36,16 @@ IN: trees.splay.tests
     100 iota [ dup zip >splay ] keep
     [ over delete-at ] each assoc-size
 ] unit-test
+
+: test-tree ( -- tree )
+    SPLAY{
+        { 7 "seven" }
+        { 9 "nine" }
+        { 4 "four" }
+        { 4 "replaced four" }
+        { 7 "replaced seven" }
+    } clone ;
+
+! test assoc-size
+{ 3 } [ test-tree assoc-size ] unit-test
+{ 2 } [ test-tree 9 over delete-at assoc-size ] unit-test