/*

 * Copyright (c) 1998-2009 Nokia Corporation and/or its subsidiary(-ies).

 * All rights reserved.

 * This component and the accompanying materials are made available

 * under the terms of "Eclipse Public License v1.0"

 * which accompanies this distribution, and is available

 * at the URL "http://www.eclipse.org/legal/epl-v10.html".

 *

 * Initial Contributors:

 * Nokia Corporation - initial contribution.

 *

 * Contributors:

 *

 * Description:

 * Year 2000 compliance tests for STDLIB

 * 

 *

 */

 #include <stdlib.h>	/* definition of exit() */

 #include <stdio.h>

 #include <errno.h>

 #include <string.h>

 #include <time.h>

 #include <fcntl.h>

 #include <unistd.h>

 #include <sys/time.h>	/* timeval, gettimeofday */

 int failures=0;

 void failed(char* reason)

 	{

 	printf("\nFAILURE >>>%s\n", reason);

 	failures++;

 	}

 typedef struct {

 	int day;	/* 1-31 */

 	int month;	/* 1-12 */

 	int year;	/* 1970-2050 */

 	} testdate;

 char* testmonths[14] = {

 	"invalid_0",

 	"Jan", "Feb", "March", "Apr", "May", "June", "July", "Aug", "Sept", "Oct", "Nov", "Dec",

 	"invalid_13"

 	};

 char* tmdaynames[8] = {

 	"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday",

 	"invalid_7"

 	};

 /* Format a testdate to match the Y2K document

  */

 void format_testdate(testdate* aDate, char* aBuffer)

 	{

 	char* th="th";

 	if (aDate->day==1 || aDate->day==21 || aDate->day==31)

 		th="st";

 	if (aDate->day==2 || aDate->day==22)

 		th="nd";

 	sprintf(aBuffer, "%d%s %s %d", aDate->day, th, testmonths[aDate->month], aDate->year);

 	}

 typedef struct {

 	testdate	input;		/* for conversion to seconds */

 	testdate	result;		/* correct value */

 	} testpair;

 typedef struct {

 	testdate	input;		/* for conversion to seconds */

 	int		result;		/* correct value */

 	} testint;

 /* MAJOR TEST FUNCTIONALITY - READ THIS CAREFULLY

  *

  * STDLIB date handling is done in terms of seconds since the "epoch", which was

  * 00:00 on 1st January, 1970. The Y2K significant functionality consists solely of the

  * routines which manipulate the struct tm data structure.

  *

  *   time_t mktime (struct tm *brokentime)

  *

  *   struct tm * gmtime (const time_t *time)

  *   struct tm * localtime (const time_t *time)

  *

  * The mktime conversion is always using a GMT date, so we'll ignore the localtime function for Y2K

  * purposes. We also know that gmtime and localtime use the same underlying conversion function,

  * one applying the relevant GMT offset on the way in.

  *

  * Y2K is only concerned with dates, so we will always use 12:00:00 ("High Noon") as the time

  * of day.

  */

 void tm_from_testdate(struct tm* aTm, testdate* aDate)

 	{

 	time_t seconds;

 	struct tm setup;

 	struct tm* res;

 	setup.tm_hour = 12;

 	setup.tm_min  = 0;

 	setup.tm_sec  = 0;

 	setup.tm_mday = aDate->day;

 	setup.tm_mon  = aDate->month - 1;	/* struct tm uses 0-11 */

 	setup.tm_year = aDate->year - 1900;	/* struct tm uses years since 1900 */

 	seconds = mktime(&setup);

 	if (seconds != (time_t)(-1))

 		{

 		res = gmtime(&seconds);

 		*aTm = *res;

 		return;

 		}

 	/* unable to convert date */

 	failed("tm_from_testdate: mktime failed");

 	}

 void normalize_tm(struct tm* aTm)

 	{

 	time_t seconds = mktime(aTm);

 	if (seconds == (time_t)(-1))

 		{

 		/* unable to convert date */

 		failed("normalize_tm: mktime failed");

 		}

 	return;

 	}

 int compare_testdate_tm(testdate* aDate, struct tm* aTm)

 	{

 	if (aDate->year-1900 != aTm->tm_year)

 		return (aDate->year-1900-aTm->tm_year);

 	if (aDate->month-1 != aTm->tm_mon)

 		return (aDate->month-1-aTm->tm_mon);

 	return (aDate->day - aTm->tm_mday);

 	}

 /*

  *   4.1 Rule 1 Tests

  *

  * "No valid value for current date will cause any interruption in operation"

  *

  */

 testpair data_4_1[14] = {

 	{{ 31,12,1998 } , {  1, 1, 1999 } },

 	{{ 27, 2,1999 } , { 28, 2, 1999 } },

 	{{ 28, 2,1999 } , {  1, 3, 1999 } },

 	{{ 31, 8,1999 } , {  1, 9, 1999 } },

 	{{  8, 9,1999 } , {  9, 9, 1999 } },

 	{{  9, 9,1999 } , { 10, 9, 1999 } },

 	{{ 31,12,1999 } , {  1, 1, 2000 } },

 	{{ 27, 2,2000 } , { 28, 2, 2000 } },

 	{{ 28, 2,2000 } , { 29, 2, 2000 } },

 	{{ 29, 2,2000 } , {  1, 3, 2000 } },

 	{{ 31,12,2000 } , {  1, 1, 2001 } },

 	{{ 28, 2,2001 } , {  1, 3, 2001 } },

 	{{ 28, 2,2004 } , { 29, 2, 2004 } },

 	{{ 29, 2,2004 } , {  1, 3, 2004 } }

 	};

 /**

 @SYMTestCaseID          SYSLIB-STDLIB-CT-1043

 @SYMTestCaseDesc	    Tests for standard date boundaries

 @SYMTestPriority 	    High

 @SYMTestActions  	    Tests for standard date format

 @SYMTestExpectedResults Test must not fail

 @SYMREQ                 REQ0000

 */		

 void tests_4_1()

 	{

 	int i;

 	testdate* from_dp;

 	testdate* to_dp;

 	char frombuf[80];

 	char tobuf[80];

 	struct tm workdate;

 	printf("\n4.1 Rule 1 Tests\n\n");

 	printf("4.1.1.1 Standard Date Boundaries\n\n");

 	for (i=0; i<14; i++)

 		{

 		from_dp=&data_4_1[i].input;

 		to_dp=&data_4_1[i].result;

 		format_testdate(from_dp, frombuf); 

 		format_testdate(to_dp, tobuf); 

 		printf("%-2d  From %-14s to %-14s ", i+1, frombuf, tobuf);

 		tm_from_testdate(&workdate, from_dp);

 		if (compare_testdate_tm(from_dp, &workdate) != 0)

 			failed("test_4_1: invalid from date");

 		workdate.tm_mday += 1;	/* move the time on by one day */

 		normalize_tm(&workdate);

 		if (compare_testdate_tm(to_dp, &workdate) != 0)

 			{

 			printf("*** FAILED\n");

 			failures++;

 			}

 		else

 			printf("PASSED\n");

 		}

 	}

 /*

  *   4.2 Rule 2 Tests (incorporating Rule 4 Tests)

  *

  * "All manipulations of date or time related data will produce the required results for

  *  all valid date values prior to, during and after Year 2000"

  *

  * "Year 2000 must be recognised as a leap year"

  *

  */

 testdate data_4_2_1[19] = {

 	{ 31, 12, 1998 },

 	{  1,  3, 1999 },

 	{ 27,  2, 2000 },

 	{ 31, 12, 2000 },

 	{ 28,  2, 2004 },

 	{  1,  1, 1999 },

 	{  9,  9, 1999 },

 	{ 28,  2, 2000 },

 	{  1,  1, 2001 },

 	{ 29,  2, 2004 },

 	{ 27,  2, 1999 },

 	{ 31, 12, 1999 },

 	{ 29,  2, 2000 },

 	{ 28,  2, 2000 },

 	{  1,  3, 2004 },

 	{ 28,  2, 1999 },

 	{  1,  1, 2000 },

 	{  1,  3, 2000 },

 	{  1,  3, 2001 }

 	};

 void tests_4_2_1()

 	{

 	int i;

 	testdate* from_dp;

 	char frombuf[80];

 	struct tm workdate;

 	printf("\n4.2 Rule 2 Tests (incorporating Rule 4 Tests)\n\n");

 	printf("4.2.1 Valid Dates\n\n");

 	for (i=0; i<19; i++)

 		{

 		from_dp=&data_4_2_1[i];

 		format_testdate(from_dp, frombuf); 

 		printf("%-2d  Valid date %-14s  ", i+1, frombuf);

 		tm_from_testdate(&workdate, from_dp);

 		if (compare_testdate_tm(from_dp, &workdate) != 0)

 			{

 			printf("*** FAILED\n");

 			failures++;

 			}

 		else

 			printf("PASSED\n");

 		}

 	}

 testdate data_4_2_2[5] = {

 	{ 31,  4, 1998 },

 	{ 30,  2, 2000 },

 	{ 29,  2, 2001 },

 	{ 29,  2, 1999 },

 	{ 30,  2, 2004 }

 	};

 void tests_4_2_2()

 	{

 	int i;

 	testdate* from_dp;

 	char frombuf[80];

 	struct tm workdate;

 	printf("\n4.2.2 Invalid Dates\n\n");

 	for (i=0; i<5; i++)

 		{

 		from_dp=&data_4_2_2[i];

 		format_testdate(from_dp, frombuf); 

 		printf("%-2d  Invalid date %-14s  ", i+1, frombuf);

 		tm_from_testdate(&workdate, from_dp);

 		if (compare_testdate_tm(from_dp, &workdate) == 0)

 			{

 			printf("*** FAILED\n");

 			failures++;

 			}

 		else

 			printf("PASSED\n");

 		}

 	}

 testint data_4_2_4[3] = {

 	{ { 31, 12, 2000 }, 366 },

 	{ { 31, 12, 1999 }, 365 },

 	{ { 31, 12, 2004 }, 366 }

 	};

 void tests_4_2_4()

 	{

 	int i;

 	testdate* from_dp;

 	char frombuf[80];

 	struct tm workdate;

 	printf("\n4.2.4 Year Lengths\n\n");

 	for (i=0; i<3; i++)

 		{

 		from_dp=&data_4_2_4[i].input;

 		format_testdate(from_dp, frombuf); 

 		printf("%-2d  Yearday of %-14s == %d ", i+1, frombuf, data_4_2_4[i].result);

 		tm_from_testdate(&workdate, from_dp);

 		if (workdate.tm_yday+1 != data_4_2_4[i].result)

 			{

 			printf("*** FAILED\n");

 			failures++;

 			}

 		else

 			printf("PASSED\n");

 		}

 	}

 testint data_4_2_7[14] = {

 	{ {  1,  1, 1900 }, 1 },	// not supported

 	{ { 28,  2, 1900 }, 3 },	// not supported

 	{ {  1,  3, 1900 }, 4 },	// not supported

 	{ { 28,  2, 1999 }, 0 },

 	{ {  1,  3, 1999 }, 1 },

 	{ { 31, 12, 1999 }, 5 },

 	{ {  1,  1, 2000 }, 6 },

 	{ { 28,  2, 2000 }, 1 },

 	{ { 29,  2, 2000 }, 2 },

 	{ {  1,  3, 2000 }, 3 },

 	{ {  1,  1, 2001 }, 1 },

 	{ { 28,  2, 2004 }, 6 },

 	{ { 29,  2, 2004 }, 0 },

 	{ {  1,  3, 2004 }, 1 }

 	};

 void tests_4_2_7()

 	{

 	int i;

 	testdate* from_dp;

 	char frombuf[80];

 	struct tm workdate;

 	printf("\n4.2.7 Calculation of days of the week from dates\n\n");

 	for (i=3; i<14; i++)

 		{

 		from_dp=&data_4_2_7[i].input;

 		format_testdate(from_dp, frombuf); 

 		printf("%-2d  %-14s == %-10s ", i+1, frombuf, tmdaynames[data_4_2_7[i].result]);

 		tm_from_testdate(&workdate, from_dp);

 		if (compare_testdate_tm(from_dp, &workdate) != 0)

 			failed("test_4_2_7: invalid from date");

 		if (workdate.tm_wday != data_4_2_7[i].result)

 			{

 			printf("*** FAILED  (%d %s)\n", workdate.tm_wday, tmdaynames[workdate.tm_wday]);

 			failures++;

 			}

 		else

 			printf("PASSED\n");

 		}

 	}

 void do_all_tests()

 	{

 	time_t now = time(0);

 	failures=0;

 	tests_4_1();

 	tests_4_2_1();

 	tests_4_2_2();

 	tests_4_2_4();

 	tests_4_2_7();

 	if (failures != 0)

 		printf("\n\n NOT YEAR 2000 COMPLIANT\n\n");

 	else

 		printf("\n\n ALL TESTS PASSED - YEAR 2000 COMPLIANT\n\n");

 	printf("Test run dated: %s", ctime(&now));

 	}

 int main()

 	{

 	int fd;

 	do_all_tests();	

 	/* Now repeat the tests into a log file */

 	fd=open("c:/stdlib_y2k.txt", O_WRONLY+O_CREAT+O_TRUNC, 0);

 	if (fd<0)

 		{

 		printf("unable to create test result file\n");

 		return -1;

 		}

 	setbuf(stderr, NULL);

 	dup2(fd, fileno(stderr));	/* redirect stderr */

 	setbuf(stdout, NULL);

 	dup2(fd, fileno(stdout));	/* redirect stdout */

 	close(fd);

 	fclose(stdin);

 	do_all_tests();

 	fflush(stdout);

 	return 0;

 	}