7 files changed, 232 insertions, 0 deletions
diff --git a/tests/reconnect/01_reconnect-crash.pd b/tests/reconnect/01_reconnect-crash.pd
new file mode 100644
index 0000000..b235768
--- /dev/null
+++ b/tests/reconnect/01_reconnect-crash.pd
@@ -0,0 +1,30 @@
+#N canvas 243 49 699 424 10;
+#X msg 22 255 disconnect;
+#X msg 112 177 connect localhost 44100;
+#X obj 21 344 tcpserver 44100;
+#X obj 22 322 tcpclient;
+#X obj 22 149 t b b b;
+#X obj 22 70 tgl 15 0 empty empty empty 17 7 0 10 -261234 -1 -1 1 1
+;
+#X msg 106 248 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
+22 23 24 25 26 27 28 29 30 255;
+#X obj 106 219 del 20;
+#X obj 22 231 del 40;
+#X obj 22 110 metro 60;
+#X text 78 68 This patch appears to crash Pd after a few cycles of
+disconnect|send|reconnect.;
+#X text 44 71 <-;
+#X floatatom 68 378 5 0 0 0 - - -;
+#X msg 217 349 64 64 64;
+#X connect 0 0 3 0;
+#X connect 1 0 3 0;
+#X connect 2 1 12 0;
+#X connect 4 0 8 0;
+#X connect 4 1 7 0;
+#X connect 4 2 1 0;
+#X connect 5 0 9 0;
+#X connect 6 0 3 0;
+#X connect 7 0 6 0;
+#X connect 8 0 0 0;
+#X connect 9 0 4 0;
+#X connect 13 0 2 0;
diff --git a/tests/reconnect/04_reconnect-dropped-byte-2-client.pd b/tests/reconnect/04_reconnect-dropped-byte-2-client.pd
new file mode 100644
index 0000000..6cfd0c2
--- /dev/null
+++ b/tests/reconnect/04_reconnect-dropped-byte-2-client.pd
@@ -0,0 +1,85 @@
+#N canvas 2026 49 530 584 10;
+#X msg 5 222 disconnect;
+#X msg 46 107 connect localhost 44100;
+#X obj 46 285 tcpclient;
+#X obj 148 391 list prepend;
+#X obj 46 322 sel 255;
+#X obj 85 429 list append;
+#X obj 165 469 list length;
+#X obj 85 468 t a a;
+#X obj 165 491 sel 30;
+#X obj 198 566 print ERROR;
+#X msg 198 545 byte count wrong: \$1 bytes;
+#X obj 46 81 metro 1000;
+#X obj 46 344 t b b b;
+#X obj 46 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X floatatom 135 47 5 0 0 0 - - -;
+#X obj 46 262 t a a;
+#X msg 399 44 bang;
+#X obj 399 64 print foo;
+#X obj 340 429 i;
+#X obj 340 449 + 1;
+#X obj 340 469 t f f;
+#X floatatom 340 489 5 0 0 0 - - -;
+#X obj 317 56 metro 1000;
+#X obj 317 76 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 317 33 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X msg 137 25 10;
+#X floatatom 78 181 5 0 0 0 - - -;
+#X obj 78 220 payload;
+#X obj 198 519 t f b b;
+#X msg 256 516 0;
+#X obj 135 64 t f f;
+#X obj 176 80 print timmms;
+#X obj 46 305 t a a;
+#X obj 78 200 sel 1 0;
+#X obj 148 410 t a a;
+#X obj 86 262 sprint TCPCLIENT;
+#X obj 89 304 sprint CLIENTrec;
+#X obj 85 526 sprint packet 1;
+#X connect 0 0 15 0;
+#X connect 1 0 15 0;
+#X connect 2 0 32 0;
+#X connect 2 2 26 0;
+#X connect 3 0 34 0;
+#X connect 4 0 12 0;
+#X connect 4 1 3 0;
+#X connect 5 0 7 0;
+#X connect 6 0 8 0;
+#X connect 7 0 37 0;
+#X connect 7 1 6 0;
+#X connect 8 1 28 0;
+#X connect 10 0 9 0;
+#X connect 11 0 1 0;
+#X connect 12 0 0 0;
+#X connect 12 1 5 1;
+#X connect 12 1 3 1;
+#X connect 12 2 5 0;
+#X connect 13 0 11 0;
+#X connect 14 0 30 0;
+#X connect 15 0 2 0;
+#X connect 15 1 35 0;
+#X connect 16 0 17 0;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 20 1 18 1;
+#X connect 22 0 23 0;
+#X connect 24 0 22 0;
+#X connect 25 0 14 0;
+#X connect 26 0 33 0;
+#X connect 27 0 15 0;
+#X connect 28 0 10 0;
+#X connect 28 1 18 0;
+#X connect 28 2 29 0;
+#X connect 30 0 11 1;
+#X connect 30 1 31 0;
+#X connect 32 0 4 0;
+#X connect 32 1 36 0;
+#X connect 33 0 27 0;
+#X connect 33 1 34 0;
+#X connect 34 0 5 1;
+#X connect 34 1 3 1;
diff --git a/tests/reconnect/04_reconnect-dropped-byte-2-server.pd b/tests/reconnect/04_reconnect-dropped-byte-2-server.pd
new file mode 100644
index 0000000..2b4ab7e
--- /dev/null
+++ b/tests/reconnect/04_reconnect-dropped-byte-2-server.pd
@@ -0,0 +1,17 @@
+#N canvas 1298 426 599 289 10;
+#X obj 77 93 list prepend broadcast;
+#X obj 77 115 list trim;
+#X obj 77 36 tcpserver 44100;
+#X obj 19 53 t a a a;
+#X obj 77 56 t a a a;
+#X obj 212 169 select 255;
+#X obj 212 189 sprint =======================;
+#X obj 126 56 sprint TCPSERVER;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 2 0 4 0;
+#X connect 3 1 2 0;
+#X connect 4 0 5 0;
+#X connect 4 1 0 0;
+#X connect 4 2 7 0;
+#X connect 5 0 6 0;
diff --git a/tests/reconnect/payload.pd b/tests/reconnect/payload.pd
new file mode 100644
index 0000000..4779114
--- /dev/null
+++ b/tests/reconnect/payload.pd
@@ -0,0 +1,7 @@
+#N canvas 4 49 450 300 10;
+#X obj 135 52 inlet bang;
+#X obj 142 256 outlet data;
+#X msg 86 140 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
+22 23 24 25 26 27 28 29 30 255;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
diff --git a/tests/reconnect/reconnect-dropped-byte.pd b/tests/reconnect/reconnect-dropped-byte.pd
new file mode 100644
index 0000000..bb5587d
--- /dev/null
+++ b/tests/reconnect/reconnect-dropped-byte.pd
@@ -0,0 +1,56 @@
+#N canvas 242 49 530 584 10;
+#X msg 23 208 disconnect;
+#X msg 113 130 connect localhost 44100;
+#X obj 335 71 list prepend broadcast;
+#X obj 335 93 list trim;
+#X obj 298 62 t a;
+#X obj 335 44 tcpserver 44100;
+#X obj 46 285 tcpclient;
+#X obj 23 102 t b b b;
+#X obj 107 172 del 30;
+#X obj 23 184 del 60;
+#X obj 23 63 metro 100;
+#X obj 23 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X obj 136 374 list prepend;
+#X obj 231 374 t a;
+#X obj 46 322 sel 255;
+#X obj 73 399 list append;
+#X obj 46 344 t b b;
+#X obj 153 452 list length;
+#X obj 73 421 t a a;
+#X obj 153 474 sel 30;
+#X obj 186 519 print ERROR;
+#X msg 107 201 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
+22 23 24 25 26 27 28 29 30 255;
+#X obj 73 509 print packet;
+#X msg 186 498 byte count wrong: \$1 bytes;
+#X connect 0 0 6 0;
+#X connect 1 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
+#X connect 6 0 14 0;
+#X connect 7 0 9 0;
+#X connect 7 1 8 0;
+#X connect 7 2 1 0;
+#X connect 8 0 21 0;
+#X connect 9 0 0 0;
+#X connect 10 0 7 0;
+#X connect 11 0 10 0;
+#X connect 12 0 13 0;
+#X connect 12 0 15 1;
+#X connect 13 0 12 1;
+#X connect 14 0 16 0;
+#X connect 14 1 12 0;
+#X connect 15 0 18 0;
+#X connect 16 0 15 1;
+#X connect 16 0 12 1;
+#X connect 16 1 15 0;
+#X connect 17 0 19 0;
+#X connect 18 0 22 0;
+#X connect 18 1 17 0;
+#X connect 19 1 23 0;
+#X connect 21 0 6 0;
+#X connect 23 0 20 0;
diff --git a/tests/reconnect/serialize.pd b/tests/reconnect/serialize.pd
new file mode 100644
index 0000000..f296d5f
--- /dev/null
+++ b/tests/reconnect/serialize.pd
@@ -0,0 +1,17 @@
+#N canvas 4 49 450 300 10;
+#X obj 63 190 list split 1;
+#X obj 63 107 until;
+#X obj 63 145 list append;
+#X obj 89 74 t b l;
+#X obj 193 190 bang;
+#X obj 63 210 outlet;
+#X obj 99 45 inlet;
+#X connect 0 0 5 0;
+#X connect 0 1 2 1;
+#X connect 0 2 4 0;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X connect 3 0 1 0;
+#X connect 3 1 2 1;
+#X connect 4 0 1 1;
+#X connect 6 0 3 0;
diff --git a/tests/reconnect/sprint.pd b/tests/reconnect/sprint.pd
new file mode 100644
index 0000000..d78e2c7
--- /dev/null
+++ b/tests/reconnect/sprint.pd
@@ -0,0 +1,20 @@
+#N canvas 4 49 450 300 10;
+#X obj 74 144 spigot;
+#X obj 100 100 tgl 15 0 \$0-spigot \$0-spigot empty 17 7 0 10 -262144
+-1 -1 0 1;
+#X obj 141 134 r \$0-spigot;
+#X obj 74 53 inlet;
+#X obj 74 164 print \$1;
+#X obj 227 37 loadbang;
+#X obj 227 57 list prepend \$2;
+#X obj 227 77 route float;
+#X obj 227 97 s \$0-spigot;
+#X obj 354 31 inlet;
+#X connect 0 0 4 0;
+#X connect 2 0 0 1;
+#X connect 3 0 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 9 0 7 0;
+#X coords 0 -1 1 1 15 15 1 100 100;