Update of /cvsroot/pure-data/externals/zexy/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13335
Modified Files: testunit.pd Log Message: changed default test-behaviour: now every test has to return a result immediately (if it knows that it takes more time, it must return "-1" and the tester will wait for it; if it does not do so, the test automatically fails)
Index: testunit.pd =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/tests/testunit.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** testunit.pd 6 Sep 2007 08:54:05 -0000 1.3 --- testunit.pd 6 Sep 2007 13:27:43 -0000 1.4 *************** *** 1,3 **** ! #N canvas 850 122 312 252 10; #N canvas 455 165 474 559 run-test 0; #X obj 71 136 symbol; --- 1,3 ---- ! #N canvas 577 122 585 499 10; #N canvas 455 165 474 559 run-test 0; #X obj 71 136 symbol; *************** *** 33,73 **** #X text 99 217 start regression test; #X text 105 251 regression test finished; ! #N canvas 649 180 525 641 get 0; ! #X obj 106 116 r $0-receive; ! #X msg 155 280 0; ! #X obj 106 239 del 0; ! #X obj 106 310 f; ! #X text 193 114 get the result; ! #X text 145 235 we need a delay , since the object's output triggers ! the destruction of the object ; this would lead to stack corruption ! if we do it immediately; ! #X obj 131 358 outlet; ! #X obj 123 26 inlet reset; ! #X obj 106 336 t b f; ! #X obj 106 175 spigot; ! #X msg 161 154 1; ! #X obj 106 197 t b f b; ! #X msg 189 154 0; ! #X obj 137 154 t f; ! #X text 182 178 we only accept the 1st result of the test; ! #X obj 123 48 t b b b; ! #X obj 123 66 s $0-send; ! #X connect 0 0 9 0; ! #X connect 1 0 3 1; ! #X connect 2 0 3 0; ! #X connect 3 0 8 0; ! #X connect 7 0 15 0; ! #X connect 8 0 10 0; ! #X connect 8 1 6 0; ! #X connect 9 0 11 0; ! #X connect 10 0 13 0; ! #X connect 11 0 2 0; ! #X connect 11 1 3 1; ! #X connect 11 2 12 0; ! #X connect 12 0 13 0; ! #X connect 13 0 9 1; ! #X connect 15 0 16 0; ! #X connect 15 1 1 0; ! #X connect 15 2 10 0; #X restore 71 232 pd get result; #X text 64 17 the test MUST return a result!; --- 33,85 ---- #X text 99 217 start regression test; #X text 105 251 regression test finished; ! #N canvas 318 184 905 641 get 0; ! #X obj 105 488 outlet; ! #X obj 105 26 inlet reset; ! #X obj 105 71 t b b b; ! #X obj 162 229 spigot; ! #X msg 228 229 1; ! #X msg 258 229 0; ! #X obj 202 229 t f; ! #X obj 163 120 s $0-send; ! #X text 248 120 <- start the test; ! #X text 250 168 <- test result; ! #X obj 162 165 r $0-receive; ! #X obj 105 342 spigot; ! #X obj 228 212 t b b; ! #X msg 129 45 bang; ! #X obj 162 260 select -1; ! #X obj 105 401 t f b; ! #X msg 162 278 0; ! #X msg 105 316 0; ! #X text 136 321 <--------------- fail as default; ! #X text 228 262 <- "-1" indicates "wait for result"; ! #X obj 105 430 t b f; ! #X obj 105 446 del 0; ! #X obj 105 462 f; ! #X text 149 450 <--- buffering , since we have to avoid that the object ! triggers it's own destruction (stack corruption); ! #X connect 1 0 2 0; ! #X connect 2 0 17 0; ! #X connect 2 1 7 0; ! #X connect 2 2 12 0; ! #X connect 3 0 14 0; ! #X connect 4 0 6 0; ! #X connect 5 0 6 0; ! #X connect 6 0 3 1; ! #X connect 6 0 11 1; ! #X connect 10 0 3 0; ! #X connect 11 0 15 0; ! #X connect 12 0 4 0; ! #X connect 13 0 2 0; ! #X connect 14 0 16 0; ! #X connect 14 1 15 0; ! #X connect 15 0 20 0; ! #X connect 15 1 5 0; ! #X connect 16 0 11 1; ! #X connect 17 0 11 0; ! #X connect 20 0 21 0; ! #X connect 20 1 22 1; ! #X connect 21 0 22 0; ! #X connect 22 0 0 0; #X restore 71 232 pd get result; #X text 64 17 the test MUST return a result!; *************** *** 112,120 **** #X connect 14 1 5 0; #X connect 15 0 10 0; ! #X restore 94 138 pd run-test; ! #X obj 94 163 outlet; ! #X obj 94 111 inlet; #N canvas 487 407 450 300 $0-regressiontest 0; ! #X restore 92 186 pd $0-regressiontest; #X connect 0 0 1 0; #X connect 2 0 0 0; --- 124,141 ---- #X connect 14 1 5 0; #X connect 15 0 10 0; ! #X restore 94 218 pd run-test; ! #X obj 94 243 outlet; ! #X obj 94 191 inlet; #N canvas 487 407 450 300 $0-regressiontest 0; ! #X restore 92 266 pd $0-regressiontest; ! #X text 64 17 the test MUST IMMEDIATELY return a result!; ! #X text 87 39 1: OK (test passed); ! #X text 87 52 0: KO (test failed); ! #X text 81 68 -1:; ! #X text 103 68 WAIT (test takes some time); ! #X text 64 92 if no result is returned immediately , the test is considered ! to be FAILED!; ! #X text 63 131 note: we could have this be using "0" as the WAIT result ! , an no-result as KO ; for legacy reasons we don't; #X connect 0 0 1 0; #X connect 2 0 0 0;