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(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 }