s4 dns: Implement RFC-compatible update prescan
[Samba/gebeck_regimport.git] / lib / ccan / tally / test / run-mode.c
blobcd2f23044367b894d9a30a8f0ed76c3f9c19a46a
1 #include <ccan/tally/tally.c>
2 #include <ccan/tap/tap.h>
4 int main(void)
6 int i;
7 struct tally *tally = tally_new(100);
8 ssize_t min, max, mode;
9 size_t err;
11 max = (ssize_t)~(1ULL << (sizeof(max)*CHAR_BIT - 1));
12 min = (ssize_t)(1ULL << (sizeof(max)*CHAR_BIT - 1));
14 plan_tests(100 + 50 + 100 + 100 + 10);
15 /* Simple mode test: should always be around 0 (we add that twice). */
16 for (i = 0; i < 100; i++) {
17 tally_add(tally, i);
18 tally_add(tally, -i);
19 mode = tally_approx_mode(tally, &err);
20 if (i < 50)
21 ok1(err == 0);
22 ok1(mode - (ssize_t)err <= 0 && mode + (ssize_t)err >= 0);
25 /* Works for big values too... */
26 for (i = 0; i < 100; i++) {
27 tally_add(tally, max - i);
28 tally_add(tally, min + 1 + i);
29 mode = tally_approx_mode(tally, &err);
30 ok1(mode - (ssize_t)err <= 0 && mode + (ssize_t)err >= 0);
32 free(tally);
34 tally = tally_new(10);
35 tally_add(tally, 0);
36 for (i = 0; i < 100; i++) {
37 tally_add(tally, i);
38 mode = tally_approx_mode(tally, &err);
39 if (i < 10)
40 ok1(err == 0);
41 ok1(mode - (ssize_t)err <= 0 && mode + (ssize_t)err >= 0);
44 free(tally);
45 return exit_status();