tests whether sources output correct-sized matrices

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

9 files changed, 224 insertions, 0 deletions

diff --git a/tests/mtx_egg/05_function.pd b/tests/mtx_egg/05_function.pd
new file mode 100644
index 0000000..6ab47f2
--- /dev/null
+++ b/tests/mtx_egg/05_function.pd
@@ -0,0 +1,27 @@
+#N canvas 541 351 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 282 *;
+#X obj 122 104 t b;
+#X obj 122 191 mtx_egg 7 8;
+#X msg 122 135 10 14;
+#X msg 122 214 \$1 \$2;
+#X obj 122 157 t l l;
+#X obj 122 262 ==;
+#X obj 162 262 ==;
+#X obj 179 215 unpack;
+#X obj 122 236 unpack;
+#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 5 0 7 0;
+#X connect 6 0 11 0;
+#X connect 7 0 4 0;
+#X connect 7 1 10 0;
+#X connect 8 0 2 0;
+#X connect 9 0 2 1;
+#X connect 10 0 8 1;
+#X connect 10 1 9 1;
+#X connect 11 0 8 0;
+#X connect 11 1 9 0;
diff --git a/tests/mtx_egg/06_function.pd b/tests/mtx_egg/06_function.pd
new file mode 100644
index 0000000..32bebf3
--- /dev/null
+++ b/tests/mtx_egg/06_function.pd
@@ -0,0 +1,27 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 104 t b;
+#X obj 122 282 *;
+#X obj 122 191 mtx_egg 7 8;
+#X msg 122 214 \$1 \$2;
+#X obj 122 262 ==;
+#X obj 162 262 ==;
+#X obj 122 236 unpack;
+#X msg 122 135 32;
+#X obj 122 157 t f f;
+#X obj 179 215 t f f;
+#X connect 0 0 2 0;
+#X connect 2 0 9 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 8 0;
+#X connect 6 0 3 0;
+#X connect 7 0 3 1;
+#X connect 8 0 6 0;
+#X connect 8 1 7 0;
+#X connect 9 0 10 0;
+#X connect 10 0 4 0;
+#X connect 10 1 11 0;
+#X connect 11 0 6 1;
+#X connect 11 1 7 1;
diff --git a/tests/mtx_eye/05_function.pd b/tests/mtx_eye/05_function.pd
new file mode 100644
index 0000000..3bd8a27
--- /dev/null
+++ b/tests/mtx_eye/05_function.pd
@@ -0,0 +1,27 @@
+#N canvas 541 351 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 282 *;
+#X obj 122 104 t b;
+#X obj 122 191 mtx_eye 7 8;
+#X msg 122 135 10 14;
+#X msg 122 214 \$1 \$2;
+#X obj 122 157 t l l;
+#X obj 122 262 ==;
+#X obj 162 262 ==;
+#X obj 179 215 unpack;
+#X obj 122 236 unpack;
+#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 5 0 7 0;
+#X connect 6 0 11 0;
+#X connect 7 0 4 0;
+#X connect 7 1 10 0;
+#X connect 8 0 2 0;
+#X connect 9 0 2 1;
+#X connect 10 0 8 1;
+#X connect 10 1 9 1;
+#X connect 11 0 8 0;
+#X connect 11 1 9 0;
diff --git a/tests/mtx_eye/06_function.pd b/tests/mtx_eye/06_function.pd
new file mode 100644
index 0000000..0c00ef0
--- /dev/null
+++ b/tests/mtx_eye/06_function.pd
@@ -0,0 +1,27 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 104 t b;
+#X obj 122 282 *;
+#X obj 122 191 mtx_eye 7 8;
+#X msg 122 214 \$1 \$2;
+#X obj 122 262 ==;
+#X obj 162 262 ==;
+#X obj 122 236 unpack;
+#X msg 122 135 32;
+#X obj 122 157 t f f;
+#X obj 179 215 t f f;
+#X connect 0 0 2 0;
+#X connect 2 0 9 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 8 0;
+#X connect 6 0 3 0;
+#X connect 7 0 3 1;
+#X connect 8 0 6 0;
+#X connect 8 1 7 0;
+#X connect 9 0 10 0;
+#X connect 10 0 4 0;
+#X connect 10 1 11 0;
+#X connect 11 0 6 1;
+#X connect 11 1 7 1;
diff --git a/tests/mtx_ones/05_function.pd b/tests/mtx_ones/05_function.pd
new file mode 100644
index 0000000..b4416df
--- /dev/null
+++ b/tests/mtx_ones/05_function.pd
@@ -0,0 +1,27 @@
+#N canvas 541 351 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 282 *;
+#X obj 122 104 t b;
+#X obj 122 191 mtx_ones 7 8;
+#X msg 122 135 10 14;
+#X msg 122 214 \$1 \$2;
+#X obj 122 157 t l l;
+#X obj 122 262 ==;
+#X obj 162 262 ==;
+#X obj 179 215 unpack;
+#X obj 122 236 unpack;
+#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 5 0 7 0;
+#X connect 6 0 11 0;
+#X connect 7 0 4 0;
+#X connect 7 1 10 0;
+#X connect 8 0 2 0;
+#X connect 9 0 2 1;
+#X connect 10 0 8 1;
+#X connect 10 1 9 1;
+#X connect 11 0 8 0;
+#X connect 11 1 9 0;
diff --git a/tests/mtx_ones/06_function.pd b/tests/mtx_ones/06_function.pd
new file mode 100644
index 0000000..7928723
--- /dev/null
+++ b/tests/mtx_ones/06_function.pd
@@ -0,0 +1,27 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 104 t b;
+#X obj 122 282 *;
+#X obj 122 191 mtx_ones 7 8;
+#X msg 122 214 \$1 \$2;
+#X obj 122 262 ==;
+#X obj 162 262 ==;
+#X obj 122 236 unpack;
+#X msg 122 135 32;
+#X obj 122 157 t f f;
+#X obj 179 215 t f f;
+#X connect 0 0 2 0;
+#X connect 2 0 9 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 8 0;
+#X connect 6 0 3 0;
+#X connect 7 0 3 1;
+#X connect 8 0 6 0;
+#X connect 8 1 7 0;
+#X connect 9 0 10 0;
+#X connect 10 0 4 0;
+#X connect 10 1 11 0;
+#X connect 11 0 6 1;
+#X connect 11 1 7 1;
diff --git a/tests/mtx_zeros/05_function.pd b/tests/mtx_zeros/05_function.pd
new file mode 100644
index 0000000..0f36c85
--- /dev/null
+++ b/tests/mtx_zeros/05_function.pd
@@ -0,0 +1,27 @@
+#N canvas 541 351 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 282 *;
+#X obj 122 104 t b;
+#X obj 122 191 mtx_zeros 7 8;
+#X msg 122 135 10 14;
+#X msg 122 214 \$1 \$2;
+#X obj 122 157 t l l;
+#X obj 122 262 ==;
+#X obj 162 262 ==;
+#X obj 179 215 unpack;
+#X obj 122 236 unpack;
+#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 5 0 7 0;
+#X connect 6 0 11 0;
+#X connect 7 0 4 0;
+#X connect 7 1 10 0;
+#X connect 8 0 2 0;
+#X connect 9 0 2 1;
+#X connect 10 0 8 1;
+#X connect 10 1 9 1;
+#X connect 11 0 8 0;
+#X connect 11 1 9 0;
diff --git a/tests/mtx_zeros/06_function.pd b/tests/mtx_zeros/06_function.pd
new file mode 100644
index 0000000..4c861ff
--- /dev/null
+++ b/tests/mtx_zeros/06_function.pd
@@ -0,0 +1,27 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 104 t b;
+#X obj 122 282 *;
+#X obj 122 191 mtx_zeros 7 8;
+#X msg 122 214 \$1 \$2;
+#X obj 122 262 ==;
+#X obj 162 262 ==;
+#X obj 122 236 unpack;
+#X msg 122 135 32;
+#X obj 122 157 t f f;
+#X obj 179 215 t f f;
+#X connect 0 0 2 0;
+#X connect 2 0 9 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 8 0;
+#X connect 6 0 3 0;
+#X connect 7 0 3 1;
+#X connect 8 0 6 0;
+#X connect 8 1 7 0;
+#X connect 9 0 10 0;
+#X connect 10 0 4 0;
+#X connect 10 1 11 0;
+#X connect 11 0 6 1;
+#X connect 11 1 7 1;
diff --git a/tests/runtests.txt b/tests/runtests.txt
index bee575a..195a4f1 100644
--- a/tests/runtests.txt
+++ b/tests/runtests.txt
@@ -88,6 +88,8 @@ mtx_egg/01_function;
 mtx_egg/02_function;
 mtx_egg/03_function;
 mtx_egg/04_function;
+mtx_egg/05_function;
+mtx_egg/06_function;
 mtx_element/00_exist;
 mtx_eq/00_exist;
 mtx_eq/01_function;
@@ -106,6 +108,8 @@ mtx_eye/01_function;
 mtx_eye/02_function;
 mtx_eye/03_function;
 mtx_eye/04_function;
+mtx_eye/05_function;
+mtx_eye/06_function;
 mtx_fill/00_exist;
 mtx_find/00_exist;
 mtx_gauss/00_exist;
@@ -184,6 +188,8 @@ mtx_ones/01_function;
 mtx_ones/02_function;
 mtx_ones/03_function;
 mtx_ones/04_function;
+mtx_ones/05_function;
+mtx_ones/06_function;
 mtx_or/00_exist;
 mtx_or/01_function;
 mtx_or/02_function;
@@ -233,3 +239,5 @@ mtx_zeros/01_function;
 mtx_zeros/02_function;
 mtx_zeros/03_function;
 mtx_zeros/04_function;
+mtx_zeros/05_function;
+mtx_zeros/06_function;