tests for per-element unary operators

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

3 files changed, 137 insertions, 0 deletions

diff --git a/tests/mtx_int/01_function.pd b/tests/mtx_int/01_function.pd
new file mode 100644
index 0000000..9c93fcf
--- /dev/null
+++ b/tests/mtx_int/01_function.pd
@@ -0,0 +1,21 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 211 mtx_int;
+#X msg 122 233 \$3;
+#X obj 122 101 t b;
+#X obj 122 151 t f f;
+#X msg 122 190 matrix 1 1 \$1;
+#X obj 165 232 int;
+#X obj 122 265 ==;
+#X msg 122 127 -2;
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 4 0 9 0;
+#X connect 5 0 6 0;
+#X connect 5 1 7 0;
+#X connect 6 0 2 0;
+#X connect 7 0 8 1;
+#X connect 8 0 1 0;
+#X connect 9 0 5 0;
diff --git a/tests/mtx_int/02_function.pd b/tests/mtx_int/02_function.pd
new file mode 100644
index 0000000..b1798f7
--- /dev/null
+++ b/tests/mtx_int/02_function.pd
@@ -0,0 +1,50 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 191 mtx_int;
+#X text 67 37 test for existance of [mtx_int];
+#X msg 122 170 matrix 2 2 \$1 \$2 \$3 \$4;
+#X obj 122 89 t b;
+#X msg 122 110 3 -1 -10.5 0;
+#X obj 122 135 t l l;
+#X msg 122 213 \$3 \$4 \$5 \$6;
+#X obj 122 238 unpack 0 0 0 0;
+#X obj 184 300 *;
+#X obj 122 300 *;
+#X obj 122 326 *;
+#X obj 236 218 unpack 0 0 0 0;
+#X obj 122 277 ==;
+#X obj 153 277 ==;
+#X obj 184 277 ==;
+#X obj 215 277 ==;
+#X obj 236 239 int;
+#X obj 267 239 int;
+#X obj 298 238 int;
+#X obj 329 238 int;
+#X connect 0 0 5 0;
+#X connect 2 0 8 0;
+#X connect 4 0 2 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 4 0;
+#X connect 7 1 13 0;
+#X connect 8 0 9 0;
+#X connect 9 0 14 0;
+#X connect 9 1 15 0;
+#X connect 9 2 16 0;
+#X connect 9 3 17 0;
+#X connect 10 0 12 1;
+#X connect 11 0 12 0;
+#X connect 12 0 1 0;
+#X connect 13 0 18 0;
+#X connect 13 1 19 0;
+#X connect 13 2 20 0;
+#X connect 13 3 21 0;
+#X connect 14 0 11 0;
+#X connect 15 0 11 1;
+#X connect 16 0 10 0;
+#X connect 17 0 10 1;
+#X connect 18 0 14 1;
+#X connect 19 0 15 1;
+#X connect 20 0 16 1;
+#X connect 21 0 17 1;
diff --git a/tests/mtx_int/03_function.pd b/tests/mtx_int/03_function.pd
new file mode 100644
index 0000000..6a3d4b6
--- /dev/null
+++ b/tests/mtx_int/03_function.pd
@@ -0,0 +1,66 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 191 mtx_int;
+#X text 67 37 test for existance of [mtx_int];
+#X obj 122 89 t b;
+#X obj 122 135 t l l;
+#X obj 184 300 *;
+#X obj 122 300 *;
+#X obj 122 326 *;
+#X obj 122 277 ==;
+#X obj 153 277 ==;
+#X obj 184 277 ==;
+#X obj 215 277 ==;
+#X obj 266 239 int;
+#X obj 297 239 int;
+#X obj 328 238 int;
+#X obj 359 238 int;
+#X msg 122 170 matrix 2 3 \$1 \$2 \$3 \$4 \$5 \$6;
+#X obj 254 300 *;
+#X obj 254 277 ==;
+#X obj 285 277 ==;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X msg 122 213 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 388 238 int;
+#X obj 419 238 int;
+#X obj 266 218 unpack 0 0 0 0 0 0;
+#X obj 122 347 *;
+#X msg 122 110 3 -1 10.5 0.05 0 12;
+#X connect 0 0 4 0;
+#X connect 2 0 22 0;
+#X connect 4 0 27 0;
+#X connect 5 0 17 0;
+#X connect 5 1 25 0;
+#X connect 6 0 8 1;
+#X connect 7 0 8 0;
+#X connect 8 0 26 0;
+#X connect 9 0 7 0;
+#X connect 10 0 7 1;
+#X connect 11 0 6 0;
+#X connect 12 0 6 1;
+#X connect 13 0 9 1;
+#X connect 14 0 10 1;
+#X connect 15 0 11 1;
+#X connect 16 0 12 1;
+#X connect 17 0 2 0;
+#X connect 18 0 26 1;
+#X connect 19 0 18 0;
+#X connect 20 0 18 1;
+#X connect 21 0 9 0;
+#X connect 21 1 10 0;
+#X connect 21 2 11 0;
+#X connect 21 3 12 0;
+#X connect 21 4 19 0;
+#X connect 21 5 20 0;
+#X connect 22 0 21 0;
+#X connect 23 0 19 1;
+#X connect 24 0 20 1;
+#X connect 25 0 13 0;
+#X connect 25 1 14 0;
+#X connect 25 2 15 0;
+#X connect 25 3 16 0;
+#X connect 25 4 23 0;
+#X connect 25 5 24 0;
+#X connect 26 0 1 0;
+#X connect 27 0 5 0;