linked-assocs: fix assoc-map on 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 a7a8512669c802317ec85709a33ff1c624bd3e6d..c9749727bdf4d3787dd691b2ba6404748bfebca1 100644 (file)
--- a/basis/linked-assocs/linked-assocs-tests.factor
+++ b/basis/linked-assocs/linked-assocs-tests.factor
@@ -1,6 +1,7 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel sequences assocs tools.test linked-assocs math ;
+USING: accessors assocs kernel linked-assocs math sequences
+tools.test ;
 IN: linked-assocs.test
 
 { { 1 2 3 } } [
@@ -63,3 +64,13 @@ IN: linked-assocs.test
     3 "cx" pick set-at
     >alist
 ] unit-test
+
+{ t V{ { 1 20 } { 3 40 } { 5 60 } } } [
+    { { 1 2 } { 3 4 } { 5 6 } } >linked-hash
+    [ 10 * ] assoc-map [ linked-assoc? ] [ >alist ] bi
+] unit-test
+
+{ V{ { 1 2 } { 3 4 } { 5 6 } } } [
+    { { 1 2 } { 3 4 } { 5 6 } }
+    { } <linked-assoc> assoc-like >alist
+] unit-test