tests for new "mtx_isequal"

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

7 files changed, 96 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;
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 312b3ea..324bbf5 100755
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -18,6 +18,12 @@ function run_nogui() {
  echo "regression-test: ${NUMTESTS} tests total" >>  ${RUNTESTS_LOG}.$$
  
  cat ${RUNTESTS_LOG}.$$ | egrep "^regression-test: " | sed -e 's/^regression-test: //'
+ FAILEDTESTS=$(cat ${RUNTESTS_LOG}.$$ | egrep "^regression-test: .*: failed$" | sed -e 's|^regression-test: ||' -e 's|: failed$||')
+ echo -n "failed tests: "
+ for ft in ${FAILEDTESTS}; do
+   echo -n "${ft} "
+ done
+ echo
 }
 
 function run_withgui() {
diff --git a/tests/runtests.txt b/tests/runtests.txt
index 31b31e4..0710385 100644
--- a/tests/runtests.txt
+++ b/tests/runtests.txt
@@ -157,6 +157,11 @@ mtx_int/01_function;
 mtx_int/02_function;
 mtx_int/03_function;
 mtx_inverse/00_exist;
+mtx_isequal/00_exist;
+mtx_isequal/01_function0;
+mtx_isequal/01_function1;
+mtx_isequal/01_function2;
+mtx_isequal/01_function3;
 mtx_le/00_exist;
 mtx_le/01_function;
 mtx_le/02_function;