/*   
 * Copyright (c) 2002, Intel Corporation. All rights reserved.
 * Created by:  julie.n.fleischer REMOVE-THIS AT intel DOT com
 * This file is licensed under the GPL license.  For the full content
 * of this license, see the COPYING file at the top level of this 
 * source tree.
 *
 * Test that if clock_settime() changes the time for CLOCK_REALTIME, 
 * then any threads blocked on clock_nanosleep() for the CLOCK_REALTIME
 * clock that would now have expired in the past will expire immediately.
 *
 * Steps:
 * - get time T0
 * - in child:  set clock_nanosleep() to sleep until time 
 *              T1 = T0 + SLEEPOFFSET
 * - in parent:  set time forward to T2 = T1 + SMALLTIME
 * - in child:  ensure clock_nanosleep() expires within ACCEPTABLEDELTA of
 *              T2
 */
#include <stdio.h>
#include <time.h>
#include <signal.h>
#include <unistd.h>
#include <sys/wait.h>
#include "posixtest.h"
#include "helpers.h"

#define SLEEPOFFSET 5
#define SMALLTIME 2
#define ACCEPTABLEDELTA 1

#define CHILDPASS 1
#define CHILDFAIL 0

int main(int argc, char *argv[])
{
	struct timespec tsT0, tsT1, tsT2;
	int pid;
	
	/* Check that we're root...can't call clock_settime with CLOCK_REALTIME otherwise */
	if(getuid() != 0)
	{
		printf("Run this test as ROOT, not as a Regular User\n");
		return PTS_UNTESTED;
	}

	if (clock_gettime(CLOCK_REALTIME, &tsT0) != 0) {
		perror("clock_gettime() did not return success\n");
		return PTS_UNRESOLVED;
	}

	tsT1.tv_sec=tsT0.tv_sec + SLEEPOFFSET;
	tsT1.tv_nsec=tsT0.tv_nsec;

	tsT2.tv_sec = tsT1.tv_sec + SMALLTIME;
	tsT2.tv_nsec = tsT1.tv_nsec;

	if ((pid = fork()) == 0) {
		/* child here */
		int flags = 0;
		struct timespec tsT3;

		flags |= TIMER_ABSTIME;
		if (clock_nanosleep(CLOCK_REALTIME, flags, &tsT1, NULL) != 0) {
			printf("clock_nanosleep() did not return success\n");
			return CHILDFAIL;
		}

		if (clock_gettime(CLOCK_REALTIME, &tsT3) != 0) {
			perror("clock_gettime() did not return success\n");
			return CHILDFAIL;
		}

		if (tsT3.tv_sec >= tsT2.tv_sec) {
			if ( (tsT3.tv_sec-tsT2.tv_sec) <= ACCEPTABLEDELTA) {
				return CHILDPASS;
			} else {
				printf("Ended too late.  %d >> %d\n",
						(int) tsT3.tv_sec,
						(int) tsT2.tv_sec);
				return CHILDFAIL;
			}
		} else {
			printf("Did not sleep for long enough %d < %d\n",
					(int) tsT3.tv_sec, (int) tsT2.tv_sec);
			return CHILDFAIL;
		}

		return CHILDFAIL;
	} else {
		/* parent here */
		int i;
		struct timespec tsreset;

		sleep(1);

		getBeforeTime(&tsreset);
		if (clock_settime(CLOCK_REALTIME, &tsT2) != 0) {
			printf("clock_settime() did not return success\n");
			return PTS_UNRESOLVED;
		}

		if (wait(&i) == -1) {
			perror("Error waiting for child to exit\n");
			return PTS_UNRESOLVED;
		}

		setBackTime(tsreset); //should be ~= before time

		if (WIFEXITED(i) && WEXITSTATUS(i)) {
			printf("Test PASSED\n");
			return PTS_PASS;
		} else {
			printf("Test FAILED\n");
			return PTS_FAIL;
		}
	}

	return PTS_UNRESOLVED;
}
