Move date tests to the test framework
authorMatthias Clasen <mclasen@redhat.com>
Tue, 22 Jun 2010 23:50:35 +0000 (19:50 -0400)
committerMatthias Clasen <mclasen@redhat.com>
Wed, 23 Jun 2010 13:25:29 +0000 (09:25 -0400)
glib/tests/Makefile.am
glib/tests/date.c [new file with mode: 0644]
tests/.gitignore
tests/Makefile.am
tests/date-test.c [deleted file]

index 2735c15..caa225e 100644 (file)
@@ -90,6 +90,9 @@ checksum_LDADD       = $(progs_ldadd)
 TEST_PROGS         += hash
 hash_LDADD       = $(progs_ldadd)
 
+TEST_PROGS         += date
+date_LDADD       = $(progs_ldadd)
+
 if OS_UNIX
 
 # some testing of gtester funcitonality
diff --git a/glib/tests/date.c b/glib/tests/date.c
new file mode 100644 (file)
index 0000000..5fbd389
--- /dev/null
@@ -0,0 +1,287 @@
+#undef G_DISABLE_ASSERT
+#undef G_LOG_DOMAIN
+
+#include "glib.h"
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <locale.h>
+#include <time.h>
+
+static void
+test_basic (void)
+{
+  g_assert_cmpint (sizeof (GDate), <,  9);
+  g_assert (!g_date_valid_month (G_DATE_BAD_MONTH));
+  g_assert (!g_date_valid_month (13));
+  g_assert (!g_date_valid_day (G_DATE_BAD_DAY));
+  g_assert (!g_date_valid_day (32));
+  g_assert (!g_date_valid_year (G_DATE_BAD_YEAR));
+  g_assert (!g_date_valid_julian (G_DATE_BAD_JULIAN));
+  g_assert (!g_date_valid_weekday (G_DATE_BAD_WEEKDAY));
+  g_assert (g_date_is_leap_year (2000));
+  g_assert (!g_date_is_leap_year (1999));
+  g_assert (g_date_is_leap_year (1996));
+  g_assert (g_date_is_leap_year (1600));
+  g_assert (!g_date_is_leap_year (2100));
+  g_assert (!g_date_is_leap_year (1800));
+}
+
+static void
+test_empty_constructor (void)
+{
+  GDate *d;
+
+  d = g_date_new ();
+  g_assert (!g_date_valid (d));
+  g_date_free (d);
+}
+
+static void
+test_dmy_constructor (void)
+{
+  GDate *d;
+  guint32 j;
+
+  d = g_date_new_dmy (1, 1, 1);
+  g_assert (g_date_valid (d));
+  j = g_date_get_julian (d);
+  g_assert_cmpint (j, ==, 1);
+  g_assert_cmpint (g_date_get_month (d), ==, G_DATE_JANUARY);
+  g_assert_cmpint (g_date_get_day (d), ==, 1);
+  g_assert_cmpint (g_date_get_year (d), ==, 1);
+  g_date_free (d);
+}
+
+static void
+test_dates (void)
+{
+  GDate *d;
+
+  d = g_date_new ();
+
+  /* today */
+  g_date_set_time (d, time (NULL));
+  g_assert (g_date_valid (d));
+
+  /* Unix epoch */
+  g_date_set_time (d, 1);
+  g_assert (g_date_valid (d));
+
+  /* Julian day 1 */
+  g_date_set_julian (d, 1);
+  g_assert (g_date_valid (d));
+}
+
+static void
+test_parse (void)
+{
+  GDate *d;
+  gchar buf[101];
+
+  d = g_date_new ();
+
+  g_date_set_dmy (d, 10, 1, 2000);
+  g_date_strftime (buf, 100, "%x", d);
+
+  g_date_set_parse (d, buf);
+  g_assert (g_date_valid (d));
+  g_assert_cmpint (g_date_get_month (d), ==, 1);
+  g_assert_cmpint (g_date_get_day (d), ==, 10);
+  g_assert_cmpint (g_date_get_year (d), ==, 2000);
+
+  g_date_free (d);
+}
+
+static void
+test_year (gconstpointer t)
+{
+  GDateYear y = GPOINTER_TO_INT (t);
+  GDateMonth m;
+  GDateDay day;
+  guint32 j;
+  GDate *d;
+  gint i;
+  GDate tmp;
+
+  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;
+
+  g_assert (g_date_valid_year (y));
+  /* Years ought to have roundabout 52 weeks */
+  g_assert (sunday_weeks_in_year == 52 || sunday_weeks_in_year == 53);
+  g_assert (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];
+
+      g_date_clear (days, 31);
+
+      g_assert (dim > 0 && dim < 32);
+      g_assert (g_date_valid_month (m));
+
+      day = 1;
+      while (day <= dim)
+        {
+          g_assert (g_date_valid_dmy (day, m, y));
+
+          d = &days[day - 1];
+          //g_assert (!g_date_valid (d));
+
+          g_date_set_dmy (d, day, m, y);
+
+          g_assert (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);
+
+          g_assert_cmpint (g_date_get_month (d), ==, m);
+          g_assert_cmpint (g_date_get_year (d), ==, y);
+          g_assert_cmpint (g_date_get_day (d), ==, day);
+
+          g_assert (g_date_get_julian (d) + 1 - first_day_of_year ==
+                    g_date_get_day_of_year (d));
+
+          if (m == G_DATE_DECEMBER && day == 31)
+            g_assert_cmpint (g_date_get_day_of_year (d), ==, days_in_year);
+
+          g_assert_cmpint (g_date_get_day_of_year (d), <=, days_in_year);
+          g_assert_cmpint (g_date_get_monday_week_of_year (d), <=, monday_weeks_in_year);
+          g_assert_cmpint (g_date_get_monday_week_of_year (d), >=, monday_week_of_year);
+
+          if (g_date_get_weekday(d) == G_DATE_MONDAY)
+            {
+              g_assert_cmpint (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))
+                 g_assert_cmpint (g_date_get_iso8601_week_of_year (d), ==, 1);
+              else
+                g_assert_cmpint (g_date_get_iso8601_week_of_year (d) - iso8601_week_of_year, ==, 1);
+            }
+          else
+            {
+              g_assert_cmpint (g_date_get_monday_week_of_year(d) - monday_week_of_year, ==, 0);
+              if (!(day == 1 && m == G_DATE_JANUARY))
+                g_assert_cmpint (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);
+
+          g_assert_cmpint (g_date_get_sunday_week_of_year (d), <=, sunday_weeks_in_year);
+          g_assert_cmpint (g_date_get_sunday_week_of_year (d), >=, sunday_week_of_year);
+          if (g_date_get_weekday(d) == G_DATE_SUNDAY)
+            g_assert_cmpint (g_date_get_sunday_week_of_year (d) - sunday_week_of_year, ==, 1);
+          else
+            g_assert_cmpint (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);
+
+          g_assert_cmpint (g_date_compare (d, d), ==, 0);
+
+          i = 1;
+          while (i < 402) /* Need to get 400 year increments in */
+            {
+              tmp = *d;
+              g_date_add_days (d, i);
+              g_assert_cmpint (g_date_compare (d, &tmp), >, 0);
+              g_date_subtract_days (d, i);
+              g_assert_cmpint (g_date_get_day (d), ==, day);
+              g_assert_cmpint (g_date_get_month (d), ==, m);
+              g_assert_cmpint (g_date_get_year (d), ==, y);
+
+              tmp = *d;
+              g_date_add_months (d, i);
+              g_assert_cmpint (g_date_compare (d, &tmp), >, 0);
+              g_date_subtract_months (d, i);
+              g_assert_cmpint (g_date_get_month (d), ==, m);
+              g_assert_cmpint (g_date_get_year (d), ==, y);
+
+              if (day < 29)
+                g_assert_cmpint (g_date_get_day (d), ==, day);
+              else
+                g_date_set_day (d, day);
+
+              tmp = *d;
+              g_date_add_years (d, i);
+              g_assert_cmpint (g_date_compare (d, &tmp), >, 0);
+              g_date_subtract_years (d, i);
+              g_assert_cmpint (g_date_get_month (d), ==, m);
+              g_assert_cmpint (g_date_get_year (d), ==, y);
+
+              if (m != 2 && day != 29)
+                g_assert_cmpint (g_date_get_day (d), ==, day);
+              else
+                g_date_set_day (d, day); /* reset */
+
+              i += 10;
+            }
+
+          j = g_date_get_julian (d);
+
+          ++day;
+        }
+      ++m;
+   }
+
+  /* at this point, d is the last day of year y */
+  g_date_set_dmy (&tmp, 1, 1, y + 1);
+  g_assert_cmpint (j + 1, ==, g_date_get_julian (&tmp));
+
+  g_date_add_days (&tmp, 1);
+  g_assert_cmpint (j + 2, ==, g_date_get_julian (&tmp));
+}
+
+int
+main (int argc, char** argv)
+{
+  gchar *path;
+  gint i;
+
+  /* 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
+  };
+
+  setlocale (LC_ALL, "");
+
+  g_test_init (&argc, &argv, NULL);
+
+  g_test_add_func ("/date/basic", test_basic);
+  g_test_add_func ("/date/empty", test_empty_constructor);
+  g_test_add_func ("/date/dmy", test_dmy_constructor);
+  g_test_add_func ("/date/dates", test_dates);
+  g_test_add_func ("/date/parse", test_parse);
+  for (i = 0; i < G_N_ELEMENTS (check_years); i++)
+    {
+      path = g_strdup_printf ("/date/year/%d", check_years[i]);
+      g_test_add_data_func (path, GINT_TO_POINTER(check_years[i]), test_year);
+      g_free (path);
+    }
+
+  return g_test_run ();
+}
+
+
index 6b01940..2c38922 100644 (file)
@@ -12,7 +12,6 @@ collate.out
 completion-test
 convert-test
 cxx-test
-date-test
 deftype
 dirname-test
 env-test
index 8e42af1..1b56f61 100644 (file)
@@ -90,7 +90,6 @@ test_programs =                                       \
        child-test                              \
        completion-test                         \
        convert-test                            \
-       date-test                               \
        dirname-test                            \
        file-test                               \
        env-test                                \
diff --git a/tests/date-test.c b/tests/date-test.c
deleted file mode 100644 (file)
index 1a35030..0000000
+++ /dev/null
@@ -1,499 +0,0 @@
-#undef G_DISABLE_ASSERT
-#undef G_LOG_DOMAIN
-
-#include "glib.h"
-
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.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) \
-  exit(1); \
-} G_STMT_END
-
-void g_date_debug_print(GDate* d)
-{
-}
-
-void g_print_dummy(const char *format, ...)
-{
-}
-
-void fflush_dummy (FILE *f)
-{
-}
-
-
-#define g_print g_print_dummy
-#define fflush fflush_dummy
-
-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 = 0;
-  gboolean discontinuity = FALSE;
-
-  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;
-  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) 
-           {
-             guint i;
-              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 ***********/
-
-              i = 1;
-              while (i < 402) /* Need to get 400 year increments in */ 
-                {
-             
-                  /***** Days ******/
-                  tmp = *d;
-                  g_date_add_days(d, i);
-
-                  TEST("Adding days gives a value greater than previous",
-                       g_date_compare(d, &tmp) > 0);
-
-                  g_date_subtract_days(d, i);
-                  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) ", i, 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) ", i, 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) ", i, day, m, y);
-                      g_date_debug_print(d);
-                    }
-
-                  /******* Months ********/
-
-                  tmp = *d;
-                  g_date_add_months(d, i);
-                  TEST("Adding months gives a larger value",
-                       g_date_compare(d, &tmp) > 0);
-                  g_date_subtract_months(d, i);
-
-                  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) ", i, 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) ", i, 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) ", i, 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, i);
-
-                  TEST("Adding years gives a larger value",
-                       g_date_compare(d,&tmp) > 0);
-                     
-                  g_date_subtract_years(d, i);
-
-                  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) ", i, 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) ", i, 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) ", i, day, m, y);
-                          g_date_debug_print(d);
-                        }
-                    }
-                  else 
-                    {
-                      g_date_set_day(d, day); /* reset */
-                    }
-
-                  i += 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;
-      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;
-}
-
-