More tests for linked-assocs

diff --git a/basis/linked-assocs/linked-assocs-tests.factor b/basis/linked-assocs/linked-assocs-tests.factor
index 3ac590041b43d700c2a2188844eb2e174abc91f7..64d5c604815b8667614eb5610fdc8d61902e3764 100644 (file)
--- a/basis/linked-assocs/linked-assocs-tests.factor
+++ b/basis/linked-assocs/linked-assocs-tests.factor
@@ -17,10 +17,33 @@ IN: linked-assocs.test
     "c" swap at*
 ] unit-test
 
-{ { 2 3 4 } { "c" "a" "d" } } [
+{ { 2 3 4 } { "c" "a" "d" } 3 } [
     <linked-hash> 1 "a" pick set-at
                   2 "c" pick set-at
                   3 "a" pick set-at
                   4 "d" pick set-at
-    [ values ] [ keys ] bi 
-] unit-test 
\ No newline at end of file
+    [ values ] [ keys ] [ assoc-size ] tri
+] unit-test 
+
+{ f 1 } [
+    <linked-hash> 1 "c" pick set-at
+                  2 "b" pick set-at
+    "c" over delete-at
+    "c" over at swap assoc-size
+] unit-test 
+
+{ { } 0 } [
+    <linked-hash> 1 "a" pick set-at
+                  2 "c" pick set-at
+                  3 "a" pick set-at
+                  4 "d" pick set-at
+    dup clear-assoc [ keys ] [ assoc-size ] bi
+] unit-test
+
+{ { } { 1 2 3 } } [
+    <linked-hash> dup clone
+    1 "c" pick set-at
+    2 "q" pick set-at
+    3 "a" pick set-at
+    [ values ] bi@
+] unit-test