/*
 *
 *   Copyright (c) International Business Machines  Corp., 2001
 *
 *   This program is free software;  you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   This program is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY;  without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
 *   the GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with this program;  if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 */

/*
 * NAME
 *	times01.c
 *
 * DESCRIPTION
 *	Testcase to check the basic functionality of the times() system call.
 *
 * ALGORITHM
 *	This testcase checks the values that times(2) system call returns.
 *	Start a process, and spend some CPU time by performing a spin in
 *	a for-loop. Then use the times() system call, to determine the
 *	cpu time/sleep time, and other statistics.
 *
 * USAGE:  <for command-line>
 *	times01 [-c n] [-f] [-P x] [-t]
 *	where,  -c n : Run n copies concurrently.
 *		-f   : Turn off functionality Testing.
 *		-P x : Pause for x seconds between iterations.
 *		-t   : Turn on syscall timing.
 *
 * History
 *	07/2001 John George
 *		-Ported
 *
 * Restrictions
 *	NONE
 */

#include <sys/types.h>
#include <sys/times.h>
#include <errno.h>
#include <sys/wait.h>
#include <test.h>
#include <usctest.h>

const char *TCID = "times01";
int TST_TOTAL = 1;
extern int Tst_count;
int exp_enos[]={0};

void setup(void);
void cleanup(void) __attribute__((noreturn));

int
main(int argc, char **argv)
{
	const char *msg;		/* message returned from parse_opts */

	struct tms buf1, buf2;
	time_t start_time, end_time;
	int i, pid2, status, fail=0;

	/* parse standard options */
	if ((msg = parse_opts(argc, argv, (option_t *)NULL, NULL)) !=
		(char *)NULL) {
		tst_brkm(TBROK, cleanup, "OPTION PARSING ERROR - %s", msg);
		/*NOTREACHED*/
	}

	setup();


	for (i = 0; i < 1000000; i++);
	/*
	 * At least some CPU time must be used. This is
	 * achieved by executing the times(2) call for
	 * atleast 5 secs. This logic makes it independant
	 * of the processor speed.
	 */
	start_time = time(NULL);
	for (;;) {
		if (times(&buf1) == (clock_t)-1) {
			TEST_ERROR_LOG(errno);
			tst_resm(TFAIL, "Call to times(2) "
				 "failed, errno = %d", errno);
		}
		end_time = time(NULL);
		if ((end_time - start_time) > 5) {
			break;
		}
	}
	if (times(&buf1) == (clock_t)-1) {
		TEST_ERROR_LOG(errno);
		tst_resm(TFAIL, "Call to times(2) failed, "
			 "errno = %d", errno);
	} else {
		/*
		 * Perform functional verification if test
		 * executed without (-f) option.
		 */
		if (STD_FUNCTIONAL_TEST) {
			if (buf1.tms_utime == 0) {
				tst_resm(TFAIL, "Error: times() report "
					"0 user time");
				fail=1;
			}
			if (buf1.tms_stime == 0) {
				tst_resm(TFAIL, "Error: times() report "
					"0 system time");
				fail=1;
			}
			if (buf1.tms_cutime != 0) {
				tst_resm(TFAIL, "Error: times() report "
					"%d child user time",
					buf1.tms_cutime);
				fail=1;
			}
			if (buf1.tms_cstime != 0) {
				tst_resm(TFAIL, "Error: times() report "							"%d child system time",
						buf1.tms_cstime);
				fail=1;
			}

			pid2 = fork();
			if (pid2 < 0) {
				tst_brkm(TFAIL, cleanup, "Fork failed");
				/*NOTREACHED*/
			} else if (pid2 == 0) {
				for (i = 0; i < 2000000; i++);
				/*
				 * Atleast some CPU time must be used
				 * even in the child process (thereby
				 * making it independent of the
				 * processor speed). In fact the child
				 * uses twice as much CPU time.
				 */
				start_time = time(NULL);
				for (;;) {
					if (times(&buf2) == (clock_t)-1) {
						tst_resm(TFAIL,
							"Call to times "
							"failed, "
							"errno = %d",
							errno);
						exit(1);
					}
					end_time = time(NULL);
					if ((end_time - start_time)
							> 10) {
						break;
					}
				}
				exit(0);
			}
			waitpid(pid2, &status, 0);
			if (WEXITSTATUS(status) != 0) {
				tst_resm(TFAIL, "Call to times(2) "
						"failed in child");
			}
			if (times(&buf2) == (clock_t)-1) {	
				TEST_ERROR_LOG(TEST_ERRNO);
				tst_resm(TFAIL, "Call to times failed "
						"errno = %d", errno);
				fail=1;
			}
			if (buf1.tms_utime > buf2.tms_utime) {
				tst_resm(TFAIL, "Error: parents's "
					 "user time(%d) before child "
					 "> parent's user time (%d) "
					 "after child",
					 buf1.tms_utime,
					 buf2.tms_utime);
				fail=1;
			}
			if (buf2.tms_cutime == 0) {
				tst_resm(TFAIL, "Error: times() "
					 "report %d child user "
					 "time should be > than "
					 "zero", buf2.tms_cutime);
				fail=1;
			}
			if (buf2.tms_cstime == 0) {
				tst_resm(TFAIL, "Error: times() "
					 "report %d child system time "
					 "should be > than zero",
					 buf2.tms_cstime);
				fail=1;
			}
			if (fail == 0) {
				tst_resm(TPASS, "%s: Functionality "
				"test passed", TCID);
			}
					
		} else {
			tst_resm(TPASS, "%s call succeeded", TCID);
		}
	}
	cleanup();
	/*NOTREACHED*/
}

/*
 * setup()
 *	performs all ONE TIME setup for this test
 */
void
setup(void)
{
	/* capture signals */
	tst_sig(FORK, DEF_HANDLER, cleanup);

	/* set the expected errnos... */
	TEST_EXP_ENOS(exp_enos);

	/* Pause if that option was specified
	 * TEST_PAUSE contains the code to fork the test with the -c option.
	 */
	TEST_PAUSE;
}

/*
 * cleanup()
 *	performs all ONE TIME cleanup for this test at
 *	completion or premature exit
 */
void
cleanup(void)
{
	/*
	 * print timing stats if that option was specified.
	 * print errno log if that option was specified.
	 */
	TEST_CLEANUP;

	/* exit with return code appropriate for results */
	tst_exit();
	/*NOTREACHED*/
}