stomp.cli: simplify

[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 5030e93abc955492392a6f5b6e813ec4b2153257..69c82274a34637229c5d19c3329a95bd91a2e3a9 100644 (file)
--- a/basis/linked-assocs/linked-assocs-tests.factor
+++ b/basis/linked-assocs/linked-assocs-tests.factor
@@ -1,7 +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 ;
-IN: linked-assocs.test
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors assocs kernel linked-assocs math sequences
+tools.test ;
 
 { { 1 2 3 } } [
     <linked-hash> 1 "b" pick set-at
@@ -14,7 +14,7 @@ IN: linked-assocs.test
     <linked-hash> 1 "b" pick set-at
                   2 "c" pick set-at
                   3 "a" pick set-at
-    "c" swap at*
+    "c" ?of
 ] unit-test
 
 { { 2 3 4 } { "c" "a" "d" } 3 } [
@@ -23,14 +23,14 @@ IN: linked-assocs.test
                   3 "a" pick set-at
                   4 "d" pick set-at
     [ values ] [ keys ] [ assoc-size ] tri
-] unit-test 
+] 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 
+] unit-test
 
 { { } 0 } [
     <linked-hash> 1 "a" pick set-at
@@ -50,8 +50,8 @@ IN: linked-assocs.test
 
 { 9 } [
     <linked-hash>
-    { [ 3 * ] [ 1- ] }          "first"   pick set-at
-    { [ [ 1- ] bi@ ] [ 2 / ] }  "second"  pick set-at
+    { [ 3 * ] [ 1 - ] }          "first"   pick set-at
+    { [ [ 1 - ] bi@ ] [ 2 / ] }  "second"  pick set-at
     4 6 pick values [ first call ] each
     + swap values <reversed> [ second call ] each
 ] unit-test
@@ -62,4 +62,21 @@ IN: linked-assocs.test
     2 "by" pick set-at
     3 "cx" pick set-at
     >alist
-] unit-test
\ No newline at end of file
+] 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
+
+{ t } [
+    { { "a" "b" } { "c" "d" } }
+    [ >linked-hash ] [ >linked-hash ] bi =
+] unit-test
+
+{ LH{ } } [ 0 LH{ { 1 2 } { 3 4 } } new-assoc ] unit-test