]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/linked-assocs/linked-assocs-tests.factor
ui.listener: document that ~/.factor-history persists input history
[factor.git] / basis / linked-assocs / linked-assocs-tests.factor
index cb39253f6a4dc5936416f33f35638579b07d4695..69c82274a34637229c5d19c3329a95bd91a2e3a9 100644 (file)
@@ -1,8 +1,7 @@
 ! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
 USING: accessors assocs kernel linked-assocs math sequences
 tools.test ;
-IN: linked-assocs.test
 
 { { 1 2 3 } } [
     <linked-hash> 1 "b" pick set-at
@@ -24,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
@@ -79,3 +78,5 @@ IN: linked-assocs.test
     { { "a" "b" } { "c" "d" } }
     [ >linked-hash ] [ >linked-hash ] bi =
 ] unit-test
+
+{ LH{ } } [ 0 LH{ { 1 2 } { 3 4 } } new-assoc ] unit-test