basis/biassocs/biassocs-tests.factor

   1 USING: assocs biassocs hashtables kernel namespaces tools.test ;
   2
   3 <bihash> "h" set
   4
   5 { 0 } [ "h" get assoc-size ] unit-test
   6
   7 { } [ 1 2 "h" get set-at ] unit-test
   8
   9 { 1 } [ 2 "h" get at ] unit-test
  10
  11 { 2 } [ 1 "h" get value-at ] unit-test
  12
  13 { 1 } [ "h" get assoc-size ] unit-test
  14
  15 { } [ 1 3 "h" get set-at ] unit-test
  16
  17 { 1 } [ 3 "h" get at ] unit-test
  18
  19 { 2 } [ 1 "h" get value-at ] unit-test
  20
  21 { 2 } [ "h" get assoc-size ] unit-test
  22
  23 H{ { "a" "A" } { "b" "B" } } "a" set
  24
  25 { } [ "a" get >biassoc "b" set ] unit-test
  26
  27 { t } [ "b" get biassoc? ] unit-test
  28
  29 { "A" } [ "a" "b" get at ] unit-test
  30
  31 { "a" } [ "A" "b" get value-at ] unit-test
  32
  33 { } [ H{ { 1 2 } } >biassoc "h" set ] unit-test
  34
  35 { } [ "h" get clone "g" set ] unit-test
  36
  37 { } [ 3 4 "g" get set-at ] unit-test
  38
  39 { H{ { 1 2 } } } [ "h" get >hashtable ] unit-test
  40
  41 { H{ { 1 2 } { 4 3 } } } [ "g" get >hashtable ] unit-test