From 9ea5a233dc2f37ad33ae829d328ff349e47b9611 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Wed, 31 Mar 2010 13:44:16 +0000
Subject: simple test, whether sequences qppear in the right order

svn path=/trunk/externals/iem/iemnet/; revision=13323
---
 tests/sequence/01_client.pd | 119 ++++++++++++++++++++++++++++++++++++++++++++
 tests/sequence/01_server.pd |  51 +++++++++++++++++++
 2 files changed, 170 insertions(+)
 create mode 100644 tests/sequence/01_client.pd
 create mode 100644 tests/sequence/01_server.pd

diff --git a/tests/sequence/01_client.pd b/tests/sequence/01_client.pd
new file mode 100644
index 0000000..c9ffd18
--- /dev/null
+++ b/tests/sequence/01_client.pd
@@ -0,0 +1,119 @@
+#N canvas 501 150 636 624 10;
+#X obj 139 179 tcpclient;
+#X msg 308 152 connect \$1 9999;
+#X msg 308 108 bang;
+#X obj 308 130 symbol localhost;
+#X symbolatom 351 112 10 0 0 0 - - -;
+#X obj 159 201 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 127
+127;
+#X obj 139 284 list split 1;
+#X obj 139 242 until;
+#X obj 139 263 list append;
+#X obj 139 219 t b l;
+#X obj 183 243 bang;
+#X obj 139 306 select 255;
+#X obj 139 328 i;
+#X obj 139 350 + 1;
+#X obj 139 372 t f f;
+#X obj 121 398 f;
+#X obj 114 108 metro 100;
+#X obj 114 85 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X msg 114 130 1;
+#X obj 79 323 t b b;
+#X msg 108 345 0;
+#X floatatom 121 555 5 0 0 3 dummyload - -;
+#X obj 253 378 -;
+#X obj 252 354 t f f;
+#X obj 253 400 select 1;
+#X obj 306 489 print error;
+#X obj 306 443 pack 0 0 0;
+#X obj 185 426 t f f;
+#X obj 373 416 + 1;
+#X obj 185 448 select 254;
+#X msg 185 470 -1;
+#X obj 206 328 t b f f f;
+#X msg 306 465 \$2 should be \$3;
+#X obj 306 421 t b b;
+#X obj 459 485 i;
+#X obj 459 507 + 1;
+#X obj 459 529 t f f;
+#X floatatom 459 551 5 0 0 3 errors - -;
+#X text 49 27 testing the server;
+#X floatatom 188 78 5 0 0 0 - - -;
+#X obj 55 394 i;
+#X obj 55 416 + 1;
+#X obj 55 438 t f f;
+#X floatatom 22 481 5 0 0 3 iterations - -;
+#X msg 56 372 0;
+#X obj 52 125 t b b;
+#X obj 52 147 timer;
+#X floatatom 52 169 5 0 0 0 - - -;
+#X obj 22 458 i;
+#X obj 14 344 metro 100;
+#X msg 14 366 bang;
+#X obj 16 325 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X connect 0 0 9 0;
+#X connect 0 1 5 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 3 0;
+#X connect 6 0 11 0;
+#X connect 6 1 8 1;
+#X connect 6 2 10 0;
+#X connect 7 0 8 0;
+#X connect 8 0 6 0;
+#X connect 9 0 7 0;
+#X connect 9 1 8 1;
+#X connect 10 0 7 1;
+#X connect 11 0 12 0;
+#X connect 11 1 31 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 1;
+#X connect 14 1 12 1;
+#X connect 15 0 21 0;
+#X connect 16 0 18 0;
+#X connect 16 0 45 0;
+#X connect 17 0 16 0;
+#X connect 18 0 0 0;
+#X connect 19 0 15 0;
+#X connect 19 1 20 0;
+#X connect 19 1 40 0;
+#X connect 20 0 12 1;
+#X connect 22 0 24 0;
+#X connect 23 0 22 1;
+#X connect 23 1 22 0;
+#X connect 24 1 33 0;
+#X connect 26 0 32 0;
+#X connect 27 0 29 0;
+#X connect 27 1 28 0;
+#X connect 28 0 26 2;
+#X connect 29 0 30 0;
+#X connect 30 0 22 1;
+#X connect 31 0 19 0;
+#X connect 31 1 27 0;
+#X connect 31 2 23 0;
+#X connect 31 3 26 1;
+#X connect 32 0 25 0;
+#X connect 33 0 26 0;
+#X connect 33 1 34 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X connect 36 0 37 0;
+#X connect 36 1 34 1;
+#X connect 39 0 16 1;
+#X connect 40 0 41 0;
+#X connect 41 0 42 0;
+#X connect 42 0 48 1;
+#X connect 42 1 40 1;
+#X connect 44 0 40 0;
+#X connect 45 0 46 0;
+#X connect 45 1 46 1;
+#X connect 46 0 47 0;
+#X connect 48 0 43 0;
+#X connect 49 0 50 0;
+#X connect 50 0 48 0;
+#X connect 51 0 49 0;
diff --git a/tests/sequence/01_server.pd b/tests/sequence/01_server.pd
new file mode 100644
index 0000000..3c17c86
--- /dev/null
+++ b/tests/sequence/01_server.pd
@@ -0,0 +1,51 @@
+#N canvas 64 326 438 532 10;
+#X obj 71 256 tcpserver 9999;
+#X obj 71 278 t b;
+#X obj 71 300 i;
+#X obj 115 326 + 1;
+#X obj 115 348 % 255;
+#X obj 250 252 loadbang;
+#X msg 71 388 broadcast \$1;
+#X obj 71 429 list append;
+#X obj 250 274 f 1024;
+#X obj 250 296 t b f b;
+#X obj 250 438 list prepend;
+#X obj 273 319 until;
+#X obj 273 341 f 255;
+#X obj 273 363 list prepend;
+#X obj 273 385 t l l;
+#X msg 106 276 bang;
+#X msg 321 250 bang;
+#X obj 71 451 list trim;
+#X obj 23 229 t a;
+#X text 27 43 responds to any data from the client by sending pack
+a stream consisting of a header and a dummy payload.;
+#X text 31 84 the dummy payload is a number of 0xFF bytes;
+#X obj 71 322 t f f;
+#X text 32 99 the header is a single byte counting up from 0..254 (and
+wrapping around);
+#X floatatom 166 305 5 0 0 0 - - -;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 21 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 1;
+#X connect 5 0 8 0;
+#X connect 6 0 7 0;
+#X connect 7 0 17 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 9 1 11 0;
+#X connect 10 0 7 1;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 10 1;
+#X connect 14 1 13 1;
+#X connect 15 0 1 0;
+#X connect 16 0 8 0;
+#X connect 17 0 18 0;
+#X connect 18 0 0 0;
+#X connect 21 0 6 0;
+#X connect 21 1 3 0;
+#X connect 23 0 3 1;
-- 
cgit v1.2.1