added (simple) regression tests for objects; currrently the only test performed is whether an object reacts on a message

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

79 files changed, 1153 insertions, 0 deletions

diff --git a/tests/mtx_abs/exist.pd b/tests/mtx_abs/exist.pd
new file mode 100644
index 0000000..03e4a83
--- /dev/null
+++ b/tests/mtx_abs/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_abs;
+#X text 67 37 test for existance of [mtx_abs];
+#X msg 122 120 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_add/exist.pd b/tests/mtx_add/exist.pd
new file mode 100644
index 0000000..36826f3
--- /dev/null
+++ b/tests/mtx_add/exist.pd
@@ -0,0 +1,15 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_add];
+#X obj 122 221 mtx_add 1;
+#X obj 122 98 t b;
+#X msg 122 172 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 0;
diff --git a/tests/mtx_add/exist1.pd b/tests/mtx_add/exist1.pd
new file mode 100644
index 0000000..d28a516
--- /dev/null
+++ b/tests/mtx_add/exist1.pd
@@ -0,0 +1,15 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_+];
+#X obj 122 221 mtx_+ 1;
+#X obj 122 98 t b;
+#X msg 122 172 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 0;
diff --git a/tests/mtx_and/exist.pd b/tests/mtx_and/exist.pd
new file mode 100644
index 0000000..08f4790
--- /dev/null
+++ b/tests/mtx_and/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_and];
+#X obj 122 161 mtx_and 1;
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
+#X connect 6 0 5 0;
diff --git a/tests/mtx_bitand/exist.pd b/tests/mtx_bitand/exist.pd
new file mode 100644
index 0000000..0dc208b
--- /dev/null
+++ b/tests/mtx_bitand/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_bitand];
+#X msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_bitand 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/tests/mtx_bitleft/exist.pd b/tests/mtx_bitleft/exist.pd
new file mode 100644
index 0000000..4b1c308
--- /dev/null
+++ b/tests/mtx_bitleft/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_bitleft];
+#X msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_bitleft;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/tests/mtx_bitor/exist.pd b/tests/mtx_bitor/exist.pd
new file mode 100644
index 0000000..5391037
--- /dev/null
+++ b/tests/mtx_bitor/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_bitor];
+#X msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_bitor 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/tests/mtx_bitright/exist.pd b/tests/mtx_bitright/exist.pd
new file mode 100644
index 0000000..445e0f5
--- /dev/null
+++ b/tests/mtx_bitright/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_bitleft];
+#X msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_bitright;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/tests/mtx_check/exist.pd b/tests/mtx_check/exist.pd
new file mode 100644
index 0000000..3d34a8f
--- /dev/null
+++ b/tests/mtx_check/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_check;
+#X text 67 37 test for existance of [mtx_check];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_cholesky/exist.pd b/tests/mtx_cholesky/exist.pd
new file mode 100644
index 0000000..0072f2a
--- /dev/null
+++ b/tests/mtx_cholesky/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_cholesky;
+#X text 67 37 test for existance of [mtx_cholesky];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_col/exist.pd b/tests/mtx_col/exist.pd
new file mode 100644
index 0000000..96ceeee
--- /dev/null
+++ b/tests/mtx_col/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_col;
+#X text 67 37 test for existance of [mtx_col];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_colon/exist.pd b/tests/mtx_colon/exist.pd
new file mode 100644
index 0000000..e625d2b
--- /dev/null
+++ b/tests/mtx_colon/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_colon;
+#X text 67 37 test for existance of [mtx_colon];
+#X msg 122 119 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_colon/exist1.pd b/tests/mtx_colon/exist1.pd
new file mode 100644
index 0000000..d0191a5
--- /dev/null
+++ b/tests/mtx_colon/exist1.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_:;
+#X text 67 37 test for existance of [mtx_:];
+#X msg 122 119 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_concat/exist.pd b/tests/mtx_concat/exist.pd
new file mode 100644
index 0000000..d9298e5
--- /dev/null
+++ b/tests/mtx_concat/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_concat;
+#X text 67 37 test for existance of [mtx_concat];
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
diff --git a/tests/mtx_conv/exist.pd b/tests/mtx_conv/exist.pd
new file mode 100644
index 0000000..f1617c9
--- /dev/null
+++ b/tests/mtx_conv/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_conv;
+#X text 67 37 test for existance of [mtx_conv];
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
diff --git a/tests/mtx_cos/exist.pd b/tests/mtx_cos/exist.pd
new file mode 100644
index 0000000..005b8d3
--- /dev/null
+++ b/tests/mtx_cos/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_cos;
+#X text 67 37 test for existance of [mtx_cos];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_cumsum/exist.pd b/tests/mtx_cumsum/exist.pd
new file mode 100644
index 0000000..0b897ed
--- /dev/null
+++ b/tests/mtx_cumsum/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_cumsum;
+#X text 67 37 test for existance of [mtx_cumsum];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_dbtorms/exist.pd b/tests/mtx_dbtorms/exist.pd
new file mode 100644
index 0000000..0cf8b69
--- /dev/null
+++ b/tests/mtx_dbtorms/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_dbtorms;
+#X text 67 37 test for existance of [mtx_dbtorms];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_decay/exist.pd b/tests/mtx_decay/exist.pd
new file mode 100644
index 0000000..ffb307a
--- /dev/null
+++ b/tests/mtx_decay/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_decay;
+#X text 67 37 test for existance of [mtx_decay];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_diag/exist.pd b/tests/mtx_diag/exist.pd
new file mode 100644
index 0000000..c9a366b
--- /dev/null
+++ b/tests/mtx_diag/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_diag];
+#X obj 122 161 mtx_diag 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
diff --git a/tests/mtx_diegg/exist.pd b/tests/mtx_diegg/exist.pd
new file mode 100644
index 0000000..e699a8f
--- /dev/null
+++ b/tests/mtx_diegg/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_diegg;
+#X text 67 37 test for existance of [mtx_diegg];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_diff/exist.pd b/tests/mtx_diff/exist.pd
new file mode 100644
index 0000000..be0f746
--- /dev/null
+++ b/tests/mtx_diff/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_diff;
+#X text 67 37 test for existance of [mtx_diff];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_distance2/exist.pd b/tests/mtx_distance2/exist.pd
new file mode 100644
index 0000000..162be27
--- /dev/null
+++ b/tests/mtx_distance2/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_distance2;
+#X text 67 37 test for existance of [mtx_distance2];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_egg/exist.pd b/tests/mtx_egg/exist.pd
new file mode 100644
index 0000000..f2683a9
--- /dev/null
+++ b/tests/mtx_egg/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_egg;
+#X text 67 37 test for existance of [mtx_egg];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_element/exist.pd b/tests/mtx_element/exist.pd
new file mode 100644
index 0000000..3e0efc1
--- /dev/null
+++ b/tests/mtx_element/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 69 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_element;
+#X text 67 37 test for existance of [mtx_element];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_eq/exist.pd b/tests/mtx_eq/exist.pd
new file mode 100644
index 0000000..6964826
--- /dev/null
+++ b/tests/mtx_eq/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_eq];
+#X msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_eq;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/tests/mtx_exp/exist.pd b/tests/mtx_exp/exist.pd
new file mode 100644
index 0000000..9c424c2
--- /dev/null
+++ b/tests/mtx_exp/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_exp;
+#X text 67 37 test for existance of [mtx_exp];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_eye/exist.pd b/tests/mtx_eye/exist.pd
new file mode 100644
index 0000000..5263f22
--- /dev/null
+++ b/tests/mtx_eye/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_eye;
+#X text 67 37 test for existance of [mtx_eye];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_fill/exist.pd b/tests/mtx_fill/exist.pd
new file mode 100644
index 0000000..ce33b43
--- /dev/null
+++ b/tests/mtx_fill/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_fill;
+#X text 67 37 test for existance of [mtx_fill];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_find/exist.pd b/tests/mtx_find/exist.pd
new file mode 100644
index 0000000..1675cb2
--- /dev/null
+++ b/tests/mtx_find/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_find;
+#X text 67 37 test for existance of [mtx_find];
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
diff --git a/tests/mtx_gauss/exist.pd b/tests/mtx_gauss/exist.pd
new file mode 100644
index 0000000..af55aeb
--- /dev/null
+++ b/tests/mtx_gauss/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_gauss;
+#X text 67 37 test for existance of [mtx_gauss];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_ge/exist.pd b/tests/mtx_ge/exist.pd
new file mode 100644
index 0000000..4f79cc7
--- /dev/null
+++ b/tests/mtx_ge/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_ge;
+#X text 67 37 test for existance of [mtx_ge];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_gt/exist.pd b/tests/mtx_gt/exist.pd
new file mode 100644
index 0000000..56ce42e
--- /dev/null
+++ b/tests/mtx_gt/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_gt;
+#X text 67 37 test for existance of [mtx_gt];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_index/exist.pd b/tests/mtx_index/exist.pd
new file mode 100644
index 0000000..8038feb
--- /dev/null
+++ b/tests/mtx_index/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_index;
+#X text 67 37 test for existance of [mtx_index];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_int/exist.pd b/tests/mtx_int/exist.pd
new file mode 100644
index 0000000..f2400e7
--- /dev/null
+++ b/tests/mtx_int/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_int;
+#X text 67 37 test for existance of [mtx_int];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_inverse/exist.pd b/tests/mtx_inverse/exist.pd
new file mode 100644
index 0000000..f203db4
--- /dev/null
+++ b/tests/mtx_inverse/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_inverse;
+#X text 67 37 test for existance of [mtx_inverse];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_le/exist.pd b/tests/mtx_le/exist.pd
new file mode 100644
index 0000000..927c4da
--- /dev/null
+++ b/tests/mtx_le/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_le;
+#X text 67 37 test for existance of [mtx_le];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_log/exist.pd b/tests/mtx_log/exist.pd
new file mode 100644
index 0000000..b8ab588
--- /dev/null
+++ b/tests/mtx_log/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_log;
+#X text 67 37 test for existance of [mtx_log];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_lt/exist.pd b/tests/mtx_lt/exist.pd
new file mode 100644
index 0000000..a71954f
--- /dev/null
+++ b/tests/mtx_lt/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_lt;
+#X text 67 37 test for existance of [mtx_lt];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_matrix/exist_matrix.pd b/tests/mtx_matrix/exist_matrix.pd
new file mode 100644
index 0000000..de8b8d0
--- /dev/null
+++ b/tests/mtx_matrix/exist_matrix.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [matrix];
+#X obj 122 161 matrix;
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
+#X connect 6 0 5 0;
diff --git a/tests/mtx_matrix/exist_mtx.pd b/tests/mtx_matrix/exist_mtx.pd
new file mode 100644
index 0000000..d00a3a0
--- /dev/null
+++ b/tests/mtx_matrix/exist_mtx.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx];
+#X obj 122 161 mtx 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
diff --git a/tests/mtx_max2/exist.pd b/tests/mtx_max2/exist.pd
new file mode 100644
index 0000000..bf0ebdd
--- /dev/null
+++ b/tests/mtx_max2/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_max2;
+#X text 67 37 test for existance of [mtx_max2];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_mean/exist.pd b/tests/mtx_mean/exist.pd
new file mode 100644
index 0000000..f04a6b7
--- /dev/null
+++ b/tests/mtx_mean/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_mean;
+#X text 67 37 test for existance of [mtx_mean];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_min2/exist.pd b/tests/mtx_min2/exist.pd
new file mode 100644
index 0000000..1cfa557
--- /dev/null
+++ b/tests/mtx_min2/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_min2;
+#X text 67 37 test for existance of [mtx_min2];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_mul/exist.pd b/tests/mtx_mul/exist.pd
new file mode 100644
index 0000000..a9fa246
--- /dev/null
+++ b/tests/mtx_mul/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_mul];
+#X msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_mul 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/tests/mtx_mul/exist1.pd b/tests/mtx_mul/exist1.pd
new file mode 100644
index 0000000..4fe9007
--- /dev/null
+++ b/tests/mtx_mul/exist1.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_*];
+#X msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_* 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/tests/mtx_mul/exist2.pd b/tests/mtx_mul/exist2.pd
new file mode 100644
index 0000000..697fe66
--- /dev/null
+++ b/tests/mtx_mul/exist2.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_.*];
+#X msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_.* 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/tests/mtx_neq/exist.pd b/tests/mtx_neq/exist.pd
new file mode 100644
index 0000000..4dbc522
--- /dev/null
+++ b/tests/mtx_neq/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_neq;
+#X text 67 37 test for existance of [mtx_neq];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_not/exist.pd b/tests/mtx_not/exist.pd
new file mode 100644
index 0000000..7840d8f
--- /dev/null
+++ b/tests/mtx_not/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_not;
+#X text 67 37 test for existance of [mtx_not];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_not/exist1.pd b/tests/mtx_not/exist1.pd
new file mode 100644
index 0000000..9bc8fea
--- /dev/null
+++ b/tests/mtx_not/exist1.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_!;
+#X text 67 37 test for existance of [mtx_!];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_ones/exist.pd b/tests/mtx_ones/exist.pd
new file mode 100644
index 0000000..bc6d9b2
--- /dev/null
+++ b/tests/mtx_ones/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_ones];
+#X obj 122 161 mtx_ones 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
diff --git a/tests/mtx_or/exist.pd b/tests/mtx_or/exist.pd
new file mode 100644
index 0000000..7edb127
--- /dev/null
+++ b/tests/mtx_or/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_or;
+#X text 67 37 test for existance of [mtx_or];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_pivot/exist.pd b/tests/mtx_pivot/exist.pd
new file mode 100644
index 0000000..e448928
--- /dev/null
+++ b/tests/mtx_pivot/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_pivot;
+#X text 67 37 test for existance of [mtx_pivot];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_prod/exist.pd b/tests/mtx_prod/exist.pd
new file mode 100644
index 0000000..f9d85aa
--- /dev/null
+++ b/tests/mtx_prod/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_prod;
+#X text 67 37 test for existance of [mtx_prod];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_rand/exist.pd b/tests/mtx_rand/exist.pd
new file mode 100644
index 0000000..2ef4aba
--- /dev/null
+++ b/tests/mtx_rand/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_rand];
+#X obj 122 161 mtx_rand 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
diff --git a/tests/mtx_repmat/exist.pd b/tests/mtx_repmat/exist.pd
new file mode 100644
index 0000000..19a417d
--- /dev/null
+++ b/tests/mtx_repmat/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_repmat;
+#X text 67 37 test for existance of [mtx_repmat];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_resize/exist.pd b/tests/mtx_resize/exist.pd
new file mode 100644
index 0000000..31bf01d
--- /dev/null
+++ b/tests/mtx_resize/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_resize;
+#X text 67 37 test for existance of [mtx_resize];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_reverse/exist.pd b/tests/mtx_reverse/exist.pd
new file mode 100644
index 0000000..6fa7918
--- /dev/null
+++ b/tests/mtx_reverse/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_reverse;
+#X text 67 37 test for existance of [mtx_reverse];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_rmstodb/exist.pd b/tests/mtx_rmstodb/exist.pd
new file mode 100644
index 0000000..1c20543
--- /dev/null
+++ b/tests/mtx_rmstodb/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_rmstodb;
+#X text 67 37 test for existance of [mtx_rmstodb];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_roll/exist.pd b/tests/mtx_roll/exist.pd
new file mode 100644
index 0000000..827b724
--- /dev/null
+++ b/tests/mtx_roll/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_roll;
+#X text 67 37 test for existance of [mtx_roll];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_row/exist.pd b/tests/mtx_row/exist.pd
new file mode 100644
index 0000000..488453c
--- /dev/null
+++ b/tests/mtx_row/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_row;
+#X text 67 37 test for existance of [mtx_row];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_rowrfft/exist.pd b/tests/mtx_rowrfft/exist.pd
new file mode 100644
index 0000000..db79cb0
--- /dev/null
+++ b/tests/mtx_rowrfft/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_rowrfft;
+#X text 67 37 test for existance of [mtx_rowrfft];
+#X msg 122 122 matrixi 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_rowrifft/exist.pd b/tests/mtx_rowrifft/exist.pd
new file mode 100644
index 0000000..b2ff458
--- /dev/null
+++ b/tests/mtx_rowrifft/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_rowrifft;
+#X text 67 37 test for existance of [mtx_rowrifft];
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
diff --git a/tests/mtx_scroll/exist.pd b/tests/mtx_scroll/exist.pd
new file mode 100644
index 0000000..0a74f05
--- /dev/null
+++ b/tests/mtx_scroll/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_scroll;
+#X text 67 37 test for existance of [mtx_scroll];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_sin/exist.pd b/tests/mtx_sin/exist.pd
new file mode 100644
index 0000000..83e93c8
--- /dev/null
+++ b/tests/mtx_sin/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_sin;
+#X text 67 37 test for existance of [mtx_sin];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_size/exist.pd b/tests/mtx_size/exist.pd
new file mode 100644
index 0000000..7bd5df5
--- /dev/null
+++ b/tests/mtx_size/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_size;
+#X text 67 37 test for existance of [mtx_size];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_slice/exist.pd b/tests/mtx_slice/exist.pd
new file mode 100644
index 0000000..13f1ba6
--- /dev/null
+++ b/tests/mtx_slice/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_slice;
+#X text 67 37 test for existance of [mtx_slice];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_sort/exist.pd b/tests/mtx_sort/exist.pd
new file mode 100644
index 0000000..3395113
--- /dev/null
+++ b/tests/mtx_sort/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_sort;
+#X text 67 37 test for existance of [mtx_sort];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_sub/exist.pd b/tests/mtx_sub/exist.pd
new file mode 100644
index 0000000..a41f673
--- /dev/null
+++ b/tests/mtx_sub/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_sub;
+#X text 67 37 test for existance of [mtx_sub];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_sub/exist1.pd b/tests/mtx_sub/exist1.pd
new file mode 100644
index 0000000..032a446
--- /dev/null
+++ b/tests/mtx_sub/exist1.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_-;
+#X text 67 37 test for existance of [mtx_-];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_sum/exist.pd b/tests/mtx_sum/exist.pd
new file mode 100644
index 0000000..4755c3a
--- /dev/null
+++ b/tests/mtx_sum/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_sum;
+#X text 67 37 test for existance of [mtx_sum];
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
diff --git a/tests/mtx_trace/exist.pd b/tests/mtx_trace/exist.pd
new file mode 100644
index 0000000..8da911e
--- /dev/null
+++ b/tests/mtx_trace/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_trace;
+#X text 67 37 test for existance of [mtx_trace];
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
diff --git a/tests/mtx_transpose/exist.pd b/tests/mtx_transpose/exist.pd
new file mode 100644
index 0000000..b3030a1
--- /dev/null
+++ b/tests/mtx_transpose/exist.pd
@@ -0,0 +1,13 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X obj 122 161 mtx_transpose;
+#X text 67 37 test for existance of [mtx_transpose];
+#X msg 122 122 matrix 1 1 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
diff --git a/tests/mtx_zeros/exist.pd b/tests/mtx_zeros/exist.pd
new file mode 100644
index 0000000..e671f48
--- /dev/null
+++ b/tests/mtx_zeros/exist.pd
@@ -0,0 +1,11 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X obj 122 347 b;
+#X msg 122 366 1;
+#X text 67 37 test for existance of [mtx_zeros];
+#X obj 122 161 mtx_zeros 1;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 2 0;
diff --git a/tests/runtests.pd b/tests/runtests.pd
new file mode 100644
index 0000000..db72b4c
--- /dev/null
+++ b/tests/runtests.pd
@@ -0,0 +1,22 @@
+#N canvas 367 200 813 499 10;
+#X obj 177 433 testunit;
+#X obj 177 377 textfile;
+#X obj 177 183 t b b;
+#X msg 207 261 read runtests.txt \, rewind;
+#X obj 177 287 metro 10;
+#X msg 243 289 0;
+#X obj 177 126 bng 40 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 177 351 bang;
+#X symbolatom 195 408 10 0 0 0 - - -;
+#X obj 485 341 mtx_col/exist;
+#X connect 1 0 0 0;
+#X connect 1 1 5 0;
+#X connect 2 0 4 0;
+#X connect 2 1 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 7 0;
+#X connect 5 0 4 0;
+#X connect 6 0 2 0;
+#X connect 7 0 1 0;
+#X connect 8 0 0 0;
diff --git a/tests/runtests.sh b/tests/runtests.sh
new file mode 100755
index 0000000..4c9f04d
--- /dev/null
+++ b/tests/runtests.sh
@@ -0,0 +1,20 @@
+#!/bin/sh
+
+ls -1 */*.pd | sed 's/\.pd/;/' > runtests.txt
+
+function run_nogui() {
+ pd -lib ../iemmatrix -nogui runtests_nogui.pd > runtests.log.$$ 2>&1 
+cat runtests.log.$$ | egrep "^regression-test: " | sed -e 's/^regression-test: //'
+}
+
+function run_withgui() {
+ pd -lib ../iemmatrix runtests.pd > runtests.log 2>&1
+}
+
+if test "x$1" = "x-gui"; then
+ run_withgui
+else
+ run_nogui
+fi
+
+
diff --git a/tests/runtests.txt b/tests/runtests.txt
new file mode 100644
index 0000000..7cceaec
--- /dev/null
+++ b/tests/runtests.txt
@@ -0,0 +1,74 @@
+mtx_abs/exist;
+mtx_add/exist1;
+mtx_add/exist;
+mtx_and/exist;
+mtx_bitand/exist;
+mtx_bitleft/exist;
+mtx_bitor/exist;
+mtx_bitright/exist;
+mtx_check/exist;
+mtx_cholesky/exist;
+mtx_col/exist;
+mtx_colon/exist1;
+mtx_colon/exist;
+mtx_concat/exist;
+mtx_conv/exist;
+mtx_cos/exist;
+mtx_cumsum/exist;
+mtx_dbtorms/exist;
+mtx_decay/exist;
+mtx_diag/exist;
+mtx_diegg/exist;
+mtx_diff/exist;
+mtx_distance2/exist;
+mtx_egg/exist;
+mtx_element/exist;
+mtx_eq/exist;
+mtx_exp/exist;
+mtx_eye/exist;
+mtx_fill/exist;
+mtx_find/exist;
+mtx_gauss/exist;
+mtx_ge/exist;
+mtx_gt/exist;
+mtx_index/exist;
+mtx_int/exist;
+mtx_inverse/exist;
+mtx_le/exist;
+mtx_log/exist;
+mtx_lt/exist;
+mtx_matrix/exist_matrix;
+mtx_matrix/exist_mtx;
+mtx_max2/exist;
+mtx_mean/exist;
+mtx_min2/exist;
+mtx_mul/exist1;
+mtx_mul/exist2;
+mtx_mul/exist;
+mtx_neq/exist;
+mtx_not/exist1;
+mtx_not/exist;
+mtx_ones/exist;
+mtx_or/exist;
+mtx_pivot/exist;
+mtx_prod/exist;
+mtx_rand/exist;
+mtx_repmat/exist;
+mtx_resize/exist;
+mtx_reverse/exist;
+mtx_rmstodb/exist;
+mtx_roll/exist;
+mtx_row/exist;
+mtx_rowrfft/exist;
+mtx_rowrifft/exist;
+mtx_scroll/exist;
+mtx_sin/exist;
+mtx_size/exist;
+mtx_slice/exist;
+mtx_sort/exist;
+mtx_sub/exist1;
+mtx_sub/exist;
+mtx_sum/exist;
+mtx_trace/exist;
+mtx_transpose/exist;
+mtx_zeros/exist;
diff --git a/tests/runtests_nogui.pd b/tests/runtests_nogui.pd
new file mode 100644
index 0000000..cd1601a
--- /dev/null
+++ b/tests/runtests_nogui.pd
@@ -0,0 +1,15 @@
+#N canvas 367 200 321 256 10;
+#X obj 86 199 testunit;
+#X obj 86 130 textfile;
+#X obj 86 56 t b b;
+#X msg 116 84 read runtests.txt \, rewind;
+#X obj 86 34 loadbang;
+#X msg 137 156 \; pd quit;
+#X obj 86 110 until;
+#X connect 1 0 0 0;
+#X connect 1 1 5 0;
+#X connect 2 0 6 0;
+#X connect 2 1 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 6 0 1 0;
diff --git a/tests/testunit.pd b/tests/testunit.pd
new file mode 100644
index 0000000..b5823fa
--- /dev/null
+++ b/tests/testunit.pd
@@ -0,0 +1,78 @@
+#N canvas 695 274 312 252 10;
+#N canvas 0 0 564 876 run-test 0;
+#X obj 87 512 r \$0-receive;
+#X obj 71 532 f;
+#X msg 96 533 0;
+#X obj 71 76 symbol;
+#X obj 71 44 inlet test-to-run;
+#X obj 71 639 outlet result;
+#X obj 71 615 pack 0 s;
+#X obj 181 205 makefilename pd-%d-regressiontest;
+#X obj 109 226 pack s \$0 s;
+#X obj 181 186 f \$0;
+#X obj 109 160 t s b;
+#X obj 143 489 t b s s;
+#X obj 71 104 t b b s s;
+#X msg 140 72 bang;
+#X obj 90 135 s \$0-send;
+#X msg 109 246 \; \$3 clear \; \$3 obj 100 100 r \$2-send \; \$3 obj
+100 150 \$1 \; \$3 obj 100 200 s \$2-receive \; \$3 connect 0 0 1 0
+\; \$3 connect 1 0 2 0;
+#N canvas 395 348 450 300 print 0;
+#X obj 101 247 print regression-test;
+#X obj 101 204 pack s s;
+#X obj 101 117 select 1;
+#X obj 152 137 b;
+#X msg 152 160 failed;
+#X msg 101 138 OK;
+#X obj 101 185 symbol;
+#X msg 101 223 \$2: \$1;
+#X obj 296 82 inlet test;
+#X obj 101 92 inlet result;
+#X connect 1 0 7 0;
+#X connect 2 0 5 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 6 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 0 0;
+#X connect 8 0 1 1;
+#X connect 9 0 2 0;
+#X restore 101 584 pd print result;
+#X obj 71 565 t f f;
+#X msg 101 406 \; \$1 clear;
+#X obj 101 386 symbol;
+#X obj 71 364 t b b;
+#X connect 0 0 1 1;
+#X connect 1 0 17 0;
+#X connect 2 0 1 1;
+#X connect 3 0 12 0;
+#X connect 4 0 3 0;
+#X connect 6 0 5 0;
+#X connect 7 0 8 2;
+#X connect 7 0 19 1;
+#X connect 8 0 15 0;
+#X connect 9 0 7 0;
+#X connect 10 0 8 0;
+#X connect 10 1 9 0;
+#X connect 11 0 2 0;
+#X connect 11 1 6 1;
+#X connect 11 2 16 1;
+#X connect 12 0 20 0;
+#X connect 12 1 14 0;
+#X connect 12 2 10 0;
+#X connect 12 3 11 0;
+#X connect 13 0 3 0;
+#X connect 17 0 6 0;
+#X connect 17 1 16 0;
+#X connect 19 0 18 0;
+#X connect 20 0 1 0;
+#X connect 20 1 19 0;
+#X restore 94 138 pd run-test;
+#X obj 94 163 outlet;
+#X obj 94 111 inlet;
+#N canvas 487 407 450 300 1005-regressiontest 0;
+#X restore 92 186 pd \$0-regressiontest;
+#X connect 0 0 1 0;
+#X connect 2 0 0 0;