tests for new "mtx_isequal"

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

5 files changed, 85 insertions, 0 deletions

diff --git a/tests/mtx_isequal/00_exist.pd b/tests/mtx_isequal/00_exist.pd
new file mode 100644
index 0000000..9e3f196
--- /dev/null
+++ b/tests/mtx_isequal/00_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 msg 122 122 matrix 1 1 1;
+#X obj 122 161 mtx_isequal;
+#X text 67 37 test for existance of [mtx_isequal];
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
diff --git a/tests/mtx_isequal/01_function0.pd b/tests/mtx_isequal/01_function0.pd
new file mode 100644
index 0000000..ab72981
--- /dev/null
+++ b/tests/mtx_isequal/01_function0.pd
@@ -0,0 +1,17 @@
+#N canvas 433 156 508 521 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 366 1;
+#X msg 122 112 matrix 3 3 1 2 3 4 5 6 7 8 9;
+#X obj 122 231 mtx_isequal;
+#X text 67 37 test whether [mtx_isequal] correctly detects the equality
+of 2 matrices;
+#X obj 122 347 select 1;
+#X obj 122 165 t a a;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 7 0;
+#X connect 4 0 6 0;
+#X connect 6 0 2 0;
+#X connect 7 0 4 0;
+#X connect 7 1 4 1;
diff --git a/tests/mtx_isequal/01_function1.pd b/tests/mtx_isequal/01_function1.pd
new file mode 100644
index 0000000..35e86bc
--- /dev/null
+++ b/tests/mtx_isequal/01_function1.pd
@@ -0,0 +1,17 @@
+#N canvas 385 142 508 466 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 366 1;
+#X obj 122 139 t a a;
+#X obj 122 161 mtx_isequal;
+#X obj 122 347 select 1;
+#X text 67 37 test whether [mtx_isequal] correctly detects the equality
+of 2 matrices;
+#X obj 122 112 mtx_rand;
+#X connect 0 0 7 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
+#X connect 7 0 3 0;
diff --git a/tests/mtx_isequal/01_function2.pd b/tests/mtx_isequal/01_function2.pd
new file mode 100644
index 0000000..9a66e1d
--- /dev/null
+++ b/tests/mtx_isequal/01_function2.pd
@@ -0,0 +1,19 @@
+#N canvas 433 156 508 521 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 366 1;
+#X msg 122 112 matrix 3 3 1 2 3 4 5 6 7 8 9;
+#X obj 122 231 mtx_isequal;
+#X obj 122 90 t b b;
+#X msg 154 138 matrix 3 3 1 2 3 4 5 6 7 8 10;
+#X text 67 37 test whether [mtx_isequal] correctly detects the inequality
+of 2 matrices;
+#X obj 122 347 select 0;
+#X connect 0 0 5 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 4 0 8 0;
+#X connect 5 0 3 0;
+#X connect 5 1 6 0;
+#X connect 6 0 4 1;
+#X connect 8 0 2 0;
diff --git a/tests/mtx_isequal/01_function3.pd b/tests/mtx_isequal/01_function3.pd
new file mode 100644
index 0000000..286f453
--- /dev/null
+++ b/tests/mtx_isequal/01_function3.pd
@@ -0,0 +1,19 @@
+#N canvas 433 156 508 521 10;
+#X obj 122 68 inlet bang;
+#X obj 122 385 outlet 1==OK;
+#X msg 122 366 1;
+#X msg 122 112 matrix 3 3 1 2 3 4 5 6 7 8 9;
+#X obj 122 231 mtx_isequal;
+#X obj 122 90 t b b;
+#X text 67 37 test whether [mtx_isequal] correctly detects the inequality
+of 2 matrices;
+#X obj 122 347 select 0;
+#X msg 154 138 matrix 2 2 1 2 3 4;
+#X connect 0 0 5 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 4 0 7 0;
+#X connect 5 0 3 0;
+#X connect 5 1 8 0;
+#X connect 7 0 2 0;
+#X connect 8 0 4 1;