update external tests to cover dsp_add and dsp class perform routines

scripts/external-tests.pd

-#N canvas 1 53 659 616 12;
+#N canvas 9 60 659 633 12;
 #X obj 61 34 loadbang;
 #N canvas 107 123 756 233 load_hcs/folder_list 0;
 #X obj 357 47 inlet;
 #X obj 357 155 s pd-\$0-hcs/folder_list;
 #N canvas 288 225 450 300 \$0-hcs/folder_list 0;
+#X obj 5 5 receive 1003-fl-in;
+#X obj 5 30 /usr/lib/pd-l2ork/extra/hcs/folder_list;
+#X obj 5 55 send 1003-fl-out;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
 #X restore 43 113 pd \$0-hcs/folder_list;
 #X obj 43 47 inlet;
 #X obj 43 76 s \$0-fl-in;
@@ -57,7 +62,16 @@ iem_anything ekext disis lyonpotpourri;
 #X obj 102 163 f;
 #X obj 102 188 + 1;
 #X msg 274 263 set;
-#X msg 66 307 \$1 \, \$2 \,;
+#X msg 66 307 \$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 \, \$31 \, \$32 \, \$33 \, \$34
+\, \$35 \, \$36 \, \$37 \, \$38 \, \$39 \, \$40 \, \$41 \, \$42 \,
+\$43 \, \$44 \, \$45 \, \$46 \, \$47 \, \$48 \, \$49 \, \$50 \, \$51
+\, \$52 \, \$53 \, \$54 \, \$55 \, \$56 \, \$57 \, \$58 \, \$59 \,
+\$60 \, \$61 \, \$62 \, \$63 \, \$64 \, \$65 \, \$66 \, \$67 \, \$68
+\, \$69 \, \$70 \, \$71 \, \$72 \, \$73 \, \$74 \, \$75 \, \$76 \,
+\$77 \, \$78 \, \$79 \, \$80 \, \$81 \, \$82 \, \$83 \, \$84 \,;
 #X obj 66 263 list;
 #X msg 102 263 adddollar \$1 \, addcomma;
 #X msg 150 126 0;
@@ -143,7 +157,7 @@ iem_anything ekext disis lyonpotpourri;
 #X obj 102 163 f;
 #X obj 102 188 + 1;
 #X msg 274 263 set;
-#X msg 66 307 \$1 \, \$2 \,;
+#X msg 66 307 \$1 \, \$2 \, \$3 \,;
 #X obj 66 263 list;
 #X msg 102 263 adddollar \$1 \, addcomma;
 #X msg 150 126 0;
@@ -354,7 +368,7 @@ works.;
 #X connect 28 1 19 1;
 #X connect 29 0 19 0;
 #X restore 132 653 pd get-creator-names;
-#N canvas 240 179 450 346 test-object 0;
+#N canvas 310 187 450 421 test-object 0;
 #X obj 26 36 inlet;
 #X text 72 34 creator_name argtype1 argtype2 etc.;
 #N canvas 372 37 649 659 right_outlet_for_aliases 0;
@@ -419,8 +433,8 @@ tests;
 #X connect 25 0 26 1;
 #X connect 26 1 3 0;
 #X connect 27 0 12 1;
-#X restore 194 79 pd right_outlet_for_aliases;
-#N canvas 3 25 740 694 load_the_object 0;
+#X restore 194 129 pd right_outlet_for_aliases;
+#N canvas 6 60 740 633 load_the_object 0;
 #X obj 22 13 inlet;
 #X obj 86 115 list split 1;
 #N canvas 238 121 613 490 set_args 0;
@@ -498,32 +512,29 @@ arguments in order to continue the tests, f 45;
 #X restore 193 168 pd set_args;
 #X obj 126 140 route bang;
 #X obj 86 213 list;
-#X obj 86 351 s pd-\$0-load_the_object_subpatch;
+#X obj 86 381 s pd-\$0-load_the_object_subpatch;
 #X obj 86 238 t a b;
 #X msg 118 264 clear;
 #X text 216 107 Try to instantiate the object and connect up the primary
 inlet and outlet;
-#X msg 54 400 find \$1;
-#X msg 86 291 obj 5 30 \$@ \, obj 5 100 r \$0-load_canvasinfo_input
-\, obj 5 130 canvasinfo \, obj 5 160 s \$0-load_canvasinfo_output \,
-connect 1 0 2 0 \, connect 2 0 3 0;
-#X obj 54 425 s \$0-load_canvasinfo_input;
-#X obj 54 450 r \$0-load_canvasinfo_output;
-#X obj 54 475 list split 1;
-#X text 261 399 <-- find the object by box text-- it was the first
+#X msg 54 430 find \$1;
+#X obj 54 455 s \$0-load_canvasinfo_input;
+#X obj 54 480 r \$0-load_canvasinfo_output;
+#X obj 54 505 list split 1;
+#X text 261 429 <-- find the object by box text-- it was the first
 one on the canvas to get created so it will get returned first if there
 are any duplicate matches;
-#X text 149 475 <-- filter out any duplicate matches from our "helper"
+#X text 149 505 <-- filter out any duplicate matches from our "helper"
 object chain;
-#X obj 54 500 t b a;
-#X msg 54 525 class;
-#X obj 54 550 objectinfo;
-#X obj 54 575 select text;
-#X text 140 574 <-- the "text" class is an internal class that essentially
+#X obj 54 530 t b a;
+#X msg 54 555 class;
+#X obj 54 580 objectinfo;
+#X obj 54 605 select text;
+#X text 140 604 <-- the "text" class is an internal class that essentially
 represents an object box that currently holds no object. So if we query
 our object and get "text" here \, it means Pd couldn't load the object.
 ;
-#X obj 54 376 trigger anything anything;
+#X obj 54 406 trigger anything anything;
 #N canvas 365 98 450 323 fail 0;
 #X obj 41 34 inlet;
 #X obj 112 34 inlet;
@@ -537,8 +548,8 @@ our object and get "text" here \, it means Pd couldn't load the object.
 #X connect 3 0 6 0;
 #X connect 5 0 3 1;
 #X connect 6 0 4 0;
-#X restore 54 600 pd fail;
-#X obj 22 625 outlet;
+#X restore 54 630 pd fail;
+#X obj 22 665 outlet;
 #N canvas 436 87 569 401 plain_then_with_libdir_prefix 0;
 #X obj 35 26 inlet;
 #X text 128 26 try both the lone creator name and the libdir prefix:
@@ -568,7 +579,11 @@ may be other oddities in external libs with regard to libdir prefixes.
 #X restore 128 57 pd plain_then_with_libdir_prefix;
 #X obj 22 38 t a a;
 #X obj 54 89 t a a;
-#X connect 0 0 25 0;
+#X msg 86 291 obj 5 30 \$@ \, obj 5 100 r \$0-load_canvasinfo_input
+\, obj 5 130 canvasinfo \, obj 5 160 s \$0-load_canvasinfo_output \,
+obj 5 190 r \$0-switch \, obj 5 220 switch~ \, connect 1 0 2 0 \, connect
+2 0 3 0 \, connect 4 0 5 0;
+#X connect 0 0 24 0;
 #X connect 1 0 4 0;
 #X connect 1 1 3 0;
 #X connect 2 0 4 1;
@@ -576,31 +591,31 @@ may be other oddities in external libs with regard to libdir prefixes.
 #X connect 3 0 4 1;
 #X connect 3 1 2 0;
 #X connect 4 0 6 0;
-#X connect 6 0 10 0;
+#X connect 6 0 26 0;
 #X connect 6 1 7 0;
 #X connect 7 0 5 0;
-#X connect 9 0 11 0;
-#X connect 10 0 5 0;
-#X connect 12 0 13 0;
-#X connect 13 0 16 0;
+#X connect 9 0 10 0;
+#X connect 11 0 12 0;
+#X connect 12 0 15 0;
+#X connect 15 0 16 0;
+#X connect 15 1 17 1;
 #X connect 16 0 17 0;
-#X connect 16 1 18 1;
 #X connect 17 0 18 0;
-#X connect 18 0 19 0;
-#X connect 19 0 22 0;
-#X connect 21 0 9 0;
-#X connect 21 1 22 1;
-#X connect 25 0 23 0;
-#X connect 25 1 24 0;
-#X connect 25 1 26 0;
-#X connect 26 0 21 0;
-#X connect 26 1 1 0;
-#X restore 26 156 pd load_the_object;
-#N canvas 268 243 450 346 \$0-load_the_object_subpatch 0;
-#X restore 171 157 pd \$0-load_the_object_subpatch;
-#X msg 26 241 clear;
-#X obj 26 266 s pd-\$0-load_the_object_subpatch;
-#N canvas 99 25 704 622 check_for_namespace_collisions 0;
+#X connect 18 0 21 0;
+#X connect 20 0 9 0;
+#X connect 20 1 21 1;
+#X connect 24 0 22 0;
+#X connect 24 1 23 0;
+#X connect 24 1 25 0;
+#X connect 25 0 20 0;
+#X connect 25 1 1 0;
+#X connect 26 0 5 0;
+#X restore 46 206 pd load_the_object;
+#N canvas 844 164 450 369 \$0-load_the_object_subpatch 0;
+#X restore 191 207 pd \$0-load_the_object_subpatch;
+#X msg 46 291 clear;
+#X obj 46 316 s pd-\$0-load_the_object_subpatch;
+#N canvas 135 60 704 645 check_for_namespace_collisions 0;
 #X obj 42 26 inlet;
 #X obj 42 51 t a a;
 #X obj 74 83 list split 1;
@@ -692,19 +707,43 @@ nameclash is in the current library we're testing then we ignore it.
 #X connect 22 0 13 0;
 #X connect 23 0 24 1;
 #X connect 24 0 22 0;
-#X restore 194 114 pd check_for_namespace_collisions;
-#X obj 49 128 print testing;
-#X obj 49 103 list split 1;
-#X obj 26 61 t a a b;
-#X obj 96 69 s \$0-object-test;
+#X restore 194 164 pd check_for_namespace_collisions;
+#X obj 86 87 s \$0-object-test;
+#X obj 66 160 s pd;
+#X obj 26 61 t b b a b;
+#X msg 66 131 dsp 1 \, dsp 0;
+#X obj 26 345 outlet;
+#N canvas 798 213 450 323 test-dsp 0;
+#X obj 46 32 inlet;
+#X obj 46 61 t b b b b;
+#X obj 46 260 outlet;
+#X msg 106 110 dsp 1;
+#X obj 106 229 send pd;
+#X obj 86 149 s \$0-switch;
+#X msg 66 183 dsp 0;
+#X text 177 149 force a dsp object to compute a block of samples. This
+way we can get code coverage for its "perform" routine at the default
+block size. Later we may want to reblock to size 4 or 1 to trigger
+non-optimized branches.;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 1 6 0;
+#X connect 1 2 5 0;
+#X connect 1 3 3 0;
+#X connect 3 0 4 0;
+#X connect 6 0 4 0;
+#X restore 46 248 pd test-dsp;
 #X connect 0 0 10 0;
 #X connect 2 0 7 0;
 #X connect 2 1 7 0;
-#X connect 3 0 5 0;
+#X connect 3 0 13 0;
 #X connect 5 0 6 0;
-#X connect 9 0 8 0;
-#X connect 10 0 3 0;
-#X connect 10 2 11 0;
+#X connect 10 0 12 0;
+#X connect 10 1 11 0;
+#X connect 10 2 3 0;
+#X connect 10 3 8 0;
+#X connect 11 0 9 0;
+#X connect 13 0 5 0;
 #X restore 132 714 pd test-object;
 #X obj 164 269 trigger bang anything anything;
 #X msg 371 293 methods;
@@ -744,7 +783,7 @@ nameclash is in the current library we're testing then we ignore it.
 #X connect 1 0 2 0;
 #X connect 1 1 3 0;
 #X restore 164 359 pd set_\$0-ext;
-#N canvas 37 97 1068 572 results 0;
+#N canvas 236 102 1068 595 results 0;
 #X obj 62 25 inlet;
 #X obj 235 33 r \$0-current-libdir-name;
 #X obj 146 33 r \$0-fail;
@@ -837,7 +876,7 @@ to set up Windows tests \, however.;
 #X connect 41 0 42 0;
 #X connect 41 1 36 0;
 #X connect 42 0 37 0;
-#X restore 61 741 pd results;
+#X restore 61 801 pd results;
 #X obj 132 239 t a a;
 #X obj 61 94 trigger bang bang bang anything;
 #X obj 132 179 t a a;