summaryrefslogtreecommitdiff
path: root/lib/ccan/tally/test/run-histogram.c
blob: a9894ecd8539eb3113241a2dfa171bf4bd6a09d2 (plain)
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
#include <ccan/tally/tally.c>
#include <ccan/tap/tap.h>

int main(void)
{
	int i;
	struct tally *tally;
	char *graph, *p;

	plan_tests(100 + 1 + 10 + 1 + 100 + 1 + 10 + 1 + 10 * 2 + 1);

	/* Uniform distribution, easy. */
	tally = tally_new(100);
	for (i = 0; i < 100; i++)
		tally_add(tally, i);

	/* 1:1 height. */
	graph = p = tally_histogram(tally, 20, 100);
	for (i = 0; i < 100; i++) {
		char *eol = strchr(p, '\n');

		/* We expect it filled all way to the end. */
		ok1(eol - p == 20);
		p = eol + 1;
	}
	ok1(!*p);
	free(graph);

	/* Reduced height. */
	graph = p = tally_histogram(tally, 20, 10);
	for (i = 0; i < 10; i++) {
		char *eol = strchr(p, '\n');

		/* First once can be truncated (bucket aliasing) */
		if (eol) {
			ok1(eol - p == 20 || (eol - p < 20 && i == 0));
		} else
			/* We should, at worst, half-fill graph */
			ok1(i > 5);

		if (eol)
			p = eol + 1;
	}
	ok1(!*p);
	free(graph);

	/* Enlarged height (gets capped). */
	graph = p = tally_histogram(tally, 20, 1000);
	for (i = 0; i < 100; i++) {
		char *eol = strchr(p, '\n');
		/* We expect it filled all way to the end. */
		ok1(eol - p == 20);
		p = eol + 1;
	}
	ok1(!*p);
	free(graph);
	free(tally);

	/* Distinctive increasing pattern. */
	tally = tally_new(10);
	for (i = 0; i < 10; i++) {
		unsigned int j;
		for (j = 0; j <= i; j++)
			tally_add(tally, i);
	}

	graph = p = tally_histogram(tally, 10, 10);
	for (i = 0; i < 10; i++) {
		char *eol = strchr(p, '\n');
		ok1(eol - p == 10 - i);
		p = eol + 1;
	}
	ok1(!*p);
	diag("Here's the pretty: %s", graph);
	free(graph);
	free(tally);

	/* With negative values. */
	tally = tally_new(10);
	for (i = 0; i < 10; i++) {
		tally_add(tally, i - 5);
	}

	graph = p = tally_histogram(tally, 10, 10);
	for (i = 0; i < 10; i++) {
		char *eol = strchr(p, '\n');

		/* We expect it filled all way to the end. */
		ok1(eol - p == 10);

		/* Check min/max labels. */
		if (i == 0)
			ok1(strncmp(p, "4*", 2) == 0);
		else if (i == 9)
			ok1(strncmp(p, "-5*", 3) == 0);
		else if (i == 4)
			ok1(p[0] == '+'); /* 0 marker */
		else
			ok1(p[0] == '|');
		p = eol + 1;
	}
	ok1(!*p);
	diag("Here's the pretty: %s", graph);
	free(graph);
	free(tally);

	return exit_status();
}