linked-assocs: adding test for equality.

[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 c9749727bdf4d3787dd691b2ba6404748bfebca1..cb39253f6a4dc5936416f33f35638579b07d4695 100644 (file)
--- a/basis/linked-assocs/linked-assocs-tests.factor
+++ b/basis/linked-assocs/linked-assocs-tests.factor
@@ -74,3 +74,8 @@ IN: linked-assocs.test
     { { 1 2 } { 3 4 } { 5 6 } }
     { } <linked-assoc> assoc-like >alist
 ] unit-test
+
+{ t } [
+    { { "a" "b" } { "c" "d" } }
+    [ >linked-hash ] [ >linked-hash ] bi =
+] unit-test