// commit: 19e35c500bd2b5e6146e42705ab9b69c155a2006 2011-02-17
// commit: 187fe29d5b89644b68cade75a34257a1c32a75f6 2011-02-17
// non-standard musl specific behaviour
// daemon should not fork in case of failure of chdir or open, but
// since setsid and fork may still fail after fork this behaviour
// is not very useful
#define _BSD_SOURCE 1
#include <string.h>
#include <errno.h>
#include <sys/wait.h>
#include <fcntl.h>
#include <unistd.h>
#include "test.h"

int daemon(int, int);

int main(void)
{
	int r, pid, fd[2], fdout, s;
	char c;

	r = pipe(fd);
	if (r == -1) {
		t_error("pipe failed: %s\n", strerror(errno));
		return 1;
	}
	fdout = dup(1);
	if (fdout == -1) {
		t_error("dup(1) failed: %s\n", strerror(errno));
		return 1;
	}
	r = fork();
	if (r == -1) {
		t_error("fork failed: %s\n", strerror(errno));
		return 1;
	}

	if (r == 0) {
		/* exhausting all fds makes open("/dev/null") fail in daemon */
		t_fdfill();
		pid = getpid();
		errno = 0;
		r = daemon(0, 0);
		if (dup2(fdout,1) == -1) {
			write(fdout, "ERROR:\n", 7);
			t_error("failed to dup pipe fd for communicating results: %s\n", strerror(errno));
		}
		if (r != -1)
			t_error("daemon should have failed\n");
		if (errno != EMFILE)
			t_error("daemon should have failed with %d [EMFILE] got %d [%s]\n", EMFILE, errno, strerror(errno));
		if (getpid() != pid || getppid() == 1)
			t_error("daemon forked despite failure: ppid is %d, pid is %d, old pid is %d\n",
				getppid(), getpid(), pid);
		if (write(fd[1], "1" + !t_status, 1) != 1)
			t_error("write failed: %s\n", strerror(errno));
		return t_status;
	}
	close(fd[1]);
	if (waitpid(r, &s, 0) != r)
		t_error("waitpid failed: %s\n", strerror(errno));
	else if (!WIFEXITED(s))
		t_error("child exited abnormally (signal %d)\n", WIFSIGNALED(s) ? WTERMSIG(s) : 0);
	else if (WEXITSTATUS(s))
		t_error("child exited with %d\n", WEXITSTATUS(s));
	r = read(fd[0], &c, 1);
	if (r == -1)
		t_error("read failed: %s\n", strerror(errno));
	else if (r == 0)
		t_error("read failed: child did not send its exit status\n");
	else if (c != 0)
		t_error("child failed\n");

	return t_status;
}