1 files changed, 83 insertions, 0 deletions
diff --git a/unittests/hist-unittest.pd b/unittests/hist-unittest.pd
new file mode 100644
index 0000000..c084707
--- /dev/null
+++ b/unittests/hist-unittest.pd
@@ -0,0 +1,83 @@
+#N canvas 90 37 722 560 10;
+#X obj 49 186 unit-test-frame;
+#X obj 49 58 loadbang;
+#X msg 426 64 clear;
+#X msg 49 90 hist 0;
+#X obj 370 6 cos;
+#X msg 306 64 absolute;
+#N canvas 628 152 504 542 list-drip 0;
+#X obj 68 94 t a a;
+#X obj 68 251 spigot;
+#X obj 101 159 bang;
+#X obj 101 185 1;
+#X obj 207 160 route bang;
+#X obj 170 160 bang;
+#X obj 170 186 0;
+#X obj 101 124 list split 2;
+#X obj 134 348 list split;
+#X obj 191 297 list length;
+#X obj 191 319 >> 1;
+#X obj 68 280 t a a a a;
+#X obj 68 439 list split;
+#X obj 125 391 list length;
+#X obj 125 416 >> 1;
+#X obj 41 29 inlet;
+#X obj 264 186 outlet;
+#X text 83 29 Copyright 2009 by Mathieu Bouchard;
+#X obj 41 63 t b a;
+#X obj 328 80 outlet;
+#X text 383 82 signal end of list;
+#X text 35 502 made compatible with [list-drip]: fbar 2009;
+#X connect 0 0 1 0;
+#X connect 0 1 7 0;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 1;
+#X connect 4 1 16 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 1;
+#X connect 7 0 2 0;
+#X connect 7 2 4 0;
+#X connect 7 2 5 0;
+#X connect 8 0 0 0;
+#X connect 9 0 10 0;
+#X connect 10 0 8 1;
+#X connect 11 0 12 0;
+#X connect 11 1 13 0;
+#X connect 11 2 8 0;
+#X connect 11 3 9 0;
+#X connect 12 1 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 1;
+#X connect 15 0 18 0;
+#X connect 18 0 19 0;
+#X connect 18 1 0 0;
+#X restore 370 125 pd list-drip;
+#X obj 370 -46 / 128;
+#X obj 370 36 abs;
+#X obj 370 -19 * 3.14159;
+#X text 116 -52 hist: histograms;
+#X text 116 -9 - value of first class;
+#X text 116 18 - number of classes;
+#X text 116 5 - value of last class;
+#X text 114 -24 arguments:;
+#X text 116 53 - array of samples in classes;
+#X text 114 38 output:;
+#X obj 370 64 pow 0.5;
+#X obj 370 98 smlib/hist 0 1 512;
+#X obj 370 151 / 8;
+#X connect 0 1 5 0;
+#X connect 0 2 7 0;
+#X connect 0 3 2 0;
+#X connect 1 0 3 0;
+#X connect 2 0 18 0;
+#X connect 3 0 0 0;
+#X connect 4 0 8 0;
+#X connect 5 0 18 0;
+#X connect 6 0 19 0;
+#X connect 7 0 9 0;
+#X connect 8 0 17 0;
+#X connect 9 0 4 0;
+#X connect 17 0 18 0;
+#X connect 18 0 6 0;
+#X connect 19 0 0 1;