grab_file: don't use str_talloc for tests.
[ccan] / ccan / str_talloc / test / run-strreg.c
1 #include <ccan/str_talloc/str_talloc.h>
2 #include <ccan/str_talloc/str_talloc.c>
3 #include <ccan/tap/tap.h>
4
5 int main(int argc, char *argv[])
6 {
7         void *ctx = talloc_init("toplevel");
8         unsigned int top_blocks = talloc_total_blocks(ctx);
9         char *a, *b;
10         /* If it accesses this, it will crash. */
11         char **invalid = (char **)1L;
12
13         plan_tests(25);
14         /* Simple matching. */
15         ok1(strreg(ctx, "hello world!", "hello") == true);
16         ok1(strreg(ctx, "hello world!", "hi") == false);
17
18         /* No parentheses means we don't use any extra args. */
19         ok1(strreg(ctx, "hello world!", "hello", invalid) == true);
20         ok1(strreg(ctx, "hello world!", "hi", invalid) == false);
21
22         ok1(strreg(ctx, "hello world!", "[a-z]+", invalid) == true);
23         ok1(strreg(ctx, "hello world!", "([a-z]+)", &a, invalid) == true);
24         /* Found string */
25         ok1(streq(a, "hello"));
26         /* Allocated off ctx */
27         ok1(talloc_find_parent_byname(a, "toplevel") == ctx);
28         talloc_free(a);
29
30         ok1(strreg(ctx, "hello world!", "([a-z]*) ([a-z]+)",
31                    &a, &b, invalid) == true);
32         ok1(streq(a, "hello"));
33         ok1(streq(b, "world"));
34         ok1(talloc_find_parent_byname(a, "toplevel") == ctx);
35         ok1(talloc_find_parent_byname(b, "toplevel") == ctx);
36         talloc_free(a);
37         talloc_free(b);
38
39         /* * after parentheses returns last match. */
40         ok1(strreg(ctx, "hello world!", "([a-z])* ([a-z]+)",
41                    &a, &b, invalid) == true);
42         ok1(streq(a, "o"));
43         ok1(streq(b, "world"));
44         talloc_free(a);
45         talloc_free(b);
46
47         /* Nested parentheses are ordered by open brace. */
48         ok1(strreg(ctx, "hello world!", "(([a-z]*) world)",
49                    &a, &b, invalid) == true);
50         ok1(streq(a, "hello world"));
51         ok1(streq(b, "hello"));
52         talloc_free(a);
53         talloc_free(b);
54
55         /* Nested parentheses are ordered by open brace. */
56         ok1(strreg(ctx, "hello world!", "(([a-z]*) world)",
57                    &a, &b, invalid) == true);
58         ok1(streq(a, "hello world"));
59         ok1(streq(b, "hello"));
60         talloc_free(a);
61         talloc_free(b);
62
63         /* NULL means we're not interested. */
64         ok1(strreg(ctx, "hello world!", "((hello|goodbye) world)",
65                    &a, NULL, invalid) == true);
66         ok1(streq(a, "hello world"));
67         talloc_free(a);
68
69         /* No leaks! */
70         ok1(talloc_total_blocks(ctx) == top_blocks);
71         talloc_free(ctx);
72         talloc_disable_null_tracking();
73
74         return exit_status();
75 }