tests for sources

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

17 files changed, 579 insertions, 0 deletions

diff --git a/tests/mtx_egg/01_function.pd b/tests/mtx_egg/01_function.pd
new file mode 100644
index 0000000..1808d92
--- /dev/null
+++ b/tests/mtx_egg/01_function.pd
@@ -0,0 +1,29 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 214 \$3 \$4 \$5 \$6;
+#X obj 122 161 mtx_egg 2;
+#X obj 122 238 unpack 0 0 0 0;
+#X obj 122 262 == 0;
+#X obj 242 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 162 262 == 1;
+#X obj 202 262 == 1;
+#X connect 0 0 10 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 4 1 11 0;
+#X connect 4 2 12 0;
+#X connect 4 3 6 0;
+#X connect 5 0 7 0;
+#X connect 6 0 9 1;
+#X connect 7 0 8 0;
+#X connect 8 0 1 0;
+#X connect 9 0 8 1;
+#X connect 10 0 3 0;
+#X connect 11 0 7 1;
+#X connect 12 0 9 0;
diff --git a/tests/mtx_egg/02_function.pd b/tests/mtx_egg/02_function.pd
new file mode 100644
index 0000000..b896097
--- /dev/null
+++ b/tests/mtx_egg/02_function.pd
@@ -0,0 +1,39 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 262 == 0;
+#X obj 162 262 == 0;
+#X obj 242 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 161 mtx_egg 2 3;
+#X msg 122 214 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 322 262 == 0;
+#X obj 282 282 *;
+#X obj 122 324 *;
+#X obj 202 262 == 1;
+#X obj 282 262 == 1;
+#X connect 0 0 8 0;
+#X connect 2 0 5 0;
+#X connect 3 0 5 1;
+#X connect 4 0 7 1;
+#X connect 5 0 6 0;
+#X connect 6 0 14 0;
+#X connect 7 0 6 1;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 2 0;
+#X connect 11 1 3 0;
+#X connect 11 2 15 0;
+#X connect 11 3 4 0;
+#X connect 11 4 16 0;
+#X connect 11 5 12 0;
+#X connect 12 0 13 1;
+#X connect 13 0 14 1;
+#X connect 14 0 1 0;
+#X connect 15 0 7 0;
+#X connect 16 0 13 0;
diff --git a/tests/mtx_egg/03_function.pd b/tests/mtx_egg/03_function.pd
new file mode 100644
index 0000000..8976e4c
--- /dev/null
+++ b/tests/mtx_egg/03_function.pd
@@ -0,0 +1,31 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 262 == 0;
+#X obj 242 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 122 161 mtx_egg 7 8;
+#X msg 122 214 \$3 \$4 \$5 \$6;
+#X msg 122 135 2;
+#X obj 162 262 == 1;
+#X obj 202 262 == 1;
+#X connect 0 0 7 0;
+#X connect 2 0 4 0;
+#X connect 3 0 6 1;
+#X connect 4 0 5 0;
+#X connect 5 0 1 0;
+#X connect 6 0 5 1;
+#X connect 7 0 11 0;
+#X connect 8 0 2 0;
+#X connect 8 1 12 0;
+#X connect 8 2 13 0;
+#X connect 8 3 3 0;
+#X connect 9 0 10 0;
+#X connect 10 0 8 0;
+#X connect 11 0 9 0;
+#X connect 12 0 4 1;
+#X connect 13 0 6 0;
diff --git a/tests/mtx_egg/04_function.pd b/tests/mtx_egg/04_function.pd
new file mode 100644
index 0000000..477e490
--- /dev/null
+++ b/tests/mtx_egg/04_function.pd
@@ -0,0 +1,41 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 262 == 0;
+#X obj 242 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X msg 122 214 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 282 262 == 0;
+#X obj 322 262 == 0;
+#X obj 282 282 *;
+#X obj 122 324 *;
+#X msg 122 135 3 2;
+#X obj 122 161 mtx_egg;
+#X obj 162 262 == 1;
+#X obj 202 262 == 1;
+#X connect 0 0 7 0;
+#X connect 2 0 4 0;
+#X connect 3 0 6 1;
+#X connect 4 0 5 0;
+#X connect 5 0 13 0;
+#X connect 6 0 5 1;
+#X connect 7 0 14 0;
+#X connect 8 0 9 0;
+#X connect 9 0 2 0;
+#X connect 9 1 16 0;
+#X connect 9 2 17 0;
+#X connect 9 3 3 0;
+#X connect 9 4 10 0;
+#X connect 9 5 11 0;
+#X connect 10 0 12 0;
+#X connect 11 0 12 1;
+#X connect 12 0 13 1;
+#X connect 13 0 1 0;
+#X connect 14 0 15 0;
+#X connect 15 0 8 0;
+#X connect 16 0 4 1;
+#X connect 17 0 6 0;
diff --git a/tests/mtx_eye/01_function.pd b/tests/mtx_eye/01_function.pd
new file mode 100644
index 0000000..fa1b772
--- /dev/null
+++ b/tests/mtx_eye/01_function.pd
@@ -0,0 +1,29 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 214 \$3 \$4 \$5 \$6;
+#X obj 122 161 mtx_eye 2;
+#X obj 122 238 unpack 0 0 0 0;
+#X obj 162 262 == 0;
+#X obj 202 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 262 == 1;
+#X obj 242 262 == 1;
+#X connect 0 0 10 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 11 0;
+#X connect 4 1 5 0;
+#X connect 4 2 6 0;
+#X connect 4 3 12 0;
+#X connect 5 0 7 1;
+#X connect 6 0 9 0;
+#X connect 7 0 8 0;
+#X connect 8 0 1 0;
+#X connect 9 0 8 1;
+#X connect 10 0 3 0;
+#X connect 11 0 7 0;
+#X connect 12 0 9 1;
diff --git a/tests/mtx_eye/02_function.pd b/tests/mtx_eye/02_function.pd
new file mode 100644
index 0000000..6284449
--- /dev/null
+++ b/tests/mtx_eye/02_function.pd
@@ -0,0 +1,41 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 162 262 == 0;
+#X obj 202 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 161 mtx_eye 2 3;
+#X msg 122 214 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 322 262 == 0;
+#X obj 282 282 *;
+#X obj 122 324 *;
+#X obj 122 262 == 1;
+#X msg 140 133 bang;
+#X obj 242 262 == 0;
+#X obj 282 262 == 1;
+#X connect 0 0 7 0;
+#X connect 2 0 4 1;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 13 0;
+#X connect 6 0 5 1;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 14 0;
+#X connect 10 1 2 0;
+#X connect 10 2 3 0;
+#X connect 10 3 16 0;
+#X connect 10 4 17 0;
+#X connect 10 5 11 0;
+#X connect 11 0 12 1;
+#X connect 12 0 13 1;
+#X connect 13 0 1 0;
+#X connect 14 0 4 0;
+#X connect 15 0 8 0;
+#X connect 16 0 6 1;
+#X connect 17 0 12 0;
diff --git a/tests/mtx_eye/03_function.pd b/tests/mtx_eye/03_function.pd
new file mode 100644
index 0000000..29a2ed1
--- /dev/null
+++ b/tests/mtx_eye/03_function.pd
@@ -0,0 +1,31 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 162 262 == 0;
+#X obj 202 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 122 161 mtx_eye 7 8;
+#X msg 122 214 \$3 \$4 \$5 \$6;
+#X msg 122 135 2;
+#X obj 122 262 == 1;
+#X obj 242 262 == 1;
+#X connect 0 0 7 0;
+#X connect 2 0 4 1;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 1 0;
+#X connect 6 0 5 1;
+#X connect 7 0 11 0;
+#X connect 8 0 12 0;
+#X connect 8 1 2 0;
+#X connect 8 2 3 0;
+#X connect 8 3 13 0;
+#X connect 9 0 10 0;
+#X connect 10 0 8 0;
+#X connect 11 0 9 0;
+#X connect 12 0 4 0;
+#X connect 13 0 6 1;
diff --git a/tests/mtx_eye/04_function.pd b/tests/mtx_eye/04_function.pd
new file mode 100644
index 0000000..6c815c4
--- /dev/null
+++ b/tests/mtx_eye/04_function.pd
@@ -0,0 +1,41 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 162 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X msg 122 214 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 322 262 == 0;
+#X obj 282 282 *;
+#X obj 122 324 *;
+#X msg 122 135 3 2;
+#X obj 122 161 mtx_eye;
+#X obj 122 262 == 1;
+#X obj 202 262 == 0;
+#X obj 242 262 == 1;
+#X obj 282 262 == 0;
+#X connect 0 0 6 0;
+#X connect 2 0 3 1;
+#X connect 3 0 4 0;
+#X connect 4 0 11 0;
+#X connect 5 0 4 1;
+#X connect 6 0 12 0;
+#X connect 7 0 8 0;
+#X connect 8 0 14 0;
+#X connect 8 1 2 0;
+#X connect 8 2 15 0;
+#X connect 8 3 16 0;
+#X connect 8 4 17 0;
+#X connect 8 5 9 0;
+#X connect 9 0 10 1;
+#X connect 10 0 11 1;
+#X connect 11 0 1 0;
+#X connect 12 0 13 0;
+#X connect 13 0 7 0;
+#X connect 14 0 3 0;
+#X connect 15 0 5 0;
+#X connect 16 0 5 1;
+#X connect 17 0 10 0;
diff --git a/tests/mtx_ones/01_function.pd b/tests/mtx_ones/01_function.pd
new file mode 100644
index 0000000..8c21b22
--- /dev/null
+++ b/tests/mtx_ones/01_function.pd
@@ -0,0 +1,29 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 214 \$3 \$4 \$5 \$6;
+#X obj 122 161 mtx_ones 2;
+#X obj 122 238 unpack 0 0 0 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 262 == 1;
+#X obj 162 262 == 1;
+#X obj 202 262 == 1;
+#X obj 242 262 == 1;
+#X connect 0 0 8 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 9 0;
+#X connect 4 1 10 0;
+#X connect 4 2 11 0;
+#X connect 4 3 12 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 6 1;
+#X connect 8 0 3 0;
+#X connect 9 0 5 0;
+#X connect 10 0 5 1;
+#X connect 11 0 7 0;
+#X connect 12 0 7 1;
diff --git a/tests/mtx_ones/02_function.pd b/tests/mtx_ones/02_function.pd
new file mode 100644
index 0000000..5f5316a
--- /dev/null
+++ b/tests/mtx_ones/02_function.pd
@@ -0,0 +1,39 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 161 mtx_ones 2 3;
+#X msg 122 214 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 282 282 *;
+#X obj 122 324 *;
+#X obj 122 262 == 1;
+#X obj 162 262 == 1;
+#X obj 202 262 == 1;
+#X obj 242 262 == 1;
+#X obj 282 262 == 1;
+#X obj 322 262 == 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 10 0;
+#X connect 4 0 3 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 11 0;
+#X connect 8 1 12 0;
+#X connect 8 2 13 0;
+#X connect 8 3 14 0;
+#X connect 8 4 15 0;
+#X connect 8 5 16 0;
+#X connect 9 0 10 1;
+#X connect 10 0 1 0;
+#X connect 11 0 2 0;
+#X connect 12 0 2 1;
+#X connect 13 0 4 0;
+#X connect 14 0 4 1;
+#X connect 15 0 9 0;
+#X connect 16 0 9 1;
diff --git a/tests/mtx_ones/03_function.pd b/tests/mtx_ones/03_function.pd
new file mode 100644
index 0000000..7e40cd9
--- /dev/null
+++ b/tests/mtx_ones/03_function.pd
@@ -0,0 +1,31 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 122 161 mtx_ones 7 8;
+#X msg 122 214 \$3 \$4 \$5 \$6;
+#X msg 122 135 2;
+#X obj 122 262 == 1;
+#X obj 162 262 == 1;
+#X obj 202 262 == 1;
+#X obj 242 262 == 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 3 1;
+#X connect 5 0 9 0;
+#X connect 6 0 10 0;
+#X connect 6 1 11 0;
+#X connect 6 2 12 0;
+#X connect 6 3 13 0;
+#X connect 7 0 8 0;
+#X connect 8 0 6 0;
+#X connect 9 0 7 0;
+#X connect 10 0 2 0;
+#X connect 11 0 2 1;
+#X connect 12 0 4 0;
+#X connect 13 0 4 1;
diff --git a/tests/mtx_ones/04_function.pd b/tests/mtx_ones/04_function.pd
new file mode 100644
index 0000000..899c55c
--- /dev/null
+++ b/tests/mtx_ones/04_function.pd
@@ -0,0 +1,41 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X msg 122 214 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 282 282 *;
+#X obj 122 324 *;
+#X msg 122 135 3 2;
+#X obj 122 161 mtx_ones;
+#X obj 122 262 == 1;
+#X obj 162 262 == 1;
+#X obj 202 262 == 1;
+#X obj 242 262 == 1;
+#X obj 282 262 == 1;
+#X obj 322 262 == 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 9 0;
+#X connect 4 0 3 1;
+#X connect 5 0 10 0;
+#X connect 6 0 7 0;
+#X connect 7 0 12 0;
+#X connect 7 1 13 0;
+#X connect 7 2 14 0;
+#X connect 7 3 15 0;
+#X connect 7 4 16 0;
+#X connect 7 5 17 0;
+#X connect 8 0 9 1;
+#X connect 9 0 1 0;
+#X connect 10 0 11 0;
+#X connect 11 0 6 0;
+#X connect 12 0 2 0;
+#X connect 13 0 2 1;
+#X connect 14 0 4 0;
+#X connect 15 0 4 1;
+#X connect 16 0 8 0;
+#X connect 17 0 8 1;
diff --git a/tests/mtx_zeros/01_function.pd b/tests/mtx_zeros/01_function.pd
new file mode 100644
index 0000000..075e6d4
--- /dev/null
+++ b/tests/mtx_zeros/01_function.pd
@@ -0,0 +1,29 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 214 \$3 \$4 \$5 \$6;
+#X obj 122 161 mtx_zeros 2;
+#X obj 122 238 unpack 0 0 0 0;
+#X obj 122 262 == 0;
+#X obj 162 262 == 0;
+#X obj 202 262 == 0;
+#X obj 242 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X connect 0 0 12 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 4 1 6 0;
+#X connect 4 2 7 0;
+#X connect 4 3 8 0;
+#X connect 5 0 9 0;
+#X connect 6 0 9 1;
+#X connect 7 0 11 0;
+#X connect 8 0 11 1;
+#X connect 9 0 10 0;
+#X connect 10 0 1 0;
+#X connect 11 0 10 1;
+#X connect 12 0 3 0;
diff --git a/tests/mtx_zeros/02_function.pd b/tests/mtx_zeros/02_function.pd
new file mode 100644
index 0000000..56ee233
--- /dev/null
+++ b/tests/mtx_zeros/02_function.pd
@@ -0,0 +1,39 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 262 == 0;
+#X obj 162 262 == 0;
+#X obj 202 262 == 0;
+#X obj 242 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 161 mtx_zeros 2 3;
+#X msg 122 214 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 282 262 == 0;
+#X obj 322 262 == 0;
+#X obj 282 282 *;
+#X obj 122 324 *;
+#X connect 0 0 9 0;
+#X connect 2 0 6 0;
+#X connect 3 0 6 1;
+#X connect 4 0 8 0;
+#X connect 5 0 8 1;
+#X connect 6 0 7 0;
+#X connect 7 0 16 0;
+#X connect 8 0 7 1;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 2 0;
+#X connect 12 1 3 0;
+#X connect 12 2 4 0;
+#X connect 12 3 5 0;
+#X connect 12 4 13 0;
+#X connect 12 5 14 0;
+#X connect 13 0 15 0;
+#X connect 14 0 15 1;
+#X connect 15 0 16 1;
+#X connect 16 0 1 0;
diff --git a/tests/mtx_zeros/03_function.pd b/tests/mtx_zeros/03_function.pd
new file mode 100644
index 0000000..b5958de
--- /dev/null
+++ b/tests/mtx_zeros/03_function.pd
@@ -0,0 +1,31 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 262 == 0;
+#X obj 162 262 == 0;
+#X obj 202 262 == 0;
+#X obj 242 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 122 161 mtx_zeros 7 8;
+#X msg 122 214 \$3 \$4 \$5 \$6;
+#X msg 122 135 2;
+#X connect 0 0 9 0;
+#X connect 2 0 6 0;
+#X connect 3 0 6 1;
+#X connect 4 0 8 0;
+#X connect 5 0 8 1;
+#X connect 6 0 7 0;
+#X connect 7 0 1 0;
+#X connect 8 0 7 1;
+#X connect 9 0 13 0;
+#X connect 10 0 2 0;
+#X connect 10 1 3 0;
+#X connect 10 2 4 0;
+#X connect 10 3 5 0;
+#X connect 11 0 12 0;
+#X connect 12 0 10 0;
+#X connect 13 0 11 0;
diff --git a/tests/mtx_zeros/04_function.pd b/tests/mtx_zeros/04_function.pd
new file mode 100644
index 0000000..26d16f8
--- /dev/null
+++ b/tests/mtx_zeros/04_function.pd
@@ -0,0 +1,41 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 262 == 0;
+#X obj 162 262 == 0;
+#X obj 202 262 == 0;
+#X obj 242 262 == 0;
+#X obj 122 282 *;
+#X obj 122 302 *;
+#X obj 202 282 *;
+#X obj 122 104 t b;
+#X msg 122 214 \$3 \$4 \$5 \$6 \$7 \$8;
+#X obj 122 238 unpack 0 0 0 0 0 0;
+#X obj 282 262 == 0;
+#X obj 322 262 == 0;
+#X obj 282 282 *;
+#X obj 122 324 *;
+#X msg 122 135 3 2;
+#X obj 122 161 mtx_zeros;
+#X connect 0 0 9 0;
+#X connect 2 0 6 0;
+#X connect 3 0 6 1;
+#X connect 4 0 8 0;
+#X connect 5 0 8 1;
+#X connect 6 0 7 0;
+#X connect 7 0 15 0;
+#X connect 8 0 7 1;
+#X connect 9 0 16 0;
+#X connect 10 0 11 0;
+#X connect 11 0 2 0;
+#X connect 11 1 3 0;
+#X connect 11 2 4 0;
+#X connect 11 3 5 0;
+#X connect 11 4 12 0;
+#X connect 11 5 13 0;
+#X connect 12 0 14 0;
+#X connect 13 0 14 1;
+#X connect 14 0 15 1;
+#X connect 15 0 1 0;
+#X connect 16 0 17 0;
+#X connect 17 0 10 0;
diff --git a/tests/runtests.txt b/tests/runtests.txt
index b224529..bee575a 100644
--- a/tests/runtests.txt
+++ b/tests/runtests.txt
@@ -1,5 +1,6 @@
 mtx_abs/00_exist;
 mtx_abs/01_function;
+mtx_abs/02_function;
 mtx_add/00_exist;
 mtx_add/00_exist1;
 mtx_add/01_function;
@@ -83,6 +84,10 @@ mtx_diegg/00_exist;
 mtx_diff/00_exist;
 mtx_distance2/00_exist;
 mtx_egg/00_exist;
+mtx_egg/01_function;
+mtx_egg/02_function;
+mtx_egg/03_function;
+mtx_egg/04_function;
 mtx_element/00_exist;
 mtx_eq/00_exist;
 mtx_eq/01_function;
@@ -97,6 +102,10 @@ mtx_eq/09_function;
 mtx_eq/10_function;
 mtx_exp/00_exist;
 mtx_eye/00_exist;
+mtx_eye/01_function;
+mtx_eye/02_function;
+mtx_eye/03_function;
+mtx_eye/04_function;
 mtx_fill/00_exist;
 mtx_find/00_exist;
 mtx_gauss/00_exist;
@@ -171,6 +180,10 @@ mtx_neq/10_function;
 mtx_not/00_exist;
 mtx_not/00_exist1;
 mtx_ones/00_exist;
+mtx_ones/01_function;
+mtx_ones/02_function;
+mtx_ones/03_function;
+mtx_ones/04_function;
 mtx_or/00_exist;
 mtx_or/01_function;
 mtx_or/02_function;
@@ -216,3 +229,7 @@ mtx_symasym/00_exist;
 mtx_trace/00_exist;
 mtx_transpose/00_exist;
 mtx_zeros/00_exist;
+mtx_zeros/01_function;
+mtx_zeros/02_function;
+mtx_zeros/03_function;
+mtx_zeros/04_function;