bb614ae2fa070e09af6da909cc61b456ec2693c2
[ccan] / ccan / tal / str / test / run-string.c
1 #include <ccan/tal/str/str.h>
2 #include <ccan/tal/str/str.c>
3 #include <ccan/tap/tap.h>
4
5 int main(void)
6 {
7         char *parent, *c;
8
9         plan_tests(27);
10
11         parent = tal(NULL, char);
12         ok1(parent);
13
14         c = tal_strdup(parent, "hello");
15         ok1(strcmp(c, "hello") == 0);
16         ok1(tal_parent(c) == parent);
17         tal_free(c);
18
19         c = tal_strndup(parent, "hello", 3);
20         ok1(strcmp(c, "hel") == 0);
21         ok1(tal_parent(c) == parent);
22         tal_free(c);
23
24         c = tal_typechk_(parent, char *);
25         c = tal_dup(parent, char, "hello", 6, 0);
26         ok1(strcmp(c, "hello") == 0);
27         ok1(strcmp(tal_name(c), "char[]") == 0);
28         ok1(tal_parent(c) == parent);
29         tal_free(c);
30
31         /* Now with an extra byte. */
32         c = tal_dup(parent, char, "hello", 6, 1);
33         ok1(strcmp(c, "hello") == 0);
34         ok1(strcmp(tal_name(c), "char[]") == 0);
35         ok1(tal_parent(c) == parent);
36         strcat(c, "x");
37         tal_free(c);
38
39         c = tal_fmt(parent, "hello %s", "there");
40         ok1(strcmp(c, "hello there") == 0);
41         ok1(tal_parent(c) == parent);
42         tal_free(c);
43
44         c = tal_strcat(parent, "hello ", "there");
45         ok1(strcmp(c, "hello there") == 0);
46         ok1(tal_parent(c) == parent);
47
48         /* Make sure take works correctly. */
49         c = tal_strcat(parent, take(c), " again");
50         ok1(strcmp(c, "hello there again") == 0);
51         ok1(tal_parent(c) == parent);
52         ok1(tal_first(parent) == c && !tal_next(parent, c));
53
54         c = tal_strcat(parent, "And ", take(c));
55         ok1(strcmp(c, "And hello there again") == 0);
56         ok1(tal_parent(c) == parent);
57         ok1(tal_first(parent) == c && !tal_next(parent, c));
58
59         /* NULL pass through works... */
60         c = tal_strcat(parent, take(NULL), take(c));
61         ok1(!c);
62         ok1(!tal_first(parent));
63
64         c = tal_strcat(parent, take(tal_strdup(parent, "hi")),
65                        take(NULL));
66         ok1(!c);
67         ok1(!tal_first(parent));
68
69         c = tal_strcat(parent, take(NULL), take(NULL));
70         ok1(!c);
71         ok1(!tal_first(parent));
72
73         tal_free(parent);
74
75         return exit_status();
76 }