1 #include <tools/ccanlint/ccanlint.h>
2 #include <tools/tools.h>
3 #include <ccan/talloc/talloc.h>
4 #include <ccan/str/str.h>
17 /* Note: we already test safe_mode in run_tests.c */
18 static const char *can_run_vg(struct manifest *m)
20 unsigned int timeleft = default_timeout_ms;
21 char *output = run_command(m, &timeleft, "valgrind -q --error-exitcode=0 true");
24 return talloc_asprintf(m, "No valgrind support: %s", output);
28 struct run_tests_result {
29 struct list_node list;
30 struct ccan_file *file;
34 static void *do_run_tests_vg(struct manifest *m,
36 unsigned int *timeleft)
38 struct list_head *list = talloc(m, struct list_head);
39 struct run_tests_result *res;
44 run_tests_vg.total_score = 0;
46 list_for_each(&m->run_tests, i, list) {
47 run_tests_vg.total_score++;
48 cmdout = run_command(m, timeleft,
49 "valgrind -q --error-exitcode=100 %s",
52 res = talloc(list, struct run_tests_result);
54 res->output = talloc_steal(res, cmdout);
55 list_add_tail(list, &res->list);
59 list_for_each(&m->api_tests, i, list) {
60 run_tests_vg.total_score++;
61 cmdout = run_command(m, timeleft,
62 "valgrind -q --error-exitcode=100 %s",
65 res = talloc(list, struct run_tests_result);
67 res->output = talloc_steal(res, cmdout);
68 list_add_tail(list, &res->list);
72 if (list_empty(list)) {
80 static unsigned int score_run_tests_vg(struct manifest *m, void *check_result)
82 struct list_head *list = check_result;
83 struct run_tests_result *i;
84 unsigned int score = run_tests_vg.total_score;
86 list_for_each(list, i, list)
91 static const char *describe_run_tests_vg(struct manifest *m,
94 struct list_head *list = check_result;
95 char *descrip = talloc_strdup(check_result, "Running tests under valgrind failed:\n");
96 struct run_tests_result *i;
98 list_for_each(list, i, list)
99 descrip = talloc_asprintf_append(descrip, "Running %s:\n%s",
100 i->file->name, i->output);
104 /* Gcc's warn_unused_result is fascist bullshit. */
105 #define doesnt_matter()
107 static void run_under_debugger_vg(struct manifest *m, void *check_result)
109 struct list_head *list = check_result;
110 struct run_tests_result *first;
113 if (!ask("Should I run the first failing test under the debugger?"))
116 first = list_top(list, struct run_tests_result, list);
117 command = talloc_asprintf(m, "valgrind --db-attach=yes %s",
118 first->file->compiled);
123 struct ccanlint run_tests_vg = {
124 .key = "valgrind-tests",
125 .name = "Module's run and api tests succeed under valgrind",
126 .score = score_run_tests_vg,
128 .check = do_run_tests_vg,
129 .describe = describe_run_tests_vg,
130 .can_run = can_run_vg,
131 .handle = run_under_debugger_vg
134 REGISTER_TEST(run_tests_vg, &run_tests, NULL);