ui.listener: document that ~/.factor-history persists input history

[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..69c82274a34637229c5d19c3329a95bd91a2e3a9 100644 (file)
--- a/basis/linked-assocs/linked-assocs-tests.factor
+++ b/basis/linked-assocs/linked-assocs-tests.factor
@@ -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
@@ -74,3 +73,10 @@ 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
+
+{ LH{ } } [ 0 LH{ { 1 2 } { 3 4 } } new-assoc ] unit-test