2 USING: biassocs assocs namespaces tools.test ;
6 [ 0 ] [ "h" get assoc-size ] unit-test
8 [ ] [ 1 2 "h" get set-at ] unit-test
10 [ 1 ] [ 2 "h" get at ] unit-test
12 [ 2 ] [ 1 "h" get value-at ] unit-test
14 [ 1 ] [ "h" get assoc-size ] unit-test
16 [ ] [ 1 3 "h" get set-at ] unit-test
18 [ 1 ] [ 3 "h" get at ] unit-test
20 [ 2 ] [ 1 "h" get value-at ] unit-test
22 [ 2 ] [ "h" get assoc-size ] unit-test
24 H{ { "a" "A" } { "b" "B" } } "a" set
26 [ ] [ "a" get >biassoc "b" set ] unit-test
28 [ t ] [ "b" get biassoc? ] unit-test
30 [ "A" ] [ "a" "b" get at ] unit-test
32 [ "a" ] [ "A" "b" get value-at ] unit-test