tests/testgdate.c - third_party/glib - Git at Google

 #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));

   g_date_strftime(buf,100,"Our \"Julian\" epoch begins on a %A, in the month of %B, %x\n",
 		  d);
   g_print("%s", buf);

   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;
 }
	#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));

	g_date_strftime(buf,100,"Our \"Julian\" epoch begins on a %A, in the month of %B, %x\n",
	d);
	g_print("%s", buf);

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