2009-06-30 17:08:16 -04:00
|
|
|
USING: tools.test disjoint-sets namespaces slots.private ;
|
2013-03-21 21:13:24 -04:00
|
|
|
IN: disjoint-sets.tests
|
2009-06-30 17:08:16 -04:00
|
|
|
|
|
|
|
|
SYMBOL: +blah+
|
|
|
|
|
|
|
|
|
|
SYMBOL: uf
|
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ } [
|
2009-06-30 17:08:16 -04:00
|
|
|
<disjoint-set> uf set
|
|
|
|
|
+blah+ uf get add-atom
|
|
|
|
|
19026 uf get add-atom
|
|
|
|
|
19026 +blah+ uf get equate
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ 2 } [ 19026 uf get equiv-set-size ] unit-test
|
