From e3bc30bfa2635cee8f43ffd4f8aa9079a240b14b Mon Sep 17 00:00:00 2001
From: Jonathan Wilkes <jon.w.wilkes@gmail.com>
Date: Mon, 27 Jul 2020 17:48:24 -0400
Subject: [PATCH] add tests

---
 scripts/regression_tests.pd                   |  8 +++++--
 .../inlet~_fwd_large_message.pd               | 23 +++++++++++++++++++
 scripts/regression_tests/inlet~_no_fwd.pd     | 23 +++++++++++++++++++
 3 files changed, 52 insertions(+), 2 deletions(-)
 create mode 100644 scripts/regression_tests/inlet~_fwd_large_message.pd
 create mode 100644 scripts/regression_tests/inlet~_no_fwd.pd

diff --git a/scripts/regression_tests.pd b/scripts/regression_tests.pd
index fc7b8832d..2c1b8f4c8 100644
--- a/scripts/regression_tests.pd
+++ b/scripts/regression_tests.pd
@@ -1,4 +1,4 @@
-#N canvas 339 133 750 572 12;
+#N canvas 300 114 750 572 12;
 #X obj 465 281 r \$0-result;
 #X obj 212 239 bng 31 250 50 0 empty empty Run_all 39 13 0 12 -262144
 -1 -1;
@@ -25,7 +25,7 @@ is handy for some binbuf tests.;
 #X obj 198 659 rtest makefilename_double_percent;
 #X obj 198 710 rtest makefilename_code_coverage;
 #N canvas 461 242 450 323 (subpatch) 0;
-#X restore 201 2175 pd;
+#X restore 201 2355 pd;
 #X obj 198 761 rtest makefilename_default;
 #X obj 198 812 rtest makefilename_default_bang;
 #X obj 198 863 rtest makefilename_float;
@@ -58,6 +58,8 @@ is handy for some binbuf tests.;
 #X obj 198 1976 rtest float_symbol_method;
 #X obj 198 2031 rtest type_hint_coverage;
 #X obj 198 2086 rtest route_reject_bang;
+#X obj 198 2141 rtest inlet~_no_fwd;
+#X obj 198 2196 rtest inlet~_fwd_large_message;
 #X connect 0 0 27 0;
 #X connect 1 0 4 0;
 #X connect 2 0 42 0;
@@ -101,3 +103,5 @@ is handy for some binbuf tests.;
 #X connect 49 0 50 0;
 #X connect 50 0 51 0;
 #X connect 51 0 52 0;
+#X connect 52 0 53 0;
+#X connect 53 0 54 0;
diff --git a/scripts/regression_tests/inlet~_fwd_large_message.pd b/scripts/regression_tests/inlet~_fwd_large_message.pd
new file mode 100644
index 000000000..e8b34272e
--- /dev/null
+++ b/scripts/regression_tests/inlet~_fwd_large_message.pd
@@ -0,0 +1,23 @@
+#N canvas 240 193 835 453 12;
+#X obj 57 22 inlet;
+#X obj 57 260 outlet;
+#X msg 57 51 bang;
+#X obj 321 27 array define \$0-big;
+#X obj 318 160 array size \$0-big;
+#X msg 318 135 5e+06;
+#X obj 132 138 array get \$0-big;
+#N canvas 0 0 450 300 \$0-fwd-test~ 0;
+#X obj 61 40 inlet~ fwd;
+#X restore 132 176 pd \$0-fwd-test~;
+#X obj 57 79 trigger bang bang bang;
+#X obj 57 138 f 1;
+#X obj 57 215 list append large messages to [inlet~ fwd] should not
+blow the stack;
+#X connect 0 0 2 0;
+#X connect 2 0 8 0;
+#X connect 5 0 4 0;
+#X connect 8 0 9 0;
+#X connect 8 1 6 0;
+#X connect 8 2 5 0;
+#X connect 9 0 10 0;
+#X connect 10 0 1 0;
diff --git a/scripts/regression_tests/inlet~_no_fwd.pd b/scripts/regression_tests/inlet~_no_fwd.pd
new file mode 100644
index 000000000..2ade5b6ff
--- /dev/null
+++ b/scripts/regression_tests/inlet~_no_fwd.pd
@@ -0,0 +1,23 @@
+#N canvas 239 169 507 299 12;
+#X obj 57 22 inlet;
+#X obj 57 230 outlet;
+#N canvas 0 0 450 300 \$0-test~ 0;
+#X obj 61 40 inlet~;
+#X restore 171 146 pd \$0-test~;
+#X obj 132 117 unpost;
+#X obj 57 117 list;
+#X obj 57 146 list length;
+#X obj 57 185 list append non-signal message to inlet~ should trigger
+an error;
+#X msg 57 51 bang;
+#X obj 57 79 trigger bang bang bang;
+#X connect 0 0 7 0;
+#X connect 3 0 4 1;
+#X connect 3 1 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 8 0;
+#X connect 8 0 4 0;
+#X connect 8 1 3 0;
+#X connect 8 2 4 1;
-- 
GitLab