1 files changed, 90 insertions, 0 deletions
diff --git a/desiredata/extra/pureunity/main.pd b/desiredata/extra/pureunity/main.pd
new file mode 100644
index 00000000..fb8f27ee
--- /dev/null
+++ b/desiredata/extra/pureunity/main.pd
@@ -0,0 +1,90 @@
+#N canvas 732 0 490 486 10;
+#X obj 19 65 loadbang;
+#X obj 28 87 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 41 373 print;
+#N canvas 509 382 450 300 other 0;
+#X obj 20 38 2times symbol foo bar;
+#X obj 20 21 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 20 57 print;
+#X obj 20 81 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 20 117 print;
+#X obj 20 98 3times symbol foo bar baz;
+#X obj 20 141 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 20 177 print;
+#X obj 20 158 4times symbol foo bar baz fnord;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 3 0 5 0;
+#X connect 5 0 4 0;
+#X connect 6 0 8 0;
+#X connect 8 0 7 0;
+#X restore 345 56 pd other;
+#X obj 19 111 t b b b;
+#X obj 71 354 +;
+#X msg 121 354 0;
+#X msg 71 316 float \$1;
+#X obj 41 297 t a a;
+#X obj 96 354 t f;
+#X obj 19 346 f;
+#X obj 71 335 == 0;
+#X obj 19 392 print total_failures;
+#X obj 226 251 sel 0;
+#X obj 234 312 bng 100 250 50 0 empty empty empty 0 -6 0 8 -258699
+-1 -262144;
+#X msg 234 293 color \$1 \, bang;
+#X msg 226 270 16;
+#X msg 256 270 13;
+#X text 24 437 This does not count errors not reported by the tests
+;
+#X text 25 464 Consult the console for more information;
+#X obj 4 7 cnv 15 500 40 empty empty PureUnity 8 20 1 18 -34345 -68160
+0;
+#X text 130 7 TM;
+#X obj 15 35 cnv 1 480 1 empty empty Copyright_2006-2007_by_Mathieu_Bouchard
+150 -5 1 9 -258699 -262144 0;
+#X text 25 450 Such as Syntax Error \, Class Not Found \, etc.;
+#X text 297 253 Green: PASS;
+#X text 311 265 Red: FAIL;
+#X obj 85 150 glue-test;
+#X obj 41 131 t b b b;
+#X text 6 48 from the bit rot prevention department;
+#X obj 284 168 print;
+#X symbolatom 284 133 10 0 0 0 - - -;
+#X msg 284 114 symbol field;
+#X obj 63 169 arith-test f;
+#X obj 41 188 comparators-test f;
+#X text 209 96 type in the name of an interface;
+#X obj 284 149 protocols-tree;
+#X connect 0 0 4 0;
+#X connect 1 0 4 0;
+#X connect 4 0 10 0;
+#X connect 4 1 27 0;
+#X connect 4 2 6 0;
+#X connect 5 0 9 0;
+#X connect 5 0 10 1;
+#X connect 6 0 5 1;
+#X connect 7 0 11 0;
+#X connect 8 0 2 0;
+#X connect 8 1 7 0;
+#X connect 9 0 5 1;
+#X connect 10 0 12 0;
+#X connect 10 0 13 0;
+#X connect 11 0 5 0;
+#X connect 13 0 16 0;
+#X connect 13 1 17 0;
+#X connect 15 0 14 0;
+#X connect 16 0 15 0;
+#X connect 17 0 15 0;
+#X connect 26 0 8 0;
+#X connect 27 0 33 0;
+#X connect 27 1 32 0;
+#X connect 27 2 26 0;
+#X connect 30 0 35 0;
+#X connect 31 0 30 0;
+#X connect 32 0 8 0;
+#X connect 33 0 8 0;
+#X connect 35 0 29 0;