aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2005-12-31 22:19:34 +0000
committerN.N. <matju@users.sourceforge.net>2005-12-31 22:19:34 +0000
commitec8175a1f0ca98ca7ad3d2495c252cdb95bb52d4 (patch)
tree3a9d4426130260dc9164146b7bbcdf8067a95ade
parent2e56ed79dc4cac6462615a4e2ba0365658dd5789 (diff)
changed test output format
svn path=/trunk/abstractions/pureunity/; revision=4339
-rw-r--r--generics/associative-test.pd48
-rw-r--r--generics/commutative-test.pd42
-rw-r--r--generics/distributive-test.pd49
-rw-r--r--generics/invertible-test.pd45
4 files changed, 109 insertions, 75 deletions
diff --git a/generics/associative-test.pd b/generics/associative-test.pd
index ee3ca36..34040cd 100644
--- a/generics/associative-test.pd
+++ b/generics/associative-test.pd
@@ -1,30 +1,38 @@
-#N canvas 736 151 452 267 10;
+#N canvas 736 151 452 434 10;
#X obj 40 15 inlet bang;
-#X obj 40 131 /;
-#X obj 40 150 t a a;
-#X obj 40 188 pack 0 0;
-#X obj 40 226 outlet;
+#X obj 40 150 /;
+#X obj 40 169 t a a;
#X text 167 24 with tolerance 0;
-#X obj 40 169 <= 0;
+#X obj 40 188 <= 0;
#X text 167 9 This test verifies that (1+2)+3=1+(2+3);
#X msg 40 34 1 2 3;
#X obj 40 74 unpack 0 0 0;
-#X msg 40 207 list associative1 \$1 \$2 -;
#X obj 40 93 associator \$2;
#X obj 40 112 \$1norm;
#X obj 126 112 \$1norm;
-#X connect 0 0 8 0;
+#X obj 40 236 outlet;
+#X obj 104 155 loadbang;
+#X obj 104 193 unpack s s s;
+#X obj 40 217 pack 0 0 -1 s s s;
+#X obj 104 174 3times symbol associative \$1 \$2;
+#X obj 40 131 * 2;
+#X connect 0 0 6 0;
#X connect 1 0 2 0;
-#X connect 2 0 6 0;
-#X connect 2 1 3 1;
-#X connect 3 0 10 0;
-#X connect 6 0 3 0;
+#X connect 2 0 4 0;
+#X connect 2 1 14 1;
+#X connect 4 0 14 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 7 2 8 2;
#X connect 8 0 9 0;
-#X connect 9 0 11 0;
-#X connect 9 1 11 1;
-#X connect 9 2 11 2;
-#X connect 10 0 4 0;
-#X connect 11 0 12 0;
-#X connect 11 1 13 0;
-#X connect 12 0 1 0;
-#X connect 13 0 1 1;
+#X connect 8 1 10 0;
+#X connect 9 0 16 0;
+#X connect 10 0 1 1;
+#X connect 12 0 15 0;
+#X connect 13 0 14 3;
+#X connect 13 1 14 4;
+#X connect 13 2 14 5;
+#X connect 14 0 11 0;
+#X connect 15 0 13 0;
+#X connect 16 0 1 0;
diff --git a/generics/commutative-test.pd b/generics/commutative-test.pd
index ddc7822..ad36c9c 100644
--- a/generics/commutative-test.pd
+++ b/generics/commutative-test.pd
@@ -1,30 +1,38 @@
-#N canvas 380 66 452 291 10;
+#N canvas 380 66 452 322 10;
#X obj 40 15 inlet bang;
#X obj 40 79 unpack 0 0;
-#X obj 33 151 /;
+#X obj 33 160 /;
#X msg 40 34 1 3;
#X text 216 9 This test verifies that 1+3=3+1;
-#X obj 33 170 t a a;
-#X obj 33 208 pack 0 0;
+#X obj 33 179 t a a;
#X obj 33 246 outlet;
#X text 217 44 with tolerance 0;
-#X obj 33 189 <= 0;
-#X msg 33 227 list commutative1 \$1 \$2 -;
+#X obj 33 198 <= 0;
#X text 218 23 and 1*3=3*1 and...;
#X obj 33 103 commutator \$2;
#X obj 33 122 \$1norm;
#X obj 119 122 \$1norm;
+#X obj 97 165 loadbang;
+#X obj 97 184 3times symbol commutative \$1 \$2;
+#X obj 97 203 unpack s s s;
+#X obj 33 227 pack 0 0 -1 s s s;
+#X obj 33 141 * 2;
#X connect 0 0 3 0;
-#X connect 1 0 12 0;
-#X connect 1 1 12 1;
+#X connect 1 0 10 0;
+#X connect 1 1 10 1;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
-#X connect 5 0 9 0;
-#X connect 5 1 6 1;
-#X connect 6 0 10 0;
-#X connect 9 0 6 0;
-#X connect 10 0 7 0;
-#X connect 12 0 13 0;
-#X connect 12 1 14 0;
-#X connect 13 0 2 0;
-#X connect 14 0 2 1;
+#X connect 5 0 8 0;
+#X connect 5 1 16 1;
+#X connect 8 0 16 0;
+#X connect 10 0 11 0;
+#X connect 10 1 12 0;
+#X connect 11 0 17 0;
+#X connect 12 0 2 1;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 3;
+#X connect 15 1 16 4;
+#X connect 15 2 16 5;
+#X connect 16 0 6 0;
+#X connect 17 0 2 0;
diff --git a/generics/distributive-test.pd b/generics/distributive-test.pd
index 959d6e4..ef58007 100644
--- a/generics/distributive-test.pd
+++ b/generics/distributive-test.pd
@@ -1,30 +1,39 @@
-#N canvas 665 86 452 291 10;
+#N canvas 665 86 471 430 10;
#X obj 40 15 inlet bang;
-#X obj 37 151 /;
-#X obj 37 170 t a a;
-#X obj 37 208 pack 0 0;
-#X obj 37 246 outlet;
+#X obj 37 160 /;
+#X obj 37 179 t a a;
#X text 157 24 with tolerance 0;
-#X obj 37 189 <= 0;
+#X obj 37 198 <= 0;
#X text 156 9 This test verifies that 3*(4+5)=3*4+3*5;
#X msg 40 34 3 4 5;
#X obj 40 82 unpack 0 0 0;
-#X msg 37 227 list distributive1 \$1 \$2 -;
#X obj 37 103 distributor \$2;
#X obj 37 122 \$1norm;
#X obj 130 122 \$1norm;
-#X connect 0 0 8 0;
+#X obj 37 236 outlet;
+#X obj 101 155 loadbang;
+#X obj 101 174 4times symbol distributive \$1 \$2 \$3;
+#X obj 101 193 unpack s s s s;
+#X obj 37 217 pack 0 0 -1 s s s s;
+#X obj 37 141 * 2;
+#X connect 0 0 6 0;
#X connect 1 0 2 0;
-#X connect 2 0 6 0;
-#X connect 2 1 3 1;
-#X connect 3 0 10 0;
-#X connect 6 0 3 0;
+#X connect 2 0 4 0;
+#X connect 2 1 15 1;
+#X connect 4 0 15 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 7 2 8 2;
#X connect 8 0 9 0;
-#X connect 9 0 11 0;
-#X connect 9 1 11 1;
-#X connect 9 2 11 2;
-#X connect 10 0 4 0;
-#X connect 11 0 12 0;
-#X connect 11 1 13 0;
-#X connect 12 0 1 0;
-#X connect 13 0 1 1;
+#X connect 8 1 10 0;
+#X connect 9 0 16 0;
+#X connect 10 0 1 1;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 3;
+#X connect 14 1 15 4;
+#X connect 14 2 15 5;
+#X connect 14 3 15 6;
+#X connect 15 0 11 0;
+#X connect 16 0 1 0;
diff --git a/generics/invertible-test.pd b/generics/invertible-test.pd
index 0596485..6f6121d 100644
--- a/generics/invertible-test.pd
+++ b/generics/invertible-test.pd
@@ -1,29 +1,38 @@
#N canvas 665 86 452 291 10;
#X obj 40 15 inlet bang;
#X obj 40 79 unpack 0 0;
-#X obj 33 151 /;
+#X obj 33 160 /;
#X msg 40 34 1 3;
-#X obj 33 170 t a a;
-#X obj 33 208 pack 0 0;
-#X obj 33 246 outlet;
+#X obj 33 179 t a a;
#X text 217 24 with tolerance 0;
-#X obj 33 189 <= 0;
+#X obj 33 198 <= 0;
#X text 215 9 This test verifies that 1+3-3=1;
-#X msg 33 227 list invertible1 \$1 \$2 -;
-#X obj 33 103 invertor \$2 \$3;
#X obj 33 122 \$1norm;
#X obj 126 122 \$1norm;
+#X obj 33 236 outlet;
+#X obj 97 155 loadbang;
+#X obj 97 193 unpack s s s s;
+#X obj 33 217 pack 0 0 -1 s s s s;
+#X obj 97 174 4times symbol invertible \$1 \$2 \$3;
+#X obj 33 103 invertor \$2 \$3;
+#X obj 33 141 * 2;
#X connect 0 0 3 0;
-#X connect 1 0 11 0;
-#X connect 1 1 11 1;
+#X connect 1 0 15 0;
+#X connect 1 1 15 1;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
-#X connect 4 0 8 0;
-#X connect 4 1 5 1;
-#X connect 5 0 10 0;
-#X connect 8 0 5 0;
-#X connect 10 0 6 0;
-#X connect 11 0 12 0;
-#X connect 11 1 13 0;
-#X connect 12 0 2 0;
-#X connect 13 0 2 1;
+#X connect 4 0 6 0;
+#X connect 4 1 13 1;
+#X connect 6 0 13 0;
+#X connect 8 0 16 0;
+#X connect 9 0 2 1;
+#X connect 11 0 14 0;
+#X connect 12 0 13 3;
+#X connect 12 1 13 4;
+#X connect 12 2 13 5;
+#X connect 12 3 13 6;
+#X connect 13 0 10 0;
+#X connect 14 0 12 0;
+#X connect 15 0 8 0;
+#X connect 15 1 9 0;
+#X connect 16 0 2 0;