/* $Id$ */
/* Copyright (c) 2012-2018 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS System libc */
/* All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
 * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */



#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <time.h>


/* clock */
static int _clock(char const * progname)
{
	clock_t c;

	printf("%s: Testing clock()\n", progname);
	if((c = clock()) == (clock_t)-1)
	{
		perror("clock");
		return -1;
	}
	return 0;
}


/* getdate */
static int _getdate(char const * progname)
{
	char const date[] = "1970-01-01 00:00:00";

	printf("%s: Testing getdate()\n", progname);
	if(unsetenv("DATEMSK") != 0)
	{
		perror("unsetenv");
		return -1;
	}
	if(getdate(date) != NULL)
	{
		perror("getdate");
		return -1;
	}
	if(getdate_err != 1)
	{
		perror("getdate_err");
		return -1;
	}
	return 0;
}


/* mktime */
static int _mktime(char const * progname)
{
	time_t t;
	struct tm tm;

	printf("%s: Testing mktime()\n", progname);
	tzset();
	t = time(NULL);
	printf("time: %ld\n", t);
	if(localtime_r(&t, &tm) == NULL)
	{
		perror("localtime_r");
		return -1;
	}
	printf("localtime: %02d/%02d/%4d %02d:%02d:%02d\n",
			tm.tm_mday, tm.tm_mon + 1, tm.tm_year + 1900,
			tm.tm_hour, tm.tm_min, tm.tm_sec);
	if((t = mktime(&tm)) == (time_t)-1 || t == 0)
	{
		perror("mktime");
		return -1;
	}
	printf("mktime: %ld\n", t);
	return 0;
}


/* strftime */
static int _strftime(char const * progname, char const * format,
		char const * expected)
{
	time_t t = 0;
	struct tm tm;
	char buf[128];

	printf("%s: Testing strftime()\n", progname);
	if(gmtime_r(&t, &tm) == NULL)
	{
		perror("gmtime");
		return -1;
	}
	if(strftime(buf, sizeof(buf), format, &tm) == 0)
	{
		perror("strftime");
		return -1;
	}
	if(strcmp(buf, expected) == 0)
		return 0;
	printf("%s: Obtained \"%s\" (expected: \"%s\")\n", progname, buf,
			expected);
	return -1;
}


/* strptime */
static int _strptime(char const * progname)
{
	char const buf[] = "1970/01/01 00:00:00";
	char const format[] = "%Y/%m/%d %H:%M:%S";
	struct tm tm;

	printf("%s: Testing strptime()\n", progname);
	if(strptime(buf, format, &tm) == NULL)
	{
		perror("strptime");
		return -1;
	}
	if(tm.tm_year != 0 || tm.tm_mon != 0 || tm.tm_mday != 1
			|| tm.tm_hour != 0 || tm.tm_min != 0 || tm.tm_sec != 0)
	{
		fputs("strptime: Invalid conversion\n", stderr);
		return -1;
	}
	return 0;
}


/* tzset */
static int _tzset(char const * progname)
{
	printf("%s: Testing tzset()\n", progname);
	tzset();
	printf("STD: %s, DST %s\n", tzname[0], tzname[1]);
	printf("daylight: %d, timezone %ld\n", daylight, timezone);
	return 0;
}


/* main */
int main(int argc, char * argv[])
{
	int res = 0;
	(void) argc;

	res += _clock(argv[0]);
	res += _getdate(argv[0]);
	res += _mktime(argv[0]);
	res += _strftime(argv[0], "%H:%M:%S", "00:00:00");
	res += _strftime(argv[0], "%B", "January");
	res += _strftime(argv[0], "%b", "Jan");
	res += _strftime(argv[0], "%A", "Thursday");
	res += _strftime(argv[0], "%a", "Thu");
	res += _strftime(argv[0], "%e", " 1");
	res += _strptime(argv[0]);
	res += _tzset(argv[0]);
	return (res == 0) ? 0 : 2;
}