linked-assocs: fix new-assoc for linked-assocs

[factor.git] / basis / linked-assocs / linked-assocs-tests.factor

diff --git a/basis/linked-assocs/linked-assocs-tests.factor b/basis/linked-assocs/linked-assocs-tests.factor
index cfa7f521cef38b2285f46e5ace791bb378721d82..69c82274a34637229c5d19c3329a95bd91a2e3a9 100644 (file)
--- a/basis/linked-assocs/linked-assocs-tests.factor
+++ b/basis/linked-assocs/linked-assocs-tests.factor
@@ -78,3 +78,5 @@ tools.test ;
     { { "a" "b" } { "c" "d" } }
     [ >linked-hash ] [ >linked-hash ] bi =
 ] unit-test
+
+{ LH{ } } [ 0 LH{ { 1 2 } { 3 4 } } new-assoc ] unit-test