! 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
{ { "a" "b" } { "c" "d" } }
[ >linked-hash ] [ >linked-hash ] bi =
] unit-test
+
+{ LH{ } } [ 0 LH{ { 1 2 } { 3 4 } } new-assoc ] unit-test