3172e3ad6e150478812c6b9e33434929ee147167
[ccan] / ccan / tdb2 / test / failtest_helper.c
1 #include "failtest_helper.h"
2 #include "logging.h"
3 #include <string.h>
4 #include <ccan/tap/tap.h>
5
6 bool failtest_suppress = false;
7
8 /* FIXME: From ccan/str */
9 static inline bool strends(const char *str, const char *postfix)
10 {
11         if (strlen(str) < strlen(postfix))
12                 return false;
13
14         return !strcmp(str + strlen(str) - strlen(postfix), postfix);
15 }
16
17 bool failmatch(const struct failtest_call *call,
18                const char *file, int line, enum failtest_call_type type)
19 {
20         return call->type == type
21                 && call->line == line
22                 && ((strcmp(call->file, file) == 0)
23                     || (strends(call->file, file)
24                         && (call->file[strlen(call->file) - strlen(file) - 1]
25                             == '/')));
26 }
27
28 static bool is_nonblocking_lock(const struct failtest_call *call)
29 {
30         return call->type == FAILTEST_FCNTL && call->u.fcntl.cmd == F_SETLK;
31 }
32
33 static bool is_unlock(const struct failtest_call *call)
34 {
35         return call->type == FAILTEST_FCNTL
36                 && call->u.fcntl.arg.fl.l_type == F_UNLCK;
37 }
38
39 bool exit_check_log(struct tlist_calls *history)
40 {
41         const struct failtest_call *i;
42
43         tlist_for_each(history, i, list) {
44                 if (!i->fail)
45                         continue;
46                 /* Failing the /dev/urandom open doesn't count: we fall back. */
47                 if (failmatch(i, URANDOM_OPEN))
48                         continue;
49
50                 /* Similarly with read fail. */
51                 if (failmatch(i, URANDOM_READ))
52                         continue;
53
54                 /* Initial allocation of tdb doesn't log. */
55                 if (failmatch(i, INITIAL_TDB_MALLOC))
56                         continue;
57
58                 /* We don't block "failures" on non-blocking locks. */
59                 if (is_nonblocking_lock(i))
60                         continue;
61
62                 if (!tap_log_messages)
63                         diag("We didn't log for %s:%u", i->file, i->line);
64                 return tap_log_messages != 0;
65         }
66         return true;
67 }
68
69 /* Some places we soldier on despite errors: only fail them once. */
70 enum failtest_result
71 block_repeat_failures(struct tlist_calls *history)
72 {
73         const struct failtest_call *last;
74
75         last = tlist_tail(history, struct failtest_call, list);
76
77         if (failtest_suppress)
78                 return FAIL_DONT_FAIL;
79
80         if (failmatch(last, INITIAL_TDB_MALLOC)
81             || failmatch(last, URANDOM_OPEN)
82             || failmatch(last, URANDOM_READ)) {
83                 return FAIL_PROBE;
84         }
85
86         /* We handle mmap failing, by falling back to read/write, so
87          * don't try all possible paths. */
88         if (last->type == FAILTEST_MMAP)
89                 return FAIL_PROBE;
90
91         /* Unlock or non-blocking lock is fail-once. */
92         if (is_unlock(last) || is_nonblocking_lock(last))
93                 return FAIL_PROBE;
94
95         return FAIL_OK;
96 }