basis/disjoint-sets/disjoint-sets-tests.factor

   1 USING: tools.test disjoint-sets namespaces slots.private ;
   2 IN: disjoint-sets.testes
   3
   4 SYMBOL: +blah+
   5 -405534154 +blah+ 1 set-slot
   6
   7 SYMBOL: uf
   8
   9 [ ] [
  10     <disjoint-set> uf set
  11     +blah+ uf get add-atom
  12     19026 uf get add-atom
  13     19026 +blah+ uf get equate
  14 ] unit-test
  15
  16 [ 2 ] [ 19026 uf get equiv-set-size ] unit-test