502 lines
10 KiB
C
502 lines
10 KiB
C
/* this tests tdb by doing lots of ops from several simultaneous
|
|
writers - that stresses the locking code.
|
|
*/
|
|
|
|
#define _GNU_SOURCE
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
#include <string.h>
|
|
#include <signal.h>
|
|
#include <unistd.h>
|
|
#include <sys/types.h>
|
|
#include <sys/wait.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
#include <time.h>
|
|
|
|
#include <tdb.h>
|
|
|
|
#ifdef HAVE_GETOPT_H
|
|
#include <getopt.h>
|
|
#endif
|
|
|
|
|
|
#define REOPEN_PROB 30
|
|
#define DELETE_PROB 8
|
|
#define STORE_PROB 4
|
|
#define APPEND_PROB 6
|
|
#define TRANSACTION_PROB 10
|
|
#define TRANSACTION_PREPARE_PROB 2
|
|
#define LOCKSTORE_PROB 5
|
|
#define TRAVERSE_PROB 20
|
|
#define TRAVERSE_READ_PROB 20
|
|
#define CULL_PROB 100
|
|
#define KEYLEN 3
|
|
#define DATALEN 100
|
|
|
|
static struct tdb_context *db;
|
|
static int in_transaction;
|
|
static int error_count;
|
|
static int always_transaction = 0;
|
|
static int hash_size = 2;
|
|
static int loopnum;
|
|
static int count_pipe;
|
|
static bool mutex = false;
|
|
static struct tdb_logging_context log_ctx;
|
|
|
|
#ifdef PRINTF_ATTRIBUTE
|
|
static void tdb_log(struct tdb_context *tdb, enum tdb_debug_level level, const char *format, ...) PRINTF_ATTRIBUTE(3,4);
|
|
#endif
|
|
static void tdb_log(struct tdb_context *tdb, enum tdb_debug_level level, const char *format, ...)
|
|
{
|
|
va_list ap;
|
|
|
|
/* trace level messages do not indicate an error */
|
|
if (level != TDB_DEBUG_TRACE) {
|
|
error_count++;
|
|
}
|
|
|
|
va_start(ap, format);
|
|
vfprintf(stdout, format, ap);
|
|
va_end(ap);
|
|
fflush(stdout);
|
|
#if 0
|
|
if (level != TDB_DEBUG_TRACE) {
|
|
char *ptr;
|
|
signal(SIGUSR1, SIG_IGN);
|
|
asprintf(&ptr,"xterm -e gdb /proc/%d/exe %d", getpid(), getpid());
|
|
system(ptr);
|
|
free(ptr);
|
|
}
|
|
#endif
|
|
}
|
|
|
|
static void fatal(const char *why)
|
|
{
|
|
perror(why);
|
|
error_count++;
|
|
}
|
|
|
|
static char *randbuf(int len)
|
|
{
|
|
char *buf;
|
|
int i;
|
|
buf = (char *)malloc(len+1);
|
|
|
|
for (i=0;i<len;i++) {
|
|
buf[i] = 'a' + (rand() % 26);
|
|
}
|
|
buf[i] = 0;
|
|
return buf;
|
|
}
|
|
|
|
static int cull_traverse(struct tdb_context *tdb, TDB_DATA key, TDB_DATA dbuf,
|
|
void *state)
|
|
{
|
|
#if CULL_PROB
|
|
if (random() % CULL_PROB == 0) {
|
|
tdb_delete(tdb, key);
|
|
}
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
static void addrec_db(void)
|
|
{
|
|
int klen, dlen;
|
|
char *k, *d;
|
|
TDB_DATA key, data;
|
|
|
|
klen = 1 + (rand() % KEYLEN);
|
|
dlen = 1 + (rand() % DATALEN);
|
|
|
|
k = randbuf(klen);
|
|
d = randbuf(dlen);
|
|
|
|
key.dptr = (unsigned char *)k;
|
|
key.dsize = klen+1;
|
|
|
|
data.dptr = (unsigned char *)d;
|
|
data.dsize = dlen+1;
|
|
|
|
#if REOPEN_PROB
|
|
if (in_transaction == 0 && random() % REOPEN_PROB == 0) {
|
|
tdb_reopen_all(0);
|
|
goto next;
|
|
}
|
|
#endif
|
|
|
|
#if TRANSACTION_PROB
|
|
if (in_transaction == 0 &&
|
|
(always_transaction || random() % TRANSACTION_PROB == 0)) {
|
|
if (tdb_transaction_start(db) != 0) {
|
|
fatal("tdb_transaction_start failed");
|
|
}
|
|
in_transaction++;
|
|
goto next;
|
|
}
|
|
if (in_transaction && random() % TRANSACTION_PROB == 0) {
|
|
if (random() % TRANSACTION_PREPARE_PROB == 0) {
|
|
if (tdb_transaction_prepare_commit(db) != 0) {
|
|
fatal("tdb_transaction_prepare_commit failed");
|
|
}
|
|
}
|
|
if (tdb_transaction_commit(db) != 0) {
|
|
fatal("tdb_transaction_commit failed");
|
|
}
|
|
in_transaction--;
|
|
goto next;
|
|
}
|
|
if (in_transaction && random() % TRANSACTION_PROB == 0) {
|
|
if (tdb_transaction_cancel(db) != 0) {
|
|
fatal("tdb_transaction_cancel failed");
|
|
}
|
|
in_transaction--;
|
|
goto next;
|
|
}
|
|
#endif
|
|
|
|
#if DELETE_PROB
|
|
if (random() % DELETE_PROB == 0) {
|
|
tdb_delete(db, key);
|
|
goto next;
|
|
}
|
|
#endif
|
|
|
|
#if STORE_PROB
|
|
if (random() % STORE_PROB == 0) {
|
|
if (tdb_store(db, key, data, TDB_REPLACE) != 0) {
|
|
fatal("tdb_store failed");
|
|
}
|
|
goto next;
|
|
}
|
|
#endif
|
|
|
|
#if APPEND_PROB
|
|
if (random() % APPEND_PROB == 0) {
|
|
if (tdb_append(db, key, data) != 0) {
|
|
fatal("tdb_append failed");
|
|
}
|
|
goto next;
|
|
}
|
|
#endif
|
|
|
|
#if LOCKSTORE_PROB
|
|
if (random() % LOCKSTORE_PROB == 0) {
|
|
tdb_chainlock(db, key);
|
|
data = tdb_fetch(db, key);
|
|
if (tdb_store(db, key, data, TDB_REPLACE) != 0) {
|
|
fatal("tdb_store failed");
|
|
}
|
|
if (data.dptr) free(data.dptr);
|
|
tdb_chainunlock(db, key);
|
|
goto next;
|
|
}
|
|
#endif
|
|
|
|
#if TRAVERSE_PROB
|
|
if (random() % TRAVERSE_PROB == 0) {
|
|
tdb_traverse(db, cull_traverse, NULL);
|
|
goto next;
|
|
}
|
|
#endif
|
|
|
|
#if TRAVERSE_READ_PROB
|
|
if (random() % TRAVERSE_READ_PROB == 0) {
|
|
tdb_traverse_read(db, NULL, NULL);
|
|
goto next;
|
|
}
|
|
#endif
|
|
|
|
data = tdb_fetch(db, key);
|
|
if (data.dptr) free(data.dptr);
|
|
|
|
next:
|
|
free(k);
|
|
free(d);
|
|
}
|
|
|
|
static int traverse_fn(struct tdb_context *tdb, TDB_DATA key, TDB_DATA dbuf,
|
|
void *state)
|
|
{
|
|
tdb_delete(tdb, key);
|
|
return 0;
|
|
}
|
|
|
|
static void usage(void)
|
|
{
|
|
printf("Usage: tdbtorture [-t] [-k] [-m] [-n NUM_PROCS] [-l NUM_LOOPS] [-s SEED] [-H HASH_SIZE]\n");
|
|
exit(0);
|
|
}
|
|
|
|
static void send_count_and_suicide(int sig)
|
|
{
|
|
ssize_t ret;
|
|
|
|
/* This ensures our successor can continue where we left off. */
|
|
do {
|
|
ret = write(count_pipe, &loopnum, sizeof(loopnum));
|
|
} while (ret == -1 && errno == EINTR);
|
|
/* This gives a unique signature. */
|
|
kill(getpid(), SIGUSR2);
|
|
}
|
|
|
|
static int run_child(const char *filename, int i, int seed, unsigned num_loops, unsigned start)
|
|
{
|
|
int tdb_flags = TDB_DEFAULT|TDB_CLEAR_IF_FIRST|TDB_INCOMPATIBLE_HASH;
|
|
|
|
if (mutex) {
|
|
tdb_flags |= TDB_MUTEX_LOCKING;
|
|
}
|
|
|
|
db = tdb_open_ex(filename, hash_size, tdb_flags,
|
|
O_RDWR | O_CREAT, 0600, &log_ctx, NULL);
|
|
if (!db) {
|
|
fatal("db open failed");
|
|
}
|
|
|
|
srand(seed + i);
|
|
srandom(seed + i);
|
|
|
|
/* Set global, then we're ready to handle being killed. */
|
|
loopnum = start;
|
|
signal(SIGUSR1, send_count_and_suicide);
|
|
|
|
for (;loopnum<num_loops && error_count == 0;loopnum++) {
|
|
addrec_db();
|
|
}
|
|
|
|
if (error_count == 0) {
|
|
tdb_traverse_read(db, NULL, NULL);
|
|
if (always_transaction) {
|
|
while (in_transaction) {
|
|
tdb_transaction_cancel(db);
|
|
in_transaction--;
|
|
}
|
|
if (tdb_transaction_start(db) != 0)
|
|
fatal("tdb_transaction_start failed");
|
|
}
|
|
tdb_traverse(db, traverse_fn, NULL);
|
|
tdb_traverse(db, traverse_fn, NULL);
|
|
if (always_transaction) {
|
|
if (tdb_transaction_commit(db) != 0)
|
|
fatal("tdb_transaction_commit failed");
|
|
}
|
|
}
|
|
|
|
tdb_close(db);
|
|
|
|
return (error_count < 100 ? error_count : 100);
|
|
}
|
|
|
|
static char *test_path(const char *filename)
|
|
{
|
|
const char *prefix = getenv("TEST_DATA_PREFIX");
|
|
|
|
if (prefix) {
|
|
char *path = NULL;
|
|
int ret;
|
|
|
|
ret = asprintf(&path, "%s/%s", prefix, filename);
|
|
if (ret == -1) {
|
|
return NULL;
|
|
}
|
|
return path;
|
|
}
|
|
|
|
return strdup(filename);
|
|
}
|
|
|
|
int main(int argc, char * const *argv)
|
|
{
|
|
int i, seed = -1;
|
|
int num_loops = 5000;
|
|
int num_procs = 3;
|
|
int c, pfds[2];
|
|
extern char *optarg;
|
|
pid_t *pids;
|
|
int kill_random = 0;
|
|
int *done;
|
|
char *test_tdb;
|
|
|
|
log_ctx.log_fn = tdb_log;
|
|
|
|
while ((c = getopt(argc, argv, "n:l:s:H:thkm")) != -1) {
|
|
switch (c) {
|
|
case 'n':
|
|
num_procs = strtol(optarg, NULL, 0);
|
|
break;
|
|
case 'l':
|
|
num_loops = strtol(optarg, NULL, 0);
|
|
break;
|
|
case 'H':
|
|
hash_size = strtol(optarg, NULL, 0);
|
|
break;
|
|
case 's':
|
|
seed = strtol(optarg, NULL, 0);
|
|
break;
|
|
case 't':
|
|
always_transaction = 1;
|
|
break;
|
|
case 'k':
|
|
kill_random = 1;
|
|
break;
|
|
case 'm':
|
|
mutex = tdb_runtime_check_for_robust_mutexes();
|
|
if (!mutex) {
|
|
printf("tdb_runtime_check_for_robust_mutexes() returned false\n");
|
|
exit(1);
|
|
}
|
|
break;
|
|
default:
|
|
usage();
|
|
}
|
|
}
|
|
|
|
test_tdb = test_path("torture.tdb");
|
|
|
|
unlink(test_tdb);
|
|
|
|
if (seed == -1) {
|
|
seed = (getpid() + time(NULL)) & 0x7FFFFFFF;
|
|
}
|
|
|
|
printf("Testing with %d processes, %d loops, %d hash_size, seed=%d%s\n",
|
|
num_procs, num_loops, hash_size, seed,
|
|
(always_transaction ? " (all within transactions)" : ""));
|
|
|
|
if (num_procs == 1 && !kill_random) {
|
|
/* Don't fork for this case, makes debugging easier. */
|
|
error_count = run_child(test_tdb, 0, seed, num_loops, 0);
|
|
goto done;
|
|
}
|
|
|
|
pids = (pid_t *)calloc(sizeof(pid_t), num_procs);
|
|
if (pids == NULL) {
|
|
perror("Unable to allocate memory for pids");
|
|
exit(1);
|
|
}
|
|
done = (int *)calloc(sizeof(int), num_procs);
|
|
if (done == NULL) {
|
|
perror("Unable to allocate memory for done");
|
|
exit(1);
|
|
}
|
|
|
|
if (pipe(pfds) != 0) {
|
|
perror("Creating pipe");
|
|
exit(1);
|
|
}
|
|
count_pipe = pfds[1];
|
|
|
|
for (i=0;i<num_procs;i++) {
|
|
if ((pids[i]=fork()) == 0) {
|
|
close(pfds[0]);
|
|
exit(run_child(test_tdb, i, seed, num_loops, 0));
|
|
}
|
|
}
|
|
|
|
while (num_procs) {
|
|
int status, j;
|
|
pid_t pid;
|
|
|
|
if (error_count != 0) {
|
|
/* try and stop the test on any failure */
|
|
for (j=0;j<num_procs;j++) {
|
|
if (pids[j] != 0) {
|
|
kill(pids[j], SIGTERM);
|
|
}
|
|
}
|
|
}
|
|
|
|
pid = waitpid(-1, &status, kill_random ? WNOHANG : 0);
|
|
if (pid == 0) {
|
|
struct timeval tv;
|
|
|
|
/* Sleep for 1/10 second. */
|
|
tv.tv_sec = 0;
|
|
tv.tv_usec = 100000;
|
|
select(0, NULL, NULL, NULL, &tv);
|
|
|
|
/* Kill someone. */
|
|
kill(pids[random() % num_procs], SIGUSR1);
|
|
continue;
|
|
}
|
|
|
|
if (pid == -1) {
|
|
perror("failed to wait for child\n");
|
|
exit(1);
|
|
}
|
|
|
|
for (j=0;j<num_procs;j++) {
|
|
if (pids[j] == pid) break;
|
|
}
|
|
if (j == num_procs) {
|
|
printf("unknown child %d exited!?\n", (int)pid);
|
|
exit(1);
|
|
}
|
|
if (WIFSIGNALED(status)) {
|
|
if (WTERMSIG(status) == SIGUSR2
|
|
|| WTERMSIG(status) == SIGUSR1) {
|
|
/* SIGUSR2 means they wrote to pipe. */
|
|
if (WTERMSIG(status) == SIGUSR2) {
|
|
ssize_t ret;
|
|
|
|
do {
|
|
ret = read(pfds[0], &done[j],
|
|
sizeof(done[j]));
|
|
} while (ret == -1 && errno == EINTR);
|
|
}
|
|
pids[j] = fork();
|
|
if (pids[j] == 0)
|
|
exit(run_child(test_tdb, j, seed,
|
|
num_loops, done[j]));
|
|
printf("Restarting child %i for %u-%u\n",
|
|
j, done[j], num_loops);
|
|
continue;
|
|
}
|
|
printf("child %d exited with signal %d\n",
|
|
(int)pid, WTERMSIG(status));
|
|
error_count++;
|
|
} else {
|
|
if (WEXITSTATUS(status) != 0) {
|
|
printf("child %d exited with status %d\n",
|
|
(int)pid, WEXITSTATUS(status));
|
|
error_count++;
|
|
}
|
|
}
|
|
memmove(&pids[j], &pids[j+1],
|
|
(num_procs - j - 1)*sizeof(pids[0]));
|
|
num_procs--;
|
|
}
|
|
|
|
free(pids);
|
|
|
|
done:
|
|
if (error_count == 0) {
|
|
int tdb_flags = TDB_DEFAULT;
|
|
|
|
if (mutex) {
|
|
tdb_flags |= TDB_NOLOCK;
|
|
}
|
|
|
|
db = tdb_open_ex(test_tdb, hash_size, tdb_flags,
|
|
O_RDWR, 0, &log_ctx, NULL);
|
|
if (!db) {
|
|
fatal("db open failed\n");
|
|
exit(1);
|
|
}
|
|
if (tdb_check(db, NULL, NULL) == -1) {
|
|
printf("db check failed\n");
|
|
exit(1);
|
|
}
|
|
tdb_close(db);
|
|
printf("OK\n");
|
|
}
|
|
|
|
free(test_tdb);
|
|
return error_count;
|
|
}
|