disjoint-sets: add some tests for compiler bug; eventually more tests should be written for this vocab

2009-06-30 16:08:16 -05:00 · 2009-06-30 16:08:16 -05:00 · b61b47922f
parent 578b0126fc
commit b61b47922f
1 changed files with 16 additions and 0 deletions
--- a/basis/disjoint-sets/disjoint-sets-tests.factor
+++ b/basis/disjoint-sets/disjoint-sets-tests.factor
@ -0,0 +1,16 @@
+IN: disjoint-sets.testes
+USING: tools.test disjoint-sets namespaces slots.private ;
+
+SYMBOL: +blah+
+-405534154 +blah+ 1 set-slot
+
+SYMBOL: uf
+
+[ ] [
+    <disjoint-set> uf set
+    +blah+ uf get add-atom
+    19026 uf get add-atom
+    19026 +blah+ uf get equate
+] unit-test
+
+[ 2 ] [ 19026 uf get equiv-set-size ] unit-test