/*

* 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;

	}