git.ozlabs.org Git - ccan/blob - 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(12);
  11
  12         parent = tal(NULL, char);
  13         ok1(parent);
  14         ok1(tal_parent(parent) == NULL);
  15         ok1(tal_parent(NULL) == NULL);
  16
  17         for (i = 0; i < 4; i++)
  18                 c[i] = tal(parent, char);
  19
  20         for (i = 0; i < 4; i++)
  21                 ok1(tal_parent(c[i]) == parent);
  22
  23         /* Iteration test. */
  24         i = 0;
  25         for (p = tal_first(parent); p; p = tal_next(parent, p)) {
  26                 *p = '1';
  27                 i++;
  28         }
  29         ok1(i == 4);
  30         ok1(*c[0] == '1');
  31         ok1(*c[1] == '1');
  32         ok1(*c[2] == '1');
  33         ok1(*c[3] == '1');
  34
  35         /* Free parent. */
  36         tal_free(parent);
  37
  38         parent = tal(NULL, char);
  39
  40         /* Test freeing in every order */
  41         for (i = 0; i < 4; i++) {
  42                 for (j = 0; j < 4; j++)
  43                         c[j] = tal(parent, char);
  44
  45                 tal_free(c[i]);
  46                 debug_tal(to_tal_hdr(parent));
  47                 tal_free(c[(i+1) % 4]);
  48                 debug_tal(to_tal_hdr(parent));
  49                 tal_free(c[(i+2) % 4]);
  50                 debug_tal(to_tal_hdr(parent));
  51                 tal_free(c[(i+3) % 4]);
  52                 debug_tal(to_tal_hdr(parent));
  53         }
  54         tal_free(parent);
  55
  56         return exit_status();
  57 }