extra/pairs/pairs-tests.factor

   1 IN: pairs.tests
   2 USING: namespaces assocs tools.test pairs ;
   3
   4 SYMBOL: blah
   5
   6 "blah" blah <pair> "b" set
   7
   8 [ "blah" t ] [ blah "b" get at* ] unit-test
   9 [ f f ] [ "fdaf" "b" get at* ] unit-test
  10 [ 1 ] [ "b" get assoc-size ] unit-test
  11 [ { { blah "blah" } } ] [ "b" get >alist ] unit-test
  12 [ ] [ "bleah" blah "b" get set-at ] unit-test
  13 [ 1 ] [ "b" get assoc-size ] unit-test
  14 [ { { blah "bleah" } } ] [ "b" get >alist ] unit-test
  15 [ "bleah" t ] [ blah "b" get at* ] unit-test
  16 [ f f ] [ "fdaf" "b" get at* ] unit-test
  17 [ blah "b" get delete-at ] must-fail
  18 [ ] [ 1 2 "b" get set-at ] unit-test
  19 [ "bleah" t ] [ blah "b" get at* ] unit-test
  20 [ 1 t ] [ 2 "b" get at* ] unit-test
  21 [ f f ] [ "fdaf" "b" get at* ] unit-test
  22 [ 2 ] [ "b" get assoc-size ] unit-test
  23 [ { { 2 1 } { blah "bleah" } } ] [ "b" get >alist ] unit-test