tal: new module.
[ccan] / ccan / tal / test / run.c
1 #include <ccan/tal/tal.h>
2 #include <ccan/tal/tal.c>
3 #include <ccan/tap/tap.h>
4
5 int main(void)
6 {
7         char *parent, *c[4], *p;
8         int i, j;
9
10         plan_tests(10);
11
12         parent = tal(NULL, char);
13         ok1(parent);
14
15         for (i = 0; i < 4; i++)
16                 c[i] = tal(parent, char);
17
18         for (i = 0; i < 4; i++)
19                 ok1(tal_parent(c[i]) == parent);
20
21         /* Iteration test. */
22         i = 0;
23         for (p = tal_first(parent); p; p = tal_next(parent, p)) {
24                 *p = '1';
25                 i++;
26         }
27         ok1(i == 4);
28         ok1(*c[0] == '1');
29         ok1(*c[1] == '1');
30         ok1(*c[2] == '1');
31         ok1(*c[3] == '1');
32
33         /* Free parent. */
34         tal_free(parent);
35
36         parent = tal(NULL, char);
37
38         /* Test freeing in every order */
39         for (i = 0; i < 4; i++) {
40                 for (j = 0; j < 4; j++)
41                         c[j] = tal(parent, char);
42
43                 tal_free(c[i]);
44                 debug_tal(to_tal_hdr(parent));
45                 tal_free(c[(i+1) % 4]);
46                 debug_tal(to_tal_hdr(parent));
47                 tal_free(c[(i+2) % 4]);
48                 debug_tal(to_tal_hdr(parent));
49                 tal_free(c[(i+3) % 4]);
50                 debug_tal(to_tal_hdr(parent));
51         }
52         tal_free(parent);
53
54         return exit_status();
55 }