43 lines
886 B
Factor
43 lines
886 B
Factor
USING: biassocs assocs namespaces tools.test hashtables kernel ;
|
|
IN: biassocs.tests
|
|
|
|
<bihash> "h" set
|
|
|
|
{ 0 } [ "h" get assoc-size ] unit-test
|
|
|
|
{ } [ 1 2 "h" get set-at ] unit-test
|
|
|
|
{ 1 } [ 2 "h" get at ] unit-test
|
|
|
|
{ 2 } [ 1 "h" get value-at ] unit-test
|
|
|
|
{ 1 } [ "h" get assoc-size ] unit-test
|
|
|
|
{ } [ 1 3 "h" get set-at ] unit-test
|
|
|
|
{ 1 } [ 3 "h" get at ] unit-test
|
|
|
|
{ 2 } [ 1 "h" get value-at ] unit-test
|
|
|
|
{ 2 } [ "h" get assoc-size ] unit-test
|
|
|
|
H{ { "a" "A" } { "b" "B" } } "a" set
|
|
|
|
{ } [ "a" get >biassoc "b" set ] unit-test
|
|
|
|
{ t } [ "b" get biassoc? ] unit-test
|
|
|
|
{ "A" } [ "a" "b" get at ] unit-test
|
|
|
|
{ "a" } [ "A" "b" get value-at ] unit-test
|
|
|
|
{ } [ H{ { 1 2 } } >biassoc "h" set ] unit-test
|
|
|
|
{ } [ "h" get clone "g" set ] unit-test
|
|
|
|
{ } [ 3 4 "g" get set-at ] unit-test
|
|
|
|
{ H{ { 1 2 } } } [ "h" get >hashtable ] unit-test
|
|
|
|
{ H{ { 1 2 } { 4 3 } } } [ "g" get >hashtable ] unit-test
|