From de92297f784b3cba2a77694a2e8471561d949b03 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Thu, 3 Jan 2008 13:38:16 +0000 Subject: tests for new "mtx_isequal" svn path=/trunk/externals/iem/iemmatrix/; revision=9117 --- tests/mtx_isequal/00_exist.pd | 13 +++++++++++++ tests/mtx_isequal/01_function0.pd | 17 +++++++++++++++++ tests/mtx_isequal/01_function1.pd | 17 +++++++++++++++++ tests/mtx_isequal/01_function2.pd | 19 +++++++++++++++++++ tests/mtx_isequal/01_function3.pd | 19 +++++++++++++++++++ 5 files changed, 85 insertions(+) create mode 100644 tests/mtx_isequal/00_exist.pd create mode 100644 tests/mtx_isequal/01_function0.pd create mode 100644 tests/mtx_isequal/01_function1.pd create mode 100644 tests/mtx_isequal/01_function2.pd create mode 100644 tests/mtx_isequal/01_function3.pd (limited to 'tests/mtx_isequal') 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; -- cgit v1.2.1