/* Test forking while holding lock.
 *
 * There are only five ways to do this currently:
 * (1) grab a tdb_chainlock, then fork.
 * (2) grab a tdb_lockall, then fork.
 * (3) grab a tdb_lockall_read, then fork.
 * (4) start a transaction, then fork.
 * (5) fork from inside a tdb_parse() callback.
 *
 * Note that we don't hold a lock across tdb_traverse callbacks, so
 * that doesn't matter.
 */
#include <ccan/tdb2/tdb2.h>
#include <ccan/tap/tap.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <unistd.h>
#include <stdlib.h>
#include "logging.h"

static enum TDB_ERROR fork_in_parse(TDB_DATA key, TDB_DATA data,
				    struct tdb_context *tdb)
{
	int status, extra_messages;

	if (tdb_get_flags(tdb) & TDB_VERSION1) {
		extra_messages = 1;
	} else {
		extra_messages = 0;
	}

	if (fork() == 0) {
		/* We expect this to fail. */
		if (tdb_store(tdb, key, data, TDB_REPLACE) != TDB_ERR_LOCK)
			exit(1);
		tap_log_messages -= extra_messages;

		if (tdb_fetch(tdb, key, &data) != TDB_ERR_LOCK)
			exit(1);

		tap_log_messages -= extra_messages;
		if (tap_log_messages != 2)
			exit(2);

		tdb_close(tdb);
		if (tap_log_messages != 2)
			exit(3);
		exit(0);
	}
	wait(&status);
	ok1(WIFEXITED(status) && WEXITSTATUS(status) == 0);
	return TDB_SUCCESS;
}

int main(int argc, char *argv[])
{
	unsigned int i;
	struct tdb_context *tdb;
	int flags[] = { TDB_DEFAULT, TDB_NOMMAP,
			TDB_CONVERT, TDB_NOMMAP|TDB_CONVERT,
			TDB_VERSION1, TDB_NOMMAP|TDB_VERSION1,
			TDB_CONVERT|TDB_VERSION1,
			TDB_NOMMAP|TDB_CONVERT|TDB_VERSION1 };
	struct tdb_data key = tdb_mkdata("key", 3);
	struct tdb_data data = tdb_mkdata("data", 4);

	plan_tests(sizeof(flags) / sizeof(flags[0]) * 14);
	for (i = 0; i < sizeof(flags) / sizeof(flags[0]); i++) {
		int status, extra_messages;

		if (flags[i] & TDB_VERSION1) {
			extra_messages = 1;
		} else {
			extra_messages = 0;
		}

		tap_log_messages = 0;

		tdb = tdb_open("run-fork-test.tdb", flags[i],
			       O_RDWR|O_CREAT|O_TRUNC, 0600, &tap_log_attr);
		if (!ok1(tdb))
			continue;

		/* Put a record in here. */
		ok1(tdb_store(tdb, key, data, TDB_REPLACE) == TDB_SUCCESS);

		ok1(tdb_chainlock(tdb, key) == TDB_SUCCESS);
		if (fork() == 0) {
			/* We expect this to fail. */
			if (tdb_store(tdb, key, data, TDB_REPLACE) != TDB_ERR_LOCK)
				return 1;
			tap_log_messages -= extra_messages;

			if (tdb_fetch(tdb, key, &data) != TDB_ERR_LOCK)
				return 1;
			tap_log_messages -= extra_messages;

			if (tap_log_messages != 2)
				return 2;

			tdb_chainunlock(tdb, key);
			if (tap_log_messages != 3)
				return 3;
			tdb_close(tdb);
			if (tap_log_messages != 3)
				return 4;
			return 0;
		}
		wait(&status);
		ok1(WIFEXITED(status) && WEXITSTATUS(status) == 0);
		tdb_chainunlock(tdb, key);

		ok1(tdb_lockall(tdb) == TDB_SUCCESS);
		if (fork() == 0) {
			/* We expect this to fail. */
			if (tdb_store(tdb, key, data, TDB_REPLACE) != TDB_ERR_LOCK)
				return 1;
			tap_log_messages -= extra_messages;

			if (tdb_fetch(tdb, key, &data) != TDB_ERR_LOCK)
				return 1;
			tap_log_messages -= extra_messages;

			if (tap_log_messages != 2)
				return 2;

			tdb_unlockall(tdb);
			if (tap_log_messages != 2)
				return 3;
			tdb_close(tdb);
			if (tap_log_messages != 2)
				return 4;
			return 0;
		}
		wait(&status);
		ok1(WIFEXITED(status) && WEXITSTATUS(status) == 0);
		tdb_unlockall(tdb);

		ok1(tdb_lockall_read(tdb) == TDB_SUCCESS);
		if (fork() == 0) {
			/* We expect this to fail. */
			/* This would always fail anyway... */
			if (tdb_store(tdb, key, data, TDB_REPLACE) != TDB_ERR_LOCK)
				return 1;
			tap_log_messages -= extra_messages;

			if (tdb_fetch(tdb, key, &data) != TDB_ERR_LOCK)
				return 1;
			tap_log_messages -= extra_messages;

			if (tap_log_messages != 2)
				return 2;

			tdb_unlockall_read(tdb);
			if (tap_log_messages != 2)
				return 3;
			tdb_close(tdb);
			if (tap_log_messages != 2)
				return 4;
			return 0;
		}
		wait(&status);
		ok1(WIFEXITED(status) && WEXITSTATUS(status) == 0);
		tdb_unlockall_read(tdb);

		ok1(tdb_transaction_start(tdb) == TDB_SUCCESS);
		/* If transactions is empty, noop "commit" succeeds. */
		ok1(tdb_delete(tdb, key) == TDB_SUCCESS);
		if (fork() == 0) {
			/* We expect this to fail. */
			if (tdb_store(tdb, key, data, TDB_REPLACE) != TDB_ERR_LOCK)
				return 1;
			tap_log_messages -= extra_messages;

			if (tdb_fetch(tdb, key, &data) != TDB_ERR_LOCK)
				return 1;
			tap_log_messages -= extra_messages;

			if (tap_log_messages != 2)
				return 2;

			if (tdb_transaction_commit(tdb) != TDB_ERR_LOCK)
				return 3;
			tap_log_messages -= extra_messages;

			tdb_close(tdb);
			if (tap_log_messages < 3)
				return 4;
			return 0;
		}
		wait(&status);
		ok1(WIFEXITED(status) && WEXITSTATUS(status) == 0);
		tdb_transaction_cancel(tdb);

		ok1(tdb_parse_record(tdb, key, fork_in_parse, tdb)
		    == TDB_SUCCESS);
		tdb_close(tdb);
		ok1(tap_log_messages == 0);
	}
	return exit_status();
}