mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2024-11-08 18:36:17 +01:00
3ffa7ed0b6
Windows uses FILETIME, which starts counting from 1st Jan of year 1601 and, unlike time_t, can't be negative, so Windows simply has no way to do timestamp-math for dates before then. SYSTEMTIME (an equivalent of struct tm) can, obviously, represent almost arbitrary date starting from 1st Jan of year 0 (it's unsigned...), but GetDateFormatW() converts it to FILETIME at some point in its implementation, and fails. Unless the whole strftime() implementation of GDate is replaced by something that doesn't rely on WinAPI, this part of the test will never pass.
513 lines
16 KiB
C
513 lines
16 KiB
C
#undef G_DISABLE_ASSERT
|
|
#undef G_LOG_DOMAIN
|
|
|
|
#ifdef GLIB_COMPILATION
|
|
#undef GLIB_COMPILATION
|
|
#endif
|
|
|
|
#include "glib.h"
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <locale.h>
|
|
#include <time.h>
|
|
|
|
gboolean failed = FALSE;
|
|
guint32 passed = 0;
|
|
guint32 notpassed = 0;
|
|
|
|
#define TEST(m,cond) G_STMT_START { failed = !(cond); \
|
|
if (failed) \
|
|
{ ++notpassed; \
|
|
if (!m) \
|
|
g_print ("\n(%s:%d) failed for: %s\n", __FILE__, __LINE__, ( # cond )); \
|
|
else \
|
|
g_print ("\n(%s:%d) failed for: %s: (%s)\n", __FILE__, __LINE__, ( # cond ), (gchar*)m); \
|
|
} \
|
|
else \
|
|
++passed; \
|
|
if ((passed+notpassed) % 10000 == 0) g_print ("."); fflush (stdout); \
|
|
} G_STMT_END
|
|
|
|
static void
|
|
g_date_debug_print (GDate* d)
|
|
{
|
|
if (!d) g_print("NULL!\n");
|
|
else
|
|
g_print("julian: %u (%s) DMY: %u %u %u (%s)\n",
|
|
d->julian_days,
|
|
d->julian ? "valid" : "invalid",
|
|
d->day,
|
|
d->month,
|
|
d->year,
|
|
d->dmy ? "valid" : "invalid");
|
|
|
|
fflush(stdout);
|
|
}
|
|
|
|
int main(int argc, char** argv)
|
|
{
|
|
GDate* d;
|
|
guint32 j;
|
|
GDateMonth m;
|
|
GDateYear y, prev_y;
|
|
GDateDay day;
|
|
gchar buf[101];
|
|
gchar* loc;
|
|
/* Try to get all the leap year cases. */
|
|
GDateYear check_years[] = {
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
|
|
11, 12, 13, 14, 98, 99, 100, 101, 102, 103, 397,
|
|
398, 399, 400, 401, 402, 403, 404, 405, 406,
|
|
1598, 1599, 1600, 1601, 1602, 1650, 1651,
|
|
1897, 1898, 1899, 1900, 1901, 1902, 1903,
|
|
1961, 1962, 1963, 1964, 1965, 1967,
|
|
1968, 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976,
|
|
1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985,
|
|
1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
|
|
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
|
|
2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012,
|
|
3000, 3001, 3002, 3998, 3999, 4000, 4001, 4002, 4003
|
|
};
|
|
guint n_check_years = sizeof(check_years)/sizeof(GDateYear);
|
|
guint i, k;
|
|
gboolean discontinuity;
|
|
|
|
g_print("checking GDate...");
|
|
|
|
TEST("sizeof(GDate) is not more than 8 bytes on this platform", sizeof(GDate) < 9);
|
|
|
|
d = g_date_new();
|
|
|
|
TEST("Empty constructor produces invalid date", !g_date_valid(d));
|
|
|
|
g_date_free(d);
|
|
|
|
d = g_date_new_dmy(1,1,1);
|
|
|
|
TEST("January 1, Year 1 created and valid", g_date_valid(d));
|
|
|
|
j = g_date_get_julian(d);
|
|
|
|
TEST("January 1, Year 1 is Julian date 1", j == 1);
|
|
|
|
TEST("Returned month is January", g_date_get_month(d) == G_DATE_JANUARY);
|
|
TEST("Returned day is 1", g_date_get_day(d) == 1);
|
|
TEST("Returned year is 1", g_date_get_year(d) == 1);
|
|
|
|
TEST("Bad month is invalid", !g_date_valid_month(G_DATE_BAD_MONTH));
|
|
TEST("Month 13 is invalid", !g_date_valid_month(13));
|
|
TEST("Bad day is invalid", !g_date_valid_day(G_DATE_BAD_DAY));
|
|
TEST("Day 32 is invalid", !g_date_valid_day(32));
|
|
TEST("Bad year is invalid", !g_date_valid_year(G_DATE_BAD_YEAR));
|
|
TEST("Bad julian is invalid", !g_date_valid_julian(G_DATE_BAD_JULIAN));
|
|
TEST("Bad weekday is invalid", !g_date_valid_weekday(G_DATE_BAD_WEEKDAY));
|
|
TEST("Year 2000 is a leap year", g_date_is_leap_year(2000));
|
|
TEST("Year 1999 is not a leap year", !g_date_is_leap_year(1999));
|
|
TEST("Year 1996 is a leap year", g_date_is_leap_year(1996));
|
|
TEST("Year 1600 is a leap year", g_date_is_leap_year(1600));
|
|
TEST("Year 2100 is not a leap year", !g_date_is_leap_year(2100));
|
|
TEST("Year 1800 is not a leap year", !g_date_is_leap_year(1800));
|
|
|
|
g_date_free(d);
|
|
|
|
loc = setlocale(LC_ALL,"");
|
|
if (loc)
|
|
g_print("\nLocale set to %s\n", loc);
|
|
else
|
|
g_print("\nLocale unchanged\n");
|
|
|
|
d = g_date_new();
|
|
g_date_set_time(d, time(NULL));
|
|
TEST("Today is valid", g_date_valid(d));
|
|
|
|
g_date_strftime(buf,100,"Today is a %A, %x\n", d);
|
|
g_print("%s", buf);
|
|
|
|
g_date_set_time(d, 1);
|
|
TEST("Beginning of Unix epoch is valid", g_date_valid(d));
|
|
|
|
g_date_strftime(buf,100,"1 second into the Unix epoch it was a %A, in the month of %B, %x\n", d);
|
|
g_print("%s", buf);
|
|
|
|
g_date_set_julian(d, 1);
|
|
TEST("GDate's \"Julian\" epoch's first day is valid", g_date_valid(d));
|
|
|
|
#ifndef G_OS_WIN32
|
|
g_date_strftime(buf,100,"Our \"Julian\" epoch begins on a %A, in the month of %B, %x\n",
|
|
d);
|
|
g_print("%s", buf);
|
|
#else
|
|
g_print ("But Windows FILETIME does not support dates before Jan 1 1601, so we can't strftime() the beginning of the \"Julian\" epoch.\n");
|
|
#endif
|
|
g_date_set_dmy(d, 10, 1, 2000);
|
|
|
|
g_date_strftime(buf,100,"%x", d);
|
|
|
|
g_date_set_parse(d, buf);
|
|
/* Note: this test will hopefully work, but no promises. */
|
|
TEST("Successfully parsed a %x-formatted string",
|
|
g_date_valid(d) &&
|
|
g_date_get_month(d) == 1 &&
|
|
g_date_get_day(d) == 10 &&
|
|
g_date_get_year(d) == 2000);
|
|
if (failed)
|
|
g_date_debug_print(d);
|
|
|
|
g_date_free(d);
|
|
|
|
j = G_DATE_BAD_JULIAN;
|
|
|
|
i = 0;
|
|
discontinuity = TRUE;
|
|
y = check_years[0];
|
|
prev_y = G_DATE_BAD_YEAR;
|
|
g_print ("testing %d years\n", n_check_years);
|
|
while (i < n_check_years)
|
|
{
|
|
guint32 first_day_of_year = G_DATE_BAD_JULIAN;
|
|
guint16 days_in_year = g_date_is_leap_year(y) ? 366 : 365;
|
|
guint sunday_week_of_year = 0;
|
|
guint sunday_weeks_in_year = g_date_get_sunday_weeks_in_year(y);
|
|
guint monday_week_of_year = 0;
|
|
guint monday_weeks_in_year = g_date_get_monday_weeks_in_year(y);
|
|
guint iso8601_week_of_year = 0;
|
|
|
|
if (discontinuity)
|
|
g_print(" (Break in sequence of requested years to check)\n");
|
|
|
|
g_print("Checking year %u", y);
|
|
|
|
TEST("Year is valid", g_date_valid_year(y));
|
|
|
|
TEST("Number of Sunday weeks in year is 52 or 53",
|
|
sunday_weeks_in_year == 52 || sunday_weeks_in_year == 53);
|
|
|
|
TEST("Number of Monday weeks in year is 52 or 53",
|
|
monday_weeks_in_year == 52 || monday_weeks_in_year == 53);
|
|
|
|
m = 1;
|
|
while (m < 13)
|
|
{
|
|
guint8 dim = g_date_get_days_in_month(m,y);
|
|
GDate days[31]; /* This is the fast way, no allocation */
|
|
|
|
TEST("Sensible number of days in month", (dim > 0 && dim < 32));
|
|
|
|
TEST("Month between 1 and 12 is valid", g_date_valid_month(m));
|
|
|
|
day = 1;
|
|
|
|
g_date_clear(days, 31);
|
|
|
|
while (day <= dim)
|
|
{
|
|
GDate tmp;
|
|
|
|
TEST("DMY triplet is valid", g_date_valid_dmy(day,m,y));
|
|
|
|
/* Create GDate with triplet */
|
|
|
|
d = &days[day-1];
|
|
|
|
TEST("Cleared day is invalid", !g_date_valid(d));
|
|
|
|
g_date_set_dmy(d,day,m,y);
|
|
|
|
TEST("Set day is valid", g_date_valid(d));
|
|
|
|
if (m == G_DATE_JANUARY && day == 1)
|
|
{
|
|
first_day_of_year = g_date_get_julian(d);
|
|
}
|
|
|
|
g_assert(first_day_of_year != G_DATE_BAD_JULIAN);
|
|
|
|
TEST("Date with DMY triplet is valid", g_date_valid(d));
|
|
TEST("Month accessor works", g_date_get_month(d) == m);
|
|
TEST("Year accessor works", g_date_get_year(d) == y);
|
|
TEST("Day of month accessor works", g_date_get_day(d) == day);
|
|
|
|
TEST("Day of year is consistent with Julian dates",
|
|
((g_date_get_julian(d) + 1 - first_day_of_year) ==
|
|
(g_date_get_day_of_year(d))));
|
|
|
|
if (failed)
|
|
{
|
|
g_print("first day: %u this day: %u day of year: %u\n",
|
|
first_day_of_year,
|
|
g_date_get_julian(d),
|
|
g_date_get_day_of_year(d));
|
|
}
|
|
|
|
if (m == G_DATE_DECEMBER && day == 31)
|
|
{
|
|
TEST("Last day of year equals number of days in year",
|
|
g_date_get_day_of_year(d) == days_in_year);
|
|
if (failed)
|
|
{
|
|
g_print("last day: %u days in year: %u\n",
|
|
g_date_get_day_of_year(d), days_in_year);
|
|
}
|
|
}
|
|
|
|
TEST("Day of year is not more than number of days in the year",
|
|
g_date_get_day_of_year(d) <= days_in_year);
|
|
|
|
TEST("Monday week of year is not more than number of weeks in the year",
|
|
g_date_get_monday_week_of_year(d) <= monday_weeks_in_year);
|
|
if (failed)
|
|
{
|
|
g_print("Weeks in year: %u\n", monday_weeks_in_year);
|
|
g_date_debug_print(d);
|
|
}
|
|
TEST("Monday week of year is >= than last week of year",
|
|
g_date_get_monday_week_of_year(d) >= monday_week_of_year);
|
|
|
|
if (g_date_get_weekday(d) == G_DATE_MONDAY)
|
|
{
|
|
|
|
TEST("Monday week of year on Monday 1 more than previous day's week of year",
|
|
(g_date_get_monday_week_of_year(d) - monday_week_of_year) == 1);
|
|
if ((m == G_DATE_JANUARY && day <= 4) ||
|
|
(m == G_DATE_DECEMBER && day >= 29)) {
|
|
TEST("ISO 8601 week of year on Monday Dec 29 - Jan 4 is 1",
|
|
(g_date_get_iso8601_week_of_year(d) == 1));
|
|
} else {
|
|
TEST("ISO 8601 week of year on Monday 1 more than previous day's week of year",
|
|
(g_date_get_iso8601_week_of_year(d) - iso8601_week_of_year) == 1);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
TEST("Monday week of year on non-Monday 0 more than previous day's week of year",
|
|
(g_date_get_monday_week_of_year(d) - monday_week_of_year) == 0);
|
|
if (!(day == 1 && m == G_DATE_JANUARY)) {
|
|
TEST("ISO 8601 week of year on non-Monday 0 more than previous day's week of year (",
|
|
(g_date_get_iso8601_week_of_year(d) - iso8601_week_of_year) == 0);
|
|
}
|
|
}
|
|
|
|
|
|
monday_week_of_year = g_date_get_monday_week_of_year(d);
|
|
iso8601_week_of_year = g_date_get_iso8601_week_of_year(d);
|
|
|
|
|
|
TEST("Sunday week of year is not more than number of weeks in the year",
|
|
g_date_get_sunday_week_of_year(d) <= sunday_weeks_in_year);
|
|
if (failed)
|
|
{
|
|
g_date_debug_print(d);
|
|
}
|
|
TEST("Sunday week of year is >= than last week of year",
|
|
g_date_get_sunday_week_of_year(d) >= sunday_week_of_year);
|
|
|
|
if (g_date_get_weekday(d) == G_DATE_SUNDAY)
|
|
{
|
|
TEST("Sunday week of year on Sunday 1 more than previous day's week of year",
|
|
(g_date_get_sunday_week_of_year(d) - sunday_week_of_year) == 1);
|
|
}
|
|
else
|
|
{
|
|
TEST("Sunday week of year on non-Sunday 0 more than previous day's week of year",
|
|
(g_date_get_sunday_week_of_year(d) - sunday_week_of_year) == 0);
|
|
}
|
|
|
|
sunday_week_of_year = g_date_get_sunday_week_of_year(d);
|
|
|
|
TEST("Date is equal to itself",
|
|
g_date_compare(d,d) == 0);
|
|
|
|
|
|
/*************** Increments ***********/
|
|
|
|
k = 1;
|
|
while (k < 402) /* Need to get 400 year increments in */
|
|
{
|
|
|
|
/***** Days ******/
|
|
tmp = *d;
|
|
g_date_add_days(d, k);
|
|
|
|
TEST("Adding days gives a value greater than previous",
|
|
g_date_compare(d, &tmp) > 0);
|
|
|
|
g_date_subtract_days(d, k);
|
|
TEST("Forward days then backward days returns us to current day",
|
|
g_date_get_day(d) == day);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
|
|
TEST("Forward days then backward days returns us to current month",
|
|
g_date_get_month(d) == m);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
|
|
TEST("Forward days then backward days returns us to current year",
|
|
g_date_get_year(d) == y);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
|
|
/******* Months ********/
|
|
|
|
tmp = *d;
|
|
g_date_add_months(d, k);
|
|
TEST("Adding months gives a larger value",
|
|
g_date_compare(d, &tmp) > 0);
|
|
g_date_subtract_months(d, k);
|
|
|
|
TEST("Forward months then backward months returns us to current month",
|
|
g_date_get_month(d) == m);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
|
|
TEST("Forward months then backward months returns us to current year",
|
|
g_date_get_year(d) == y);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
|
|
|
|
if (day < 29)
|
|
{
|
|
/* Day should be unchanged */
|
|
|
|
TEST("Forward months then backward months returns us to current day",
|
|
g_date_get_day(d) == day);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/* reset the day for later tests */
|
|
g_date_set_day(d, day);
|
|
}
|
|
|
|
/******* Years ********/
|
|
|
|
tmp = *d;
|
|
g_date_add_years(d, k);
|
|
|
|
TEST("Adding years gives a larger value",
|
|
g_date_compare(d,&tmp) > 0);
|
|
|
|
g_date_subtract_years(d, k);
|
|
|
|
TEST("Forward years then backward years returns us to current month",
|
|
g_date_get_month(d) == m);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
|
|
TEST("Forward years then backward years returns us to current year",
|
|
g_date_get_year(d) == y);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
|
|
if (m != 2 && day != 29)
|
|
{
|
|
TEST("Forward years then backward years returns us to current day",
|
|
g_date_get_day(d) == day);
|
|
|
|
if (failed)
|
|
{
|
|
g_print(" (increment %u, dmy %u %u %u) ", k, day, m, y);
|
|
g_date_debug_print(d);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
g_date_set_day(d, day); /* reset */
|
|
}
|
|
|
|
k += 10;
|
|
}
|
|
|
|
/***** increment test relative to our local Julian count */
|
|
|
|
if (!discontinuity) {
|
|
|
|
/* We can only run sequence tests between sequential years */
|
|
|
|
TEST("Julians are sequential with increment 1",
|
|
j+1 == g_date_get_julian(d));
|
|
if (failed)
|
|
{
|
|
g_print("Out of sequence, prev: %u expected: %u got: %u\n",
|
|
j, j+1, g_date_get_julian(d));
|
|
}
|
|
|
|
g_date_add_days(d,1);
|
|
TEST("Next day has julian 1 higher",
|
|
g_date_get_julian(d) == j + 2);
|
|
g_date_subtract_days(d, 1);
|
|
|
|
if (j != G_DATE_BAD_JULIAN)
|
|
{
|
|
g_date_subtract_days(d, 1);
|
|
|
|
TEST("Previous day has julian 1 lower",
|
|
g_date_get_julian(d) == j);
|
|
|
|
g_date_add_days(d, 1); /* back to original */
|
|
}
|
|
}
|
|
discontinuity = FALSE; /* goes away now */
|
|
|
|
fflush(stdout);
|
|
fflush(stderr);
|
|
|
|
j = g_date_get_julian(d); /* inc current julian */
|
|
|
|
++day;
|
|
}
|
|
++m;
|
|
}
|
|
g_print(" done\n");
|
|
++i;
|
|
if (i == n_check_years)
|
|
break;
|
|
prev_y = y;
|
|
y = check_years[i];
|
|
if (prev_y == G_DATE_BAD_YEAR ||
|
|
(prev_y + 1) != y) discontinuity = TRUE;
|
|
}
|
|
|
|
|
|
g_print("\n%u tests passed, %u failed\n",passed, notpassed);
|
|
|
|
return 0;
|
|
}
|
|
|
|
|