basis/biassocs/biassocs-tests.factor

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