From e4aa93e3280d71b42c47e7fccb5b657efdffb455 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Tue, 19 Jan 2010 16:03:15 +0000 Subject: tests for [sgn~] and [absgn~] svn path=/trunk/externals/zexy/; revision=13047 --- tests/absgn~/abs.pd | 138 +++++++++++++++++++++++++++++++++++++++++++++++ tests/absgn~/sgn.pd | 150 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 288 insertions(+) create mode 100644 tests/absgn~/abs.pd create mode 100644 tests/absgn~/sgn.pd (limited to 'tests/absgn~') diff --git a/tests/absgn~/abs.pd b/tests/absgn~/abs.pd new file mode 100644 index 0000000..c5fce20 --- /dev/null +++ b/tests/absgn~/abs.pd @@ -0,0 +1,138 @@ +#N canvas 217 0 977 584 10; +#X obj 91 117 inlet bang; +#X text 37 51 may people think that it is a bad idea to not create +[repeat] if there is no argument. so this test fails when the object +cannot instantiate; +#X obj 91 138 t b b; +#X msg 194 138 bang; +#X obj 124 221 switch~ 64; +#N canvas 238 169 450 300 input 0; +#X obj 119 243 outlet~; +#X obj 117 145 table \$0-input 64; +#N canvas 0 0 450 300 send 0; +#X obj 82 48 inlet~; +#X obj 96 255 outlet~; +#X obj 96 227 tabreceive~ \$0-input; +#X connect 2 0 1 0; +#X restore 119 218 pd send; +#N canvas 0 0 450 300 generate~ 0; +#X obj 120 133 tabsend~ \$0-input; +#X obj 120 111 noise~; +#X obj 112 182 outlet~; +#X connect 1 0 0 0; +#X restore 119 194 pd generate~; +#X connect 2 0 0 0; +#X connect 3 0 2 0; +#X restore 158 243 pd input; +#N canvas 0 0 631 415 compare 0; +#X obj 261 65 inlet~ processed; +#X obj 262 94 tabsend~ \$0-output; +#X obj 417 92 table \$0-output 64; +#X obj 51 378 outlet passed; +#X obj 52 169 i; +#X obj 83 169 + 1; +#X obj 52 103 t b b; +#X msg 52 124 64; +#X msg 84 123 0; +#X obj 52 197 t f f; +#X obj 52 229 tabread \$0-output; +#X obj 182 229 tabread \$0-reference; +#X obj 51 309 f; +#X obj 52 257 -; +#X obj 52 278 select 0; +#X obj 29 44 inlet doit; +#X obj 29 71 t b b b; +#X msg 127 275 0; +#X obj 51 336 == 0; +#X obj 52 144 until; +#X connect 0 0 1 0; +#X connect 4 0 5 0; +#X connect 4 0 9 0; +#X connect 5 0 4 1; +#X connect 6 0 7 0; +#X connect 6 1 8 0; +#X connect 7 0 19 0; +#X connect 8 0 4 1; +#X connect 9 0 10 0; +#X connect 9 1 11 0; +#X connect 10 0 13 0; +#X connect 11 0 13 1; +#X connect 12 0 18 0; +#X connect 13 0 14 0; +#X connect 14 1 12 1; +#X connect 15 0 16 0; +#X connect 16 0 12 0; +#X connect 16 1 6 0; +#X connect 16 2 17 0; +#X connect 17 0 12 1; +#X connect 18 0 3 0; +#X connect 19 0 4 0; +#X restore 91 367 pd compare; +#N canvas 1456 193 714 565 reference 0; +#X obj 519 101 table \$0-reference 64; +#X obj 49 38 inlet doit; +#X obj 237 371 outlet in~; +#X obj 49 376 outlet done; +#X obj 240 86 inlet out~; +#X obj 69 92 t b b; +#X msg 69 112 64; +#X msg 101 112 0; +#X obj 69 229 tabread \$0-input; +#X obj 69 274 f; +#X obj 69 252 t b f b; +#X obj 69 300 pack 0 0; +#X obj 69 326 tabwrite \$0-reference; +#X obj 49 61 t b b; +#X obj 129 274 / 100; +#X obj 129 252 random 100; +#X msg 99 59 bang; +#X obj 69 136 until; +#X obj 69 162 i; +#X obj 99 162 + 1; +#X obj 69 206 t f f; +#X connect 1 0 13 0; +#X connect 4 0 9 1; +#X connect 5 0 6 0; +#X connect 5 1 7 0; +#X connect 6 0 17 0; +#X connect 7 0 18 1; +#X connect 8 0 10 0; +#X connect 9 0 11 0; +#X connect 10 0 9 0; +#X connect 10 1 2 0; +#X connect 10 2 15 0; +#X connect 11 0 12 0; +#X connect 13 0 3 0; +#X connect 13 1 5 0; +#X connect 14 0 9 1; +#X connect 15 0 14 0; +#X connect 16 0 5 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 18 1; +#X connect 20 0 8 0; +#X connect 20 1 11 1; +#X restore 91 303 pd reference; +#X obj 91 396 outlet result; +#X obj 176 331 t f f; +#X msg 210 390 -1; +#X obj 91 202 t b b; +#X obj 91 162 del 10; +#X obj 158 274 absgn~; +#X obj 187 303 abs; +#X connect 0 0 2 0; +#X connect 2 0 12 0; +#X connect 2 1 10 0; +#X connect 3 0 12 0; +#X connect 5 0 13 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 7 1 9 0; +#X connect 9 1 14 0; +#X connect 10 0 8 0; +#X connect 11 0 7 0; +#X connect 11 1 4 0; +#X connect 12 0 11 0; +#X connect 13 0 6 1; +#X connect 14 0 7 1; diff --git a/tests/absgn~/sgn.pd b/tests/absgn~/sgn.pd new file mode 100644 index 0000000..be50888 --- /dev/null +++ b/tests/absgn~/sgn.pd @@ -0,0 +1,150 @@ +#N canvas 217 0 977 584 10; +#X obj 91 117 inlet bang; +#X text 37 51 may people think that it is a bad idea to not create +[repeat] if there is no argument. so this test fails when the object +cannot instantiate; +#X obj 91 138 t b b; +#X msg 194 138 bang; +#X obj 124 221 switch~ 64; +#N canvas 238 169 450 300 input 0; +#X obj 119 243 outlet~; +#X obj 117 145 table \$0-input 64; +#N canvas 0 0 450 300 send 0; +#X obj 82 48 inlet~; +#X obj 96 255 outlet~; +#X obj 96 227 tabreceive~ \$0-input; +#X connect 2 0 1 0; +#X restore 119 218 pd send; +#N canvas 0 0 450 300 generate~ 0; +#X obj 120 133 tabsend~ \$0-input; +#X obj 120 111 noise~; +#X obj 112 182 outlet~; +#X connect 1 0 0 0; +#X restore 119 194 pd generate~; +#X connect 2 0 0 0; +#X connect 3 0 2 0; +#X restore 158 243 pd input; +#N canvas 0 0 631 415 compare 0; +#X obj 261 65 inlet~ processed; +#X obj 262 94 tabsend~ \$0-output; +#X obj 417 92 table \$0-output 64; +#X obj 51 378 outlet passed; +#X obj 52 169 i; +#X obj 83 169 + 1; +#X obj 52 103 t b b; +#X msg 52 124 64; +#X msg 84 123 0; +#X obj 52 197 t f f; +#X obj 52 229 tabread \$0-output; +#X obj 182 229 tabread \$0-reference; +#X obj 51 309 f; +#X obj 52 257 -; +#X obj 52 278 select 0; +#X obj 29 44 inlet doit; +#X obj 29 71 t b b b; +#X msg 127 275 0; +#X obj 51 336 == 0; +#X obj 52 144 until; +#X connect 0 0 1 0; +#X connect 4 0 5 0; +#X connect 4 0 9 0; +#X connect 5 0 4 1; +#X connect 6 0 7 0; +#X connect 6 1 8 0; +#X connect 7 0 19 0; +#X connect 8 0 4 1; +#X connect 9 0 10 0; +#X connect 9 1 11 0; +#X connect 10 0 13 0; +#X connect 11 0 13 1; +#X connect 12 0 18 0; +#X connect 13 0 14 0; +#X connect 14 1 12 1; +#X connect 15 0 16 0; +#X connect 16 0 12 0; +#X connect 16 1 6 0; +#X connect 16 2 17 0; +#X connect 17 0 12 1; +#X connect 18 0 3 0; +#X connect 19 0 4 0; +#X restore 91 367 pd compare; +#N canvas 1456 193 714 565 reference 0; +#X obj 519 101 table \$0-reference 64; +#X obj 49 38 inlet doit; +#X obj 237 371 outlet in~; +#X obj 49 376 outlet done; +#X obj 240 86 inlet out~; +#X obj 69 92 t b b; +#X msg 69 112 64; +#X msg 101 112 0; +#X obj 69 229 tabread \$0-input; +#X obj 69 274 f; +#X obj 69 252 t b f b; +#X obj 69 300 pack 0 0; +#X obj 69 326 tabwrite \$0-reference; +#X obj 49 61 t b b; +#X obj 129 274 / 100; +#X obj 129 252 random 100; +#X msg 99 59 bang; +#X obj 69 136 until; +#X obj 69 162 i; +#X obj 99 162 + 1; +#X obj 69 206 t f f; +#X connect 1 0 13 0; +#X connect 4 0 9 1; +#X connect 5 0 6 0; +#X connect 5 1 7 0; +#X connect 6 0 17 0; +#X connect 7 0 18 1; +#X connect 8 0 10 0; +#X connect 9 0 11 0; +#X connect 10 0 9 0; +#X connect 10 1 2 0; +#X connect 10 2 15 0; +#X connect 11 0 12 0; +#X connect 13 0 3 0; +#X connect 13 1 5 0; +#X connect 14 0 9 1; +#X connect 15 0 14 0; +#X connect 16 0 5 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 18 1; +#X connect 20 0 8 0; +#X connect 20 1 11 1; +#X restore 91 303 pd reference; +#X obj 91 396 outlet result; +#X msg 210 390 -1; +#X obj 91 202 t b b; +#X obj 91 162 del 10; +#X obj 158 274 absgn~; +#X obj 261 295 t f; +#X obj 261 317 select 0; +#X msg 261 339 0; +#X obj 314 337 moses 0; +#X msg 314 359 -1; +#X obj 314 381 t f; +#X msg 360 358 1; +#X connect 0 0 2 0; +#X connect 2 0 11 0; +#X connect 2 1 9 0; +#X connect 3 0 11 0; +#X connect 5 0 12 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 7 1 13 0; +#X connect 9 0 8 0; +#X connect 10 0 7 0; +#X connect 10 1 4 0; +#X connect 11 0 10 0; +#X connect 12 0 6 1; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 14 1 16 0; +#X connect 15 0 18 0; +#X connect 16 0 17 0; +#X connect 16 1 19 0; +#X connect 17 0 18 0; +#X connect 18 0 7 1; +#X connect 19 0 18 0; -- cgit v1.2.1