From 4ab31246e7e315418f6cbaeab89749d9918875b9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Tue, 19 Jan 2010 16:45:29 +0000
Subject: tests for more sigobjects

svn path=/trunk/externals/zexy/; revision=13048
---
 tests/or~/dualnoise.pd   | 158 +++++++++++++++++++++++++++++++++++++++++++++++
 tests/or~/singlenoise.pd | 158 +++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 316 insertions(+)
 create mode 100644 tests/or~/dualnoise.pd
 create mode 100644 tests/or~/singlenoise.pd

(limited to 'tests/or~')

diff --git a/tests/or~/dualnoise.pd b/tests/or~/dualnoise.pd
new file mode 100644
index 0000000..cfce7d8
--- /dev/null
+++ b/tests/or~/dualnoise.pd
@@ -0,0 +1,158 @@
+#N canvas 527 170 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;
+#N canvas 238 169 450 300 input 0;
+#X obj 119 243 outlet~;
+#N canvas 0 0 450 300 send 0;
+#X obj 82 48 inlet~;
+#X obj 96 255 outlet~;
+#X obj 258 255 outlet~;
+#X obj 96 227 tabreceive~ \$0-input1;
+#X obj 258 227 tabreceive~ \$0-input2;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X restore 119 218 pd send;
+#N canvas 0 0 450 300 generate~ 0;
+#X obj 120 111 noise~;
+#X obj 112 182 outlet~;
+#X obj 120 133 tabsend~ \$0-input1;
+#X obj 259 112 noise~;
+#X obj 259 134 tabsend~ \$0-input2;
+#X connect 0 0 2 0;
+#X connect 3 0 4 0;
+#X restore 119 194 pd generate~;
+#X obj 117 145 table \$0-input1 64;
+#X obj 257 145 table \$0-input2 64;
+#X obj 178 243 outlet~;
+#X connect 1 0 0 0;
+#X connect 1 1 5 0;
+#X connect 2 0 1 0;
+#X restore 158 243 pd input;
+#N canvas 363 165 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 obj 195 327 pack 0 0 0;
+#X obj 195 349 print or~;
+#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 9 1 20 2;
+#X connect 10 0 13 0;
+#X connect 10 0 20 0;
+#X connect 11 0 13 1;
+#X connect 11 0 20 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 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 186 t f f;
+#X obj 69 208 t f f;
+#X obj 69 229 tabread \$0-input1;
+#X obj 199 229 tabread \$0-input2;
+#X obj 237 348 pack;
+#X connect 1 0 12 0;
+#X connect 4 0 8 1;
+#X connect 5 0 6 0;
+#X connect 5 1 7 0;
+#X connect 6 0 16 0;
+#X connect 7 0 17 1;
+#X connect 8 0 10 0;
+#X connect 9 0 8 0;
+#X connect 9 1 23 0;
+#X connect 9 2 14 0;
+#X connect 10 0 11 0;
+#X connect 12 0 3 0;
+#X connect 12 1 5 0;
+#X connect 13 0 8 1;
+#X connect 14 0 13 0;
+#X connect 15 0 5 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 17 0 19 0;
+#X connect 18 0 17 1;
+#X connect 19 0 20 0;
+#X connect 19 1 10 1;
+#X connect 20 0 21 0;
+#X connect 20 1 22 0;
+#X connect 21 0 9 0;
+#X connect 22 0 23 1;
+#X connect 23 0 2 0;
+#X restore 91 303 pd reference;
+#X obj 91 396 outlet result;
+#X msg 210 390 -1;
+#X obj 250 303 unpack;
+#X obj 250 326 ||;
+#X obj 158 274 ||~;
+#X obj 134 162 s \$0-init;
+#X obj 91 162 bang~;
+#X obj 91 138 t b b b;
+#X msg 158 138 bang;
+#X connect 0 0 12 0;
+#X connect 2 0 9 0;
+#X connect 2 1 9 1;
+#X connect 3 0 5 0;
+#X connect 4 0 3 0;
+#X connect 4 1 7 0;
+#X connect 6 0 5 0;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 8 0 4 1;
+#X connect 9 0 3 1;
+#X connect 11 0 4 0;
+#X connect 12 1 10 0;
+#X connect 12 2 6 0;
+#X connect 13 0 12 0;
diff --git a/tests/or~/singlenoise.pd b/tests/or~/singlenoise.pd
new file mode 100644
index 0000000..213f20a
--- /dev/null
+++ b/tests/or~/singlenoise.pd
@@ -0,0 +1,158 @@
+#N canvas 527 170 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;
+#N canvas 363 165 631 415 compare 1;
+#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 obj 195 327 pack 0 0 0;
+#X obj 195 349 print or~;
+#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 9 1 20 2;
+#X connect 10 0 13 0;
+#X connect 10 0 20 0;
+#X connect 11 0 13 1;
+#X connect 11 0 20 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 connect 20 0 21 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 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 186 t f f;
+#X obj 69 208 t f f;
+#X obj 69 229 tabread \$0-input1;
+#X obj 199 229 tabread \$0-input2;
+#X obj 237 348 pack;
+#X connect 1 0 12 0;
+#X connect 4 0 8 1;
+#X connect 5 0 6 0;
+#X connect 5 1 7 0;
+#X connect 6 0 16 0;
+#X connect 7 0 17 1;
+#X connect 8 0 10 0;
+#X connect 9 0 8 0;
+#X connect 9 1 23 0;
+#X connect 9 2 14 0;
+#X connect 10 0 11 0;
+#X connect 12 0 3 0;
+#X connect 12 1 5 0;
+#X connect 13 0 8 1;
+#X connect 14 0 13 0;
+#X connect 15 0 5 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 17 0 19 0;
+#X connect 18 0 17 1;
+#X connect 19 0 20 0;
+#X connect 19 1 10 1;
+#X connect 20 0 21 0;
+#X connect 20 1 22 0;
+#X connect 21 0 9 0;
+#X connect 22 0 23 1;
+#X connect 23 0 2 0;
+#X restore 91 303 pd reference;
+#X obj 91 396 outlet result;
+#X msg 210 390 -1;
+#X obj 250 303 unpack;
+#X obj 250 326 ||;
+#X obj 134 162 s \$0-init;
+#X obj 91 162 bang~;
+#X obj 91 138 t b b b;
+#X msg 158 138 bang;
+#N canvas 238 169 450 300 input1 0;
+#X obj 119 243 outlet~;
+#N canvas 0 0 450 300 send 0;
+#X obj 82 48 inlet~;
+#X obj 96 255 outlet~;
+#X obj 258 255 outlet~;
+#X obj 96 227 tabreceive~ \$0-input1;
+#X obj 258 227 tabreceive~ \$0-input2;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X restore 119 218 pd send;
+#N canvas 0 0 450 300 generate~ 0;
+#X obj 120 111 noise~;
+#X obj 112 182 outlet~;
+#X obj 120 133 tabsend~ \$0-input1;
+#X obj 259 134 tabsend~ \$0-input2;
+#X connect 0 0 2 0;
+#X connect 0 0 3 0;
+#X restore 119 194 pd generate~;
+#X obj 117 145 table \$0-input1 64;
+#X obj 257 145 table \$0-input2 64;
+#X obj 178 243 outlet~;
+#X connect 1 0 0 0;
+#X connect 1 1 5 0;
+#X connect 2 0 1 0;
+#X restore 158 243 pd input1;
+#X obj 158 274 ||~;
+#X connect 0 0 10 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 3 1 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 7 0;
+#X connect 6 1 7 1;
+#X connect 7 0 3 1;
+#X connect 9 0 3 0;
+#X connect 10 1 8 0;
+#X connect 10 2 5 0;
+#X connect 11 0 10 0;
+#X connect 12 0 13 0;
+#X connect 12 1 13 1;
+#X connect 13 0 2 1;
-- 
cgit v1.2.1