From 2ca301ec5e2464f889e0f3b3063d7e9543719532 Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Fri, 6 Jan 2017 17:34:07 +0100
Subject: [PATCH] trees.splay, add test for assoc-size

---
 extra/trees/splay/splay-tests.factor | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/extra/trees/splay/splay-tests.factor b/extra/trees/splay/splay-tests.factor
index 40083da465..b5309ebdad 100644
--- 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