.

svn path=/trunk/abstractions/pureunity/; revision=4361

3 files changed, 137 insertions, 51 deletions

diff --git a/specifics/arith-test.pd b/specifics/arith-test.pd
index 3136228..e9b7375 100644
--- a/specifics/arith-test.pd
+++ b/specifics/arith-test.pd
@@ -1,63 +1,76 @@
-#N canvas 365 120 687 494 10;
-#X text 18 12 This is the testclass for + \, - \, * \, / \, % \, mod
-\, ^ \, & \, |;
+#N canvas 69 22 726 501 10;
 #X text 78 136 Abelian Groups:;
 #X text 80 229 Abelian Monoids:;
-#X text 79 299 Rings (incl Fields):;
+#X text 79 349 Rings (incl Fields):;
 #X obj 134 87 r \$0-b;
-#X obj 299 87 r \$0-b;
-#X obj 450 87 r \$0-b;
-#X obj 16 59 s \$0-b;
-#X obj 16 40 inlet bang;
-#X obj 14 414 r \$0-r;
-#X obj 14 433 outlet reports;
-#X obj 134 406 s \$0-r;
-#X obj 299 406 s \$0-r;
-#X obj 450 406 s \$0-r;
+#X obj 309 87 r \$0-b;
+#X obj 460 87 r \$0-b;
+#X obj 26 69 s \$0-b;
+#X obj 26 50 inlet bang;
+#X obj 14 464 r \$0-r;
+#X obj 14 483 outlet reports;
+#X obj 134 456 s \$0-r;
+#X obj 309 456 s \$0-r;
+#X obj 460 456 s \$0-r;
 #X obj 134 157 commutative-test \$1 +;
+#X obj 134 367 distributive-test \$1 + *;
+#X obj 309 177 associative-test \$1 *;
+#X obj 460 177 invertible-test \$1 * /;
 #X obj 134 177 commutative-test \$1 *;
 #X obj 134 197 commutative-test \$1 ^;
 #X obj 134 247 commutative-test \$1 &;
 #X obj 134 267 commutative-test \$1 |;
-#X obj 134 317 distributive-test \$1 + *;
-#X obj 134 337 distributive-test \$1 ^ &;
-#X obj 299 247 associative-test \$1 &;
-#X obj 299 267 associative-test \$1 |;
-#X obj 299 157 associative-test \$1 +;
-#X obj 299 177 associative-test \$1 *;
-#X obj 299 197 associative-test \$1 ^;
-#X obj 450 197 invertible-test \$1 ^ ^;
-#X obj 450 177 invertible-test \$1 * /;
-#X obj 450 157 invertible-test \$1 + -;
-#X connect 4 0 14 0;
+#X obj 309 247 associative-test \$1 &;
+#X obj 309 267 associative-test \$1 |;
+#X obj 309 157 associative-test \$1 +;
+#X obj 309 197 associative-test \$1 ^;
+#X obj 460 197 invertible-test \$1 ^ ^;
+#X obj 460 157 invertible-test \$1 + -;
+#X obj 134 387 distributive-test \$1 ^ &;
+#X text 17 11 This is the testclass for + \, - \, * \, / \, div \,
+pow \, % \, mod;
+#X obj 134 296 commutative-test \$1 min;
+#X obj 134 317 commutative-test \$1 max;
+#X obj 309 296 associative-test \$1 min;
+#X obj 309 316 associative-test \$1 max;
+#X text 18 25 And also for & \, | \, ^ \, min \, max;
+#X connect 3 0 13 0;
+#X connect 3 0 14 0;
+#X connect 3 0 17 0;
+#X connect 3 0 18 0;
+#X connect 3 0 19 0;
+#X connect 3 0 20 0;
+#X connect 3 0 27 0;
+#X connect 3 0 29 0;
+#X connect 3 0 30 0;
 #X connect 4 0 15 0;
-#X connect 4 0 16 0;
-#X connect 4 0 17 0;
-#X connect 4 0 18 0;
-#X connect 4 0 19 0;
-#X connect 4 0 20 0;
-#X connect 5 0 21 0;
-#X connect 5 0 22 0;
-#X connect 5 0 23 0;
-#X connect 5 0 24 0;
+#X connect 4 0 21 0;
+#X connect 4 0 22 0;
+#X connect 4 0 23 0;
+#X connect 4 0 24 0;
+#X connect 4 0 31 0;
+#X connect 4 0 32 0;
+#X connect 5 0 16 0;
 #X connect 5 0 25 0;
-#X connect 6 0 26 0;
-#X connect 6 0 27 0;
-#X connect 6 0 28 0;
-#X connect 8 0 7 0;
-#X connect 9 0 10 0;
-#X connect 14 0 11 0;
+#X connect 5 0 26 0;
+#X connect 7 0 6 0;
+#X connect 8 0 9 0;
+#X connect 13 0 10 0;
+#X connect 14 0 10 0;
 #X connect 15 0 11 0;
-#X connect 16 0 11 0;
-#X connect 17 0 11 0;
-#X connect 18 0 11 0;
-#X connect 19 0 11 0;
-#X connect 20 0 11 0;
-#X connect 21 0 12 0;
-#X connect 22 0 12 0;
-#X connect 23 0 12 0;
-#X connect 24 0 12 0;
+#X connect 16 0 12 0;
+#X connect 17 0 10 0;
+#X connect 18 0 10 0;
+#X connect 19 0 10 0;
+#X connect 20 0 10 0;
+#X connect 21 0 11 0;
+#X connect 22 0 11 0;
+#X connect 23 0 11 0;
+#X connect 24 0 11 0;
 #X connect 25 0 12 0;
-#X connect 26 0 13 0;
-#X connect 27 0 13 0;
-#X connect 28 0 13 0;
+#X connect 26 0 12 0;
+#X connect 27 0 10 0;
+#X connect 29 0 10 0;
+#X connect 30 0 10 0;
+#X connect 31 0 11 0;
+#X connect 32 0 11 0;
diff --git a/specifics/comparators-test.pd b/specifics/comparators-test.pd
new file mode 100644
index 0000000..0bb640b
--- /dev/null
+++ b/specifics/comparators-test.pd
@@ -0,0 +1,58 @@
+#N canvas 365 120 687 494 10;
+#X obj 134 87 r \$0-b;
+#X obj 329 87 r \$0-b;
+#X obj 26 69 s \$0-b;
+#X obj 26 50 inlet bang;
+#X obj 14 414 r \$0-r;
+#X obj 14 433 outlet reports;
+#X obj 134 406 s \$0-r;
+#X obj 329 406 s \$0-r;
+#X text 17 11 This is the testclass for == \, != \, < \, > \, <= \,
+>= \, && \, ||;
+#X obj 329 157 equivalence-test \$1 ==;
+#X obj 329 257 totalordereq-test \$1 == >=;
+#X obj 329 237 totalordereq-test \$1 == <=;
+#X obj 329 217 totalorder-test \$1 == >;
+#X obj 329 197 totalorder-test \$1 == <;
+#X obj 329 297 associative-test \$1 &&;
+#X obj 329 317 associative-test \$1 ||;
+#X obj 134 157 commutative-test \$1 ==;
+#X obj 134 177 commutative-test \$1 !=;
+#X obj 134 297 commutative-test \$1 &&;
+#X obj 134 317 commutative-test \$1 ||;
+#X obj 134 197 antisymmetric-test \$1 <;
+#X obj 134 217 antisymmetric-test \$1 >;
+#X obj 134 237 antisymmetric-test \$1 <=;
+#X obj 134 257 antisymmetric-test \$1 >=;
+#X connect 0 0 16 0;
+#X connect 0 0 17 0;
+#X connect 0 0 18 0;
+#X connect 0 0 19 0;
+#X connect 0 0 20 0;
+#X connect 0 0 21 0;
+#X connect 0 0 22 0;
+#X connect 0 0 23 0;
+#X connect 1 0 9 0;
+#X connect 1 0 10 0;
+#X connect 1 0 11 0;
+#X connect 1 0 12 0;
+#X connect 1 0 13 0;
+#X connect 1 0 14 0;
+#X connect 1 0 15 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 9 0 7 0;
+#X connect 10 0 7 0;
+#X connect 11 0 7 0;
+#X connect 12 0 7 0;
+#X connect 13 0 7 0;
+#X connect 14 0 7 0;
+#X connect 15 0 7 0;
+#X connect 16 0 6 0;
+#X connect 17 0 6 0;
+#X connect 18 0 6 0;
+#X connect 19 0 6 0;
+#X connect 20 0 6 0;
+#X connect 21 0 6 0;
+#X connect 22 0 6 0;
+#X connect 23 0 6 0;
diff --git a/specifics/glue-test.pd b/specifics/glue-test.pd
new file mode 100644
index 0000000..7d3fa2a
--- /dev/null
+++ b/specifics/glue-test.pd
@@ -0,0 +1,15 @@
+#N canvas 185 138 665 479 10;
+#X obj 26 69 s \$0-b;
+#X obj 26 50 inlet bang;
+#X obj 14 414 r \$0-r;
+#X obj 14 433 outlet reports;
+#X obj 176 111 func2-test float;
+#X obj 176 131 func2-test symbol;
+#X obj 176 151 func2-test int;
+#X obj 176 91 func1-test bang;
+#X text 346 19 todo: send \, receive \, select \, route;
+#X text 346 32 todo: pack \, unpack \, trigger \, spigot;
+#X text 346 45 todo: moses \, until \, print \, makefilename;
+#X text 346 58 todo: change \, swap \, value;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;