test for generic binops

svn path=/trunk/externals/iem/iemmatrix/; revision=3728

10 files changed, 504 insertions, 0 deletions

diff --git a/tests/mtx_sub/01_function.pd b/tests/mtx_sub/01_function.pd
new file mode 100644
index 0000000..fe6fc51
--- /dev/null
+++ b/tests/mtx_sub/01_function.pd
@@ -0,0 +1,49 @@
+#N canvas 117 373 440 427 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 243 \$3 \$4 \$5 \$6;
+#X obj 122 268 unpack 0 0 0 0;
+#X obj 184 330 *;
+#X obj 122 330 *;
+#X obj 122 356 *;
+#X obj 236 200 unpack 0 0 0 0;
+#X obj 122 307 ==;
+#X obj 153 307 ==;
+#X obj 184 307 ==;
+#X obj 215 307 ==;
+#X msg 122 179 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 122 156 t l l;
+#X obj 122 98 t b;
+#X msg 122 132 3 9 243 43;
+#X obj 122 221 mtx_sub -1;
+#X obj 236 221 - -1;
+#X obj 277 221 - -1;
+#X obj 318 220 - -1;
+#X obj 359 220 - -1;
+#X connect 0 0 14 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 3 2 10 0;
+#X connect 3 3 11 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 17 0;
+#X connect 7 1 18 0;
+#X connect 7 2 19 0;
+#X connect 7 3 20 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 1;
+#X connect 10 0 4 0;
+#X connect 11 0 4 1;
+#X connect 12 0 16 0;
+#X connect 13 0 12 0;
+#X connect 13 1 7 0;
+#X connect 14 0 15 0;
+#X connect 15 0 13 0;
+#X connect 16 0 2 0;
+#X connect 17 0 8 1;
+#X connect 18 0 9 1;
+#X connect 19 0 10 1;
+#X connect 20 0 11 1;
diff --git a/tests/mtx_sub/02_function.pd b/tests/mtx_sub/02_function.pd
new file mode 100644
index 0000000..3f761a9
--- /dev/null
+++ b/tests/mtx_sub/02_function.pd
@@ -0,0 +1,62 @@
+#N canvas 252 376 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 243 \$3 \$4 \$5 \$6;
+#X obj 122 268 unpack 0 0 0 0;
+#X obj 184 330 *;
+#X obj 122 330 *;
+#X obj 122 356 *;
+#X obj 236 248 unpack 0 0 0 0;
+#X obj 122 307 ==;
+#X obj 153 307 ==;
+#X obj 184 307 ==;
+#X obj 215 307 ==;
+#X msg 166 200 matrix 2 2 \$1 \$2 \$3 \$4;
+#X msg 122 179 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 252 228 unpack 0 0 0 0;
+#X obj 122 98 t b b;
+#X obj 185 156 t l l;
+#X obj 122 156 t l l;
+#X obj 122 221 mtx_sub;
+#X obj 236 269 -;
+#X obj 267 269 -;
+#X obj 298 268 -;
+#X obj 329 268 -;
+#X msg 122 132 1 3 2 -1;
+#X msg 185 133 0 0 4 6;
+#X connect 0 0 15 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 3 2 10 0;
+#X connect 3 3 11 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 19 0;
+#X connect 7 1 20 0;
+#X connect 7 2 21 0;
+#X connect 7 3 22 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 1;
+#X connect 10 0 4 0;
+#X connect 11 0 4 1;
+#X connect 12 0 18 1;
+#X connect 13 0 18 0;
+#X connect 14 0 19 1;
+#X connect 14 1 20 1;
+#X connect 14 2 21 1;
+#X connect 14 3 22 1;
+#X connect 15 0 23 0;
+#X connect 15 1 24 0;
+#X connect 16 0 12 0;
+#X connect 16 1 14 0;
+#X connect 17 0 13 0;
+#X connect 17 1 7 0;
+#X connect 18 0 2 0;
+#X connect 19 0 8 1;
+#X connect 20 0 9 1;
+#X connect 21 0 10 1;
+#X connect 22 0 11 1;
+#X connect 23 0 17 0;
+#X connect 24 0 16 0;
diff --git a/tests/mtx_sub/03_function.pd b/tests/mtx_sub/03_function.pd
new file mode 100644
index 0000000..3623c38
--- /dev/null
+++ b/tests/mtx_sub/03_function.pd
@@ -0,0 +1,49 @@
+#N canvas 144 215 431 450 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 243 \$3 \$4 \$5 \$6;
+#X obj 122 268 unpack 0 0 0 0;
+#X obj 184 330 *;
+#X obj 122 330 *;
+#X obj 122 356 *;
+#X obj 256 200 unpack 0 0 0 0;
+#X obj 122 307 ==;
+#X obj 153 307 ==;
+#X obj 184 307 ==;
+#X obj 215 307 ==;
+#X msg 122 179 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 122 156 t l l;
+#X obj 122 98 t b;
+#X msg 122 132 23 -3 4.4 9;
+#X obj 122 221 mtx_sub 6;
+#X obj 256 221 - 6;
+#X obj 297 221 - 6;
+#X obj 338 220 - 6;
+#X obj 379 220 - 6;
+#X connect 0 0 14 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 3 2 10 0;
+#X connect 3 3 11 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 17 0;
+#X connect 7 1 18 0;
+#X connect 7 2 19 0;
+#X connect 7 3 20 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 1;
+#X connect 10 0 4 0;
+#X connect 11 0 4 1;
+#X connect 12 0 16 0;
+#X connect 13 0 12 0;
+#X connect 13 1 7 0;
+#X connect 14 0 15 0;
+#X connect 15 0 13 0;
+#X connect 16 0 2 0;
+#X connect 17 0 8 1;
+#X connect 18 0 9 1;
+#X connect 19 0 10 1;
+#X connect 20 0 11 1;
diff --git a/tests/mtx_sub/04_function.pd b/tests/mtx_sub/04_function.pd
new file mode 100644
index 0000000..5cc865b
--- /dev/null
+++ b/tests/mtx_sub/04_function.pd
@@ -0,0 +1,60 @@
+#N canvas 385 142 412 429 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 243 \$3 \$4 \$5 \$6;
+#X obj 122 268 unpack 0 0 0 0;
+#X obj 184 330 *;
+#X obj 122 330 *;
+#X obj 122 356 *;
+#X obj 122 307 ==;
+#X obj 153 307 ==;
+#X obj 184 307 ==;
+#X obj 215 307 ==;
+#X msg 185 190 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 252 228 unpack 0 0 0 0;
+#X obj 122 98 t b b;
+#X obj 185 156 t l l;
+#X obj 122 221 mtx_sub;
+#X obj 236 269 -;
+#X obj 267 269 -;
+#X obj 298 268 -;
+#X obj 329 268 -;
+#X obj 122 156 t f f;
+#X obj 236 248 t f f f f;
+#X msg 122 132 8;
+#X msg 185 133 5 3 -1000 12.1235;
+#X connect 0 0 13 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 0;
+#X connect 3 1 8 0;
+#X connect 3 2 9 0;
+#X connect 3 3 10 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 5 0;
+#X connect 8 0 5 1;
+#X connect 9 0 4 0;
+#X connect 10 0 4 1;
+#X connect 11 0 15 1;
+#X connect 12 0 16 1;
+#X connect 12 1 17 1;
+#X connect 12 2 18 1;
+#X connect 12 3 19 1;
+#X connect 13 0 22 0;
+#X connect 13 1 23 0;
+#X connect 14 0 11 0;
+#X connect 14 1 12 0;
+#X connect 15 0 2 0;
+#X connect 16 0 7 1;
+#X connect 17 0 8 1;
+#X connect 18 0 9 1;
+#X connect 19 0 10 1;
+#X connect 20 0 15 0;
+#X connect 20 1 21 0;
+#X connect 21 0 16 0;
+#X connect 21 1 17 0;
+#X connect 21 2 18 0;
+#X connect 21 3 19 0;
+#X connect 22 0 20 0;
+#X connect 23 0 14 0;
diff --git a/tests/mtx_sub/05_function.pd b/tests/mtx_sub/05_function.pd
new file mode 100644
index 0000000..65026d8
--- /dev/null
+++ b/tests/mtx_sub/05_function.pd
@@ -0,0 +1,17 @@
+#N canvas 55 354 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 307 ==;
+#X obj 122 98 t b;
+#X obj 122 174 t f f;
+#X msg 122 132 7;
+#X obj 122 221 mtx_sub 2.1;
+#X obj 207 221 - 2.1;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 5 0;
+#X connect 4 0 6 0;
+#X connect 4 1 7 0;
+#X connect 5 0 4 0;
+#X connect 6 0 2 0;
+#X connect 7 0 2 1;
diff --git a/tests/mtx_sub/06_function.pd b/tests/mtx_sub/06_function.pd
new file mode 100644
index 0000000..ee1b2dd
--- /dev/null
+++ b/tests/mtx_sub/06_function.pd
@@ -0,0 +1,60 @@
+#N canvas 385 142 386 465 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 243 \$3 \$4 \$5 \$6;
+#X obj 122 268 unpack 0 0 0 0;
+#X obj 184 330 *;
+#X obj 122 330 *;
+#X obj 122 356 *;
+#X obj 236 248 unpack 0 0 0 0;
+#X obj 122 307 ==;
+#X obj 153 307 ==;
+#X obj 184 307 ==;
+#X obj 215 307 ==;
+#X msg 122 179 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 122 98 t b b;
+#X obj 122 156 t l l;
+#X obj 236 269 -;
+#X obj 267 269 -;
+#X obj 298 268 -;
+#X obj 329 268 -;
+#X obj 252 228 t f f f f;
+#X obj 185 156 t f f;
+#X obj 122 221 mtx_sub 0;
+#X msg 122 132 4 34 76 0.1;
+#X msg 205 133 9.5;
+#X connect 0 0 13 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 3 2 10 0;
+#X connect 3 3 11 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 15 0;
+#X connect 7 1 16 0;
+#X connect 7 2 17 0;
+#X connect 7 3 18 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 1;
+#X connect 10 0 4 0;
+#X connect 11 0 4 1;
+#X connect 12 0 21 0;
+#X connect 13 0 22 0;
+#X connect 13 1 23 0;
+#X connect 14 0 12 0;
+#X connect 14 1 7 0;
+#X connect 15 0 8 1;
+#X connect 16 0 9 1;
+#X connect 17 0 10 1;
+#X connect 18 0 11 1;
+#X connect 19 0 15 1;
+#X connect 19 1 16 1;
+#X connect 19 2 17 1;
+#X connect 19 3 18 1;
+#X connect 20 0 21 1;
+#X connect 20 1 19 0;
+#X connect 21 0 2 0;
+#X connect 22 0 14 0;
+#X connect 23 0 20 0;
diff --git a/tests/mtx_sub/07_function.pd b/tests/mtx_sub/07_function.pd
new file mode 100644
index 0000000..9488d27
--- /dev/null
+++ b/tests/mtx_sub/07_function.pd
@@ -0,0 +1,23 @@
+#N canvas 270 180 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 213 71 bang;
+#X obj 122 98 t b b;
+#X obj 122 175 t f f;
+#X obj 122 307 ==;
+#X obj 122 251 mtx_sub 0;
+#X obj 239 251 -;
+#X msg 122 132 2;
+#X msg 152 131 6.9;
+#X connect 0 0 3 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 4 0 6 0;
+#X connect 4 1 7 0;
+#X connect 5 0 1 0;
+#X connect 6 0 5 0;
+#X connect 7 0 5 1;
+#X connect 8 0 4 0;
+#X connect 9 0 6 1;
+#X connect 9 0 7 1;
diff --git a/tests/mtx_sub/08_function.pd b/tests/mtx_sub/08_function.pd
new file mode 100644
index 0000000..e06c2f2
--- /dev/null
+++ b/tests/mtx_sub/08_function.pd
@@ -0,0 +1,60 @@
+#N canvas 277 252 796 483 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 243 \$3 \$4 \$5 \$6;
+#X obj 122 268 unpack 0 0 0 0;
+#X obj 184 330 *;
+#X obj 122 330 *;
+#X obj 122 356 *;
+#X obj 236 248 unpack 0 0 0 0;
+#X obj 122 307 ==;
+#X obj 153 307 ==;
+#X obj 184 307 ==;
+#X obj 215 307 ==;
+#X msg 122 179 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 122 98 t b b;
+#X obj 122 156 t l l;
+#X obj 236 269 -;
+#X obj 267 269 -;
+#X obj 298 268 -;
+#X obj 329 268 -;
+#X obj 252 228 t f f f f;
+#X obj 225 156 t f f;
+#X obj 122 221 mtx_sub 0;
+#X msg 225 133 9.99;
+#X msg 122 132 3 2 6543.1 -1;
+#X connect 0 0 13 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 3 2 10 0;
+#X connect 3 3 11 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 15 0;
+#X connect 7 1 16 0;
+#X connect 7 2 17 0;
+#X connect 7 3 18 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 1;
+#X connect 10 0 4 0;
+#X connect 11 0 4 1;
+#X connect 12 0 21 0;
+#X connect 13 0 23 0;
+#X connect 13 1 22 0;
+#X connect 14 0 12 0;
+#X connect 14 1 7 0;
+#X connect 15 0 8 1;
+#X connect 16 0 9 1;
+#X connect 17 0 10 1;
+#X connect 18 0 11 1;
+#X connect 19 0 15 1;
+#X connect 19 1 16 1;
+#X connect 19 2 17 1;
+#X connect 19 3 18 1;
+#X connect 20 0 21 1;
+#X connect 20 1 19 0;
+#X connect 21 0 2 0;
+#X connect 22 0 20 0;
+#X connect 23 0 14 0;
diff --git a/tests/mtx_sub/09_function.pd b/tests/mtx_sub/09_function.pd
new file mode 100644
index 0000000..97a4fe3
--- /dev/null
+++ b/tests/mtx_sub/09_function.pd
@@ -0,0 +1,62 @@
+#N canvas 311 295 379 440 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 243 \$3 \$4 \$5 \$6;
+#X obj 122 268 unpack 0 0 0 0;
+#X obj 184 330 *;
+#X obj 122 330 *;
+#X obj 122 356 *;
+#X obj 236 248 unpack 0 0 0 0;
+#X obj 122 307 ==;
+#X obj 153 307 ==;
+#X obj 184 307 ==;
+#X obj 215 307 ==;
+#X msg 122 179 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 122 98 t b b;
+#X obj 185 156 t l l;
+#X obj 122 156 t l l;
+#X obj 122 221 mtx_sub;
+#X obj 236 269 -;
+#X obj 267 269 -;
+#X obj 298 268 -;
+#X obj 329 268 -;
+#X msg 186 200 matrix 1 2 \$1 \$2;
+#X obj 252 228 unpack 0 0;
+#X msg 122 132 3 -1 0.2 4.4;
+#X msg 215 133 9.13;
+#X connect 0 0 13 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 3 2 10 0;
+#X connect 3 3 11 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 17 0;
+#X connect 7 1 18 0;
+#X connect 7 2 19 0;
+#X connect 7 3 20 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 1;
+#X connect 10 0 4 0;
+#X connect 11 0 4 1;
+#X connect 12 0 16 0;
+#X connect 13 0 23 0;
+#X connect 13 1 24 0;
+#X connect 14 0 21 0;
+#X connect 14 1 22 0;
+#X connect 15 0 12 0;
+#X connect 15 1 7 0;
+#X connect 16 0 2 0;
+#X connect 17 0 8 1;
+#X connect 18 0 9 1;
+#X connect 19 0 10 1;
+#X connect 20 0 11 1;
+#X connect 21 0 16 1;
+#X connect 22 0 17 1;
+#X connect 22 0 19 1;
+#X connect 22 1 18 1;
+#X connect 22 1 20 1;
+#X connect 23 0 15 0;
+#X connect 24 0 14 0;
diff --git a/tests/mtx_sub/10_function.pd b/tests/mtx_sub/10_function.pd
new file mode 100644
index 0000000..4c7b399
--- /dev/null
+++ b/tests/mtx_sub/10_function.pd
@@ -0,0 +1,62 @@
+#N canvas 182 266 409 472 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 243 \$3 \$4 \$5 \$6;
+#X obj 122 268 unpack 0 0 0 0;
+#X obj 184 330 *;
+#X obj 122 330 *;
+#X obj 122 356 *;
+#X obj 236 248 unpack 0 0 0 0;
+#X obj 122 307 ==;
+#X obj 153 307 ==;
+#X obj 184 307 ==;
+#X obj 215 307 ==;
+#X msg 122 179 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 122 98 t b b;
+#X obj 185 156 t l l;
+#X obj 122 156 t l l;
+#X obj 122 221 mtx_sub;
+#X obj 236 269 -;
+#X obj 267 269 -;
+#X obj 298 268 -;
+#X obj 329 268 -;
+#X msg 166 200 matrix 2 1 \$1 \$2;
+#X obj 252 226 unpack 0 0;
+#X msg 122 132 3 2 -1 6;
+#X msg 185 133 12.5 -100;
+#X connect 0 0 13 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 3 2 10 0;
+#X connect 3 3 11 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 17 0;
+#X connect 7 1 18 0;
+#X connect 7 2 19 0;
+#X connect 7 3 20 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 1;
+#X connect 10 0 4 0;
+#X connect 11 0 4 1;
+#X connect 12 0 16 0;
+#X connect 13 0 23 0;
+#X connect 13 1 24 0;
+#X connect 14 0 21 0;
+#X connect 14 1 22 0;
+#X connect 15 0 12 0;
+#X connect 15 1 7 0;
+#X connect 16 0 2 0;
+#X connect 17 0 8 1;
+#X connect 18 0 9 1;
+#X connect 19 0 10 1;
+#X connect 20 0 11 1;
+#X connect 21 0 16 1;
+#X connect 22 0 17 1;
+#X connect 22 0 18 1;
+#X connect 22 1 19 1;
+#X connect 22 1 20 1;
+#X connect 23 0 15 0;
+#X connect 24 0 14 0;