linked-assocs: adding test for equality.

2014-04-27 15:22:10 -07:00 · 2014-04-27 15:22:10 -07:00 · 6bb3eea67f
parent bdbb1d7812
commit 6bb3eea67f
1 changed files with 5 additions and 0 deletions
--- 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