1 files changed, 119 insertions, 89 deletions
diff --git a/unit-test-frame~.pd b/unit-test-frame~.pd
index 9d9873c..085d74a 100644
--- a/unit-test-frame~.pd
+++ b/unit-test-frame~.pd
@@ -1,19 +1,18 @@
-#N canvas 433 135 724 590 10;
-#N canvas 213 116 398 498 write-reference 0;
-#X obj 51 344 soundfiler;
-#X obj 51 287 list;
+#N canvas 61 63 724 590 10;
+#N canvas 654 121 435 584 write-reference 0;
+#X obj 51 436 soundfiler;
+#X obj 51 379 list;
 #X obj 50 16 inlet;
-#X floatatom 82 378 5 0 0 0 - - -;
-#X obj 72 257 r \$0-refname+ID;
+#X floatatom 82 470 5 0 0 0 - - -;
 #X text 90 16 bang;
 #X obj 51 124 r \$0-do-write-reference;
 #X obj 143 152 r \$0-abort-write-reference;
-#X obj 51 379 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+#X obj 51 471 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
 -1;
-#X obj 241 446 s \$0-do-test;
-#X obj 70 408 tabplay~ \$0-signal-under-test;
-#X msg 51 315 write -wave -bytes 4 \$1 \$2-signal-under-test;
-#X obj 51 450 tabwrite~ \$0-reference;
+#X obj 241 538 s \$0-do-test;
+#X obj 70 500 tabplay~ \$0-signal-under-test;
+#X msg 51 407 write -wave -bytes 4 \$1 \$2-signal-under-test;
+#X obj 51 542 tabwrite~ \$0-reference;
 #X obj 72 153 delay 500;
 #X obj 257 20 r \$0-refname;
 #X msg 257 46 \$1.wav;
@@ -39,26 +38,34 @@ the content of \$0-signal-under-test. The action can not be undone!
 #X obj 72 230 s pd-write-reference-popup\$0;
 #X msg 72 205 vis 0;
 #X obj 143 177 delay 200;
+#X obj 72 264 r \$0-refpath;
+#X obj 72 292 t a b;
+#X obj 99 321 f \$0;
+#X obj 72 350 pack s f;
 #X connect 0 0 3 0;
-#X connect 0 0 8 0;
-#X connect 1 0 11 0;
-#X connect 2 0 20 0;
-#X connect 4 0 1 1;
-#X connect 6 0 1 0;
-#X connect 6 0 13 0;
-#X connect 7 0 23 0;
-#X connect 8 0 10 0;
-#X connect 8 0 12 0;
-#X connect 10 0 12 0;
-#X connect 10 1 9 0;
-#X connect 11 0 0 0;
-#X connect 13 0 22 0;
+#X connect 0 0 7 0;
+#X connect 1 0 10 0;
+#X connect 2 0 19 0;
+#X connect 5 0 1 0;
+#X connect 5 0 12 0;
+#X connect 6 0 22 0;
+#X connect 7 0 9 0;
+#X connect 7 0 11 0;
+#X connect 9 0 11 0;
+#X connect 9 1 8 0;
+#X connect 10 0 0 0;
+#X connect 12 0 21 0;
+#X connect 13 0 14 0;
 #X connect 14 0 15 0;
 #X connect 15 0 16 0;
-#X connect 16 0 17 0;
-#X connect 20 0 19 0;
+#X connect 19 0 18 0;
+#X connect 21 0 20 0;
 #X connect 22 0 21 0;
-#X connect 23 0 22 0;
+#X connect 23 0 24 0;
+#X connect 24 0 26 0;
+#X connect 24 1 25 0;
+#X connect 25 0 26 1;
+#X connect 26 0 1 1;
 #X restore 43 219 pd write-reference;
 #X obj 42 319 bng 50 250 50 0 empty empty write 4 25 0 14 -260097 -262144
 -1;
@@ -156,19 +163,7 @@ the content of \$0-signal-under-test. The action can not be undone!
 #X restore 255 137 pd check-samplerate;
 #X msg 619 125 \; pd dsp 1;
 #X obj 619 95 loadbang;
-#N canvas 905 83 262 193 refname+ID 0;
-#X obj 26 47 inlet;
-#X obj 71 96 f \$0;
-#X obj 26 120 pack s f;
-#X obj 26 74 t a b;
-#X obj 26 152 s \$0-refname+ID;
-#X connect 0 0 3 0;
-#X connect 1 0 2 1;
-#X connect 2 0 4 0;
-#X connect 3 0 2 0;
-#X connect 3 1 1 0;
-#X restore 46 134 pd refname+ID;
-#X obj 29 190 s \$0-refname;
+#X obj 29 188 s \$0-refname;
 #X obj 472 390 hsl 195 100 0 127 0 0 empty empty empty -2 -8 0 10 -204786
 -204786 -1 0 1;
 #N canvas 0 22 450 300 (subpatch) 0;
@@ -187,7 +182,6 @@ the content of \$0-signal-under-test. The action can not be undone!
 #X array \$0-signal-under-test 512 float 0;
 #X coords 0 1 511 -1 200 100 1;
 #X restore 255 390 graph;
-#X text 63 13 reference name;
 #X obj 294 550 outlet;
 #X obj 267 518 t b b;
 #N canvas 739 28 261 427 test-result-messages 0;
@@ -253,7 +247,7 @@ STDDEV-ZERO 4 35 0 10 -204786 -204786 -1 0 1;
 #X obj 618 257 bng 50 250 50 0 empty empty ? 15 25 0 30 -260097 -262144
 -1;
 #X floatatom 475 325 18 0 0 0 - #0-stddev -;
-#X obj 29 162 symbol;
+#X obj 29 68 symbol;
 #X obj 45 258 hsl 195 50 0 112 0 0 \$0-dummysend \$0-dummyreceive empty
 -2 -8 0 10 -204786 -204786 -1 0 1;
 #X symbolatom 47 266 25 0 0 0 - #0-refname #0-dummysend;
@@ -304,14 +298,13 @@ STDDEV-ZERO 4 35 0 10 -204786 -204786 -1 0 1;
 #X text 300 12 signal under test;
 #X obj 463 257 cnv 15 150 25 empty empty [unit-test-frame~] 2 12 0
 14 -262144 -1 0;
-#N canvas 67 138 412 506 load-reference 0;
+#N canvas 673 76 412 506 load-reference 0;
 #X obj 36 27 inlet;
 #X obj 36 203 soundfiler;
 #X obj 81 112 f \$0;
 #X obj 36 136 pack s f;
 #X obj 36 94 t a b;
 #X obj 36 461 s \$0-do-test;
-#X msg 36 173 read ./\$1.wav \$2-reference;
 #X obj 75 375 pack s s s s s s;
 #X obj 168 297 r \$0-refname;
 #X obj 75 432 stdout;
@@ -324,26 +317,28 @@ STDDEV-ZERO 4 35 0 10 -204786 -204786 -1 0 1;
 #X obj 168 349 symbol;
 #X obj 75 402 list trim;
 #X obj 127 432 print unit-test;
-#X connect 0 0 11 0;
-#X connect 1 0 10 0;
+#X msg 125 135 read ./\$1.wav \$2-reference;
+#X msg 36 173 read \$1.wav \$2-reference;
+#X connect 0 0 10 0;
+#X connect 1 0 9 0;
 #X connect 2 0 3 1;
-#X connect 3 0 6 0;
+#X connect 3 0 19 0;
 #X connect 4 0 3 0;
 #X connect 4 1 2 0;
-#X connect 6 0 1 0;
-#X connect 7 0 17 0;
-#X connect 8 0 15 0;
-#X connect 10 0 5 0;
-#X connect 10 1 14 0;
-#X connect 11 0 4 0;
-#X connect 11 0 12 0;
-#X connect 12 0 11 1;
-#X connect 14 0 7 0;
-#X connect 15 0 16 0;
-#X connect 16 0 7 5;
-#X connect 17 0 9 0;
-#X connect 17 0 18 0;
-#X restore 64 104 pd load-reference;
+#X connect 6 0 16 0;
+#X connect 7 0 14 0;
+#X connect 9 0 5 0;
+#X connect 9 1 13 0;
+#X connect 10 0 4 0;
+#X connect 10 0 11 0;
+#X connect 11 0 10 1;
+#X connect 13 0 6 0;
+#X connect 14 0 15 0;
+#X connect 15 0 6 5;
+#X connect 16 0 8 0;
+#X connect 16 0 17 0;
+#X connect 19 0 1 0;
+#X restore 48 159 pd load-reference;
 #N canvas 473 125 566 541 info-unit-test\$0 0;
 #X text 144 337 STDDEV-ZERO 0;
 #X text 144 379 STDDEV-LARGE <stddev>;
@@ -365,9 +360,6 @@ STDDEV-ZERO 4 35 0 10 -204786 -204786 -1 0 1;
 #X text 127 421 The reference file must be in the same directory as
 the test. If it is not found when the patch is loaded \, an error is
 reported to the Pd window and stdout:;
-#X text 124 694 [unit-test-frame~.pd] uses only vanilla Pd classes.
-For testing external classes \, consider using namespaces like in [zexy/wrap].
-;
 #X text 122 782 ------------------------------------------------------------
 ;
 #X text 129 67 1: Test arguments must be sent as a list into the first
@@ -409,8 +401,11 @@ to reset a phase etc. when the test starts.;
 #X text 129 155 2: The signal under test must be sent into the second
 inlet. When testing an external object \, consider instantiating it
 with namespace \, like [zexy/wrap].;
-#X connect 25 0 23 0;
-#X connect 29 0 30 0;
+#X text 127 692 Apart from [ggee/getdir] \, [unit-test-frame~.pd] uses
+only vanilla Pd classes. For testing external classes \, consider using
+namespaces like in [zexy/wrap].;
+#X connect 24 0 22 0;
+#X connect 28 0 29 0;
 #X restore 488 96 pd info-unit-test\$0;
 #X msg 538 512 vis 1;
 #X text 337 215 auto-test (after loading / writing reference);
@@ -430,31 +425,66 @@ with namespace \, like [zexy/wrap].;
 #X connect 4 0 2 0;
 #X connect 4 0 2 1;
 #X restore 276 63 pd listen;
+#N canvas 405 322 429 358 prepend-path 0;
+#X obj 21 13 inlet;
+#X obj 48 131 ggee/getdir 2;
+#X obj 48 104 t b a;
+#X obj 21 283 spigot 1;
+#X msg 66 235 0;
+#X obj 21 45 t a a;
+#X obj 21 169 pack s s;
+#X msg 21 200 \$1/\$2;
+#X msg 102 235 1;
+#X obj 102 266 pipe 100;
+#X obj 21 314 outlet;
+#X text 76 11 Try to prepend absolute path of the abstraction's parent.
+If [ggee/getdir] is not present \, the path is relative to the abstraction.
+;
+#X msg 21 75 .;
+#X connect 0 0 5 0;
+#X connect 1 0 6 0;
+#X connect 2 0 1 0;
+#X connect 2 1 6 1;
+#X connect 3 0 4 0;
+#X connect 3 0 8 0;
+#X connect 3 0 10 0;
+#X connect 4 0 3 1;
+#X connect 5 0 12 0;
+#X connect 5 1 2 0;
+#X connect 6 0 7 0;
+#X connect 7 0 3 0;
+#X connect 8 0 9 0;
+#X connect 9 0 3 1;
+#X connect 12 0 6 0;
+#X restore 48 105 pd prepend-path;
+#X text 68 13 reference name + delay;
+#X obj 64 132 s \$0-refpath;
 #X connect 1 0 0 0;
-#X connect 2 0 18 0;
+#X connect 2 0 16 0;
 #X connect 3 0 4 0;
 #X connect 4 0 5 0;
-#X connect 5 0 19 0;
+#X connect 5 0 17 0;
 #X connect 7 0 6 0;
-#X connect 18 0 36 0;
-#X connect 18 1 17 0;
-#X connect 18 1 34 0;
-#X connect 18 1 35 0;
-#X connect 22 0 52 0;
-#X connect 24 0 9 0;
-#X connect 27 0 2 0;
-#X connect 30 0 32 0;
-#X connect 36 0 3 1;
-#X connect 36 0 29 0;
-#X connect 37 0 3 0;
-#X connect 37 0 57 0;
-#X connect 38 0 40 0;
-#X connect 40 0 24 0;
-#X connect 40 0 50 0;
-#X connect 40 0 8 0;
-#X connect 40 1 36 1;
-#X connect 40 1 46 0;
-#X connect 41 0 31 0;
-#X connect 42 0 33 0;
-#X connect 52 0 54 0;
+#X connect 16 0 34 0;
+#X connect 16 1 15 0;
+#X connect 16 1 32 0;
+#X connect 16 1 33 0;
+#X connect 20 0 50 0;
+#X connect 22 0 8 0;
+#X connect 22 0 56 0;
+#X connect 25 0 2 0;
+#X connect 28 0 30 0;
+#X connect 34 0 3 1;
+#X connect 34 0 27 0;
+#X connect 35 0 3 0;
+#X connect 35 0 55 0;
+#X connect 36 0 38 0;
+#X connect 38 0 22 0;
+#X connect 38 1 34 1;
+#X connect 38 1 44 0;
+#X connect 39 0 29 0;
+#X connect 40 0 31 0;
+#X connect 50 0 52 0;
+#X connect 56 0 58 0;
+#X connect 56 0 48 0;
 #X coords 0 -1 1 1 650 250 2 30 250;