glib/tests/gdatetime.c

   1 /* gdatetime-tests.c
   2  *
   3  * Copyright (C) 2009-2010 Christian Hergert <chris@dronelabs.com>
   4  *
   5  * This is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public License
  16  * along with this library; if not, see <http://www.gnu.org/licenses/>.
  17  */
  18
  19 #include "config.h"
  20
  21 #include <string.h>
  22 #include <time.h>
  23 #include <gi18n.h>
  24 #include <glib.h>
  25 #include <glib/gstdio.h>
  26 #include <locale.h>
  27
  28 #ifdef G_OS_WIN32
  29 #define WIN32_LEAN_AND_MEAN
  30 #include <windows.h>
  31 #endif
  32
  33 #define ASSERT_DATE(dt,y,m,d) G_STMT_START { \
  34   g_assert_nonnull ((dt)); \
  35   g_assert_cmpint ((y), ==, g_date_time_get_year ((dt))); \
  36   g_assert_cmpint ((m), ==, g_date_time_get_month ((dt))); \
  37   g_assert_cmpint ((d), ==, g_date_time_get_day_of_month ((dt))); \
  38 } G_STMT_END
  39 #define ASSERT_TIME(dt,H,M,S,U) G_STMT_START { \
  40   g_assert_nonnull ((dt)); \
  41   g_assert_cmpint ((H), ==, g_date_time_get_hour ((dt))); \
  42   g_assert_cmpint ((M), ==, g_date_time_get_minute ((dt))); \
  43   g_assert_cmpint ((S), ==, g_date_time_get_second ((dt))); \
  44   g_assert_cmpint ((U), ==, g_date_time_get_microsecond ((dt))); \
  45 } G_STMT_END
  46
  47 static void
  48 get_localtime_tm (time_t     time_,
  49                   struct tm *retval)
  50 {
  51 #ifdef HAVE_LOCALTIME_R
  52   localtime_r (&time_, retval);
  53 #else
  54   {
  55     struct tm *ptm = localtime (&time_);
  56
  57     if (ptm == NULL)
  58       {
  59         /* Happens at least in Microsoft's C library if you pass a
  60          * negative time_t. Use 2000-01-01 as default date.
  61          */
  62 #ifndef G_DISABLE_CHECKS
  63         g_return_if_fail_warning (G_LOG_DOMAIN, G_STRFUNC, "ptm != NULL");
  64 #endif
  65
  66         retval->tm_mon = 0;
  67         retval->tm_mday = 1;
  68         retval->tm_year = 100;
  69       }
  70     else
  71       memcpy ((void *) retval, (void *) ptm, sizeof (struct tm));
  72   }
  73 #endif /* HAVE_LOCALTIME_R */
  74 }
  75
  76 static void
  77 test_GDateTime_now (void)
  78 {
  79   GDateTime *dt;
  80   struct tm tm;
  81   time_t before;
  82   time_t after;
  83
  84   /* before <= dt.to_unix() <= after, but the inequalities might not be
  85    * equality if we're close to the boundary between seconds.
  86    * We loop until before == after (and hence dt.to_unix() should equal both)
  87    * to guard against that. */
  88   do
  89     {
  90       before = g_get_real_time () / G_TIME_SPAN_SECOND;
  91
  92       memset (&tm, 0, sizeof (tm));
  93       get_localtime_tm (before, &tm);
  94
  95       dt = g_date_time_new_now_local ();
  96
  97       after = g_get_real_time () / G_TIME_SPAN_SECOND;
  98     }
  99   while (before != after);
 100
 101   g_assert_cmpint (g_date_time_get_year (dt), ==, 1900 + tm.tm_year);
 102   g_assert_cmpint (g_date_time_get_month (dt), ==, 1 + tm.tm_mon);
 103   g_assert_cmpint (g_date_time_get_day_of_month (dt), ==, tm.tm_mday);
 104   g_assert_cmpint (g_date_time_get_hour (dt), ==, tm.tm_hour);
 105   g_assert_cmpint (g_date_time_get_minute (dt), ==, tm.tm_min);
 106   g_assert_cmpint (g_date_time_get_second (dt), ==, tm.tm_sec);
 107
 108   g_date_time_unref (dt);
 109 }
 110
 111 static void
 112 test_GDateTime_new_from_unix (void)
 113 {
 114   GDateTime *dt;
 115   struct tm  tm;
 116   time_t     t;
 117
 118   memset (&tm, 0, sizeof (tm));
 119   t = time (NULL);
 120   g_assert_cmpint (t, !=, (time_t) -1);
 121   get_localtime_tm (t, &tm);
 122
 123   dt = g_date_time_new_from_unix_local (t);
 124   g_assert_cmpint (g_date_time_get_year (dt), ==, 1900 + tm.tm_year);
 125   g_assert_cmpint (g_date_time_get_month (dt), ==, 1 + tm.tm_mon);
 126   g_assert_cmpint (g_date_time_get_day_of_month (dt), ==, tm.tm_mday);
 127   g_assert_cmpint (g_date_time_get_hour (dt), ==, tm.tm_hour);
 128   g_assert_cmpint (g_date_time_get_minute (dt), ==, tm.tm_min);
 129   g_assert_cmpint (g_date_time_get_second (dt), ==, tm.tm_sec);
 130   g_date_time_unref (dt);
 131
 132   /* Choose 1990-01-01 04:00:00 because no DST leaps happened then. The more
 133    * obvious 1990-01-01 00:00:00 was a DST leap in America/Lima (which has,
 134    * confusingly, since stopped using DST). */
 135   memset (&tm, 0, sizeof (tm));
 136   tm.tm_year = 90;
 137   tm.tm_mday = 1;
 138   tm.tm_mon = 0;
 139   tm.tm_hour = 4;
 140   tm.tm_min = 0;
 141   tm.tm_sec = 0;
 142   tm.tm_isdst = -1;
 143   t = mktime (&tm);
 144
 145   dt = g_date_time_new_from_unix_local (t);
 146   g_assert_cmpint (g_date_time_get_year (dt), ==, 1990);
 147   g_assert_cmpint (g_date_time_get_month (dt), ==, 1);
 148   g_assert_cmpint (g_date_time_get_day_of_month (dt), ==, 1);
 149   g_assert_cmpint (g_date_time_get_hour (dt), ==, 4);
 150   g_assert_cmpint (g_date_time_get_minute (dt), ==, 0);
 151   g_assert_cmpint (g_date_time_get_second (dt), ==, 0);
 152   g_date_time_unref (dt);
 153 }
 154
 155 /* Check that trying to create a #GDateTime too far in the future reliably
 156  * fails. Previously, the checks for this overflowed and it silently returned
 157  * an incorrect #GDateTime. */
 158 static void
 159 test_GDateTime_new_from_unix_overflow (void)
 160 {
 161   GDateTime *dt;
 162
 163   g_test_bug ("782089");
 164
 165   dt = g_date_time_new_from_unix_utc (G_MAXINT64);
 166   g_assert_null (dt);
 167
 168   dt = g_date_time_new_from_unix_local (G_MAXINT64);
 169   g_assert_null (dt);
 170 }
 171
 172 static void
 173 test_GDateTime_invalid (void)
 174 {
 175   GDateTime *dt;
 176
 177   g_test_bug ("702674");
 178
 179   dt = g_date_time_new_utc (2013, -2147483647, 31, 17, 15, 48);
 180   g_assert (dt == NULL);
 181 }
 182
 183 static void
 184 test_GDateTime_compare (void)
 185 {
 186   GDateTime *dt1, *dt2;
 187   gint       i;
 188
 189   dt1 = g_date_time_new_utc (2000, 1, 1, 0, 0, 0);
 190
 191   for (i = 1; i < 2000; i++)
 192     {
 193       dt2 = g_date_time_new_utc (i, 12, 31, 0, 0, 0);
 194       g_assert_cmpint (1, ==, g_date_time_compare (dt1, dt2));
 195       g_date_time_unref (dt2);
 196     }
 197
 198   dt2 = g_date_time_new_utc (1999, 12, 31, 23, 59, 59);
 199   g_assert_cmpint (1, ==, g_date_time_compare (dt1, dt2));
 200   g_date_time_unref (dt2);
 201
 202   dt2 = g_date_time_new_utc (2000, 1, 1, 0, 0, 1);
 203   g_assert_cmpint (-1, ==, g_date_time_compare (dt1, dt2));
 204   g_date_time_unref (dt2);
 205
 206   dt2 = g_date_time_new_utc (2000, 1, 1, 0, 0, 0);
 207   g_assert_cmpint (0, ==, g_date_time_compare (dt1, dt2));
 208   g_date_time_unref (dt2);
 209   g_date_time_unref (dt1);
 210 }
 211
 212 static void
 213 test_GDateTime_equal (void)
 214 {
 215   GDateTime *dt1, *dt2;
 216   GTimeZone *tz;
 217
 218   dt1 = g_date_time_new_local (2009, 10, 19, 0, 0, 0);
 219   dt2 = g_date_time_new_local (2009, 10, 19, 0, 0, 0);
 220   g_assert (g_date_time_equal (dt1, dt2));
 221   g_date_time_unref (dt1);
 222   g_date_time_unref (dt2);
 223
 224   dt1 = g_date_time_new_local (2009, 10, 18, 0, 0, 0);
 225   dt2 = g_date_time_new_local (2009, 10, 19, 0, 0, 0);
 226   g_assert (!g_date_time_equal (dt1, dt2));
 227   g_date_time_unref (dt1);
 228   g_date_time_unref (dt2);
 229
 230   /* UTC-0300 and not in DST */
 231   tz = g_time_zone_new ("-03:00");
 232   dt1 = g_date_time_new (tz, 2010, 5, 24,  8, 0, 0);
 233   g_time_zone_unref (tz);
 234   g_assert_cmpint (g_date_time_get_utc_offset (dt1) / G_USEC_PER_SEC, ==, (-3 * 3600));
 235   /* UTC */
 236   dt2 = g_date_time_new_utc (2010, 5, 24, 11, 0, 0);
 237   g_assert_cmpint (g_date_time_get_utc_offset (dt2), ==, 0);
 238
 239   g_assert (g_date_time_equal (dt1, dt2));
 240   g_date_time_unref (dt1);
 241
 242   /* America/Recife is in UTC-0300 */
 243 #ifdef G_OS_UNIX
 244   tz = g_time_zone_new ("America/Recife");
 245 #elif defined G_OS_WIN32
 246   tz = g_time_zone_new ("E. South America Standard Time");
 247 #endif
 248   dt1 = g_date_time_new (tz, 2010, 5, 24,  8, 0, 0);
 249   g_time_zone_unref (tz);
 250   g_assert_cmpint (g_date_time_get_utc_offset (dt1) / G_USEC_PER_SEC, ==, (-3 * 3600));
 251   g_assert (g_date_time_equal (dt1, dt2));
 252   g_date_time_unref (dt1);
 253   g_date_time_unref (dt2);
 254 }
 255
 256 static void
 257 test_GDateTime_get_day_of_week (void)
 258 {
 259   GDateTime *dt;
 260
 261   dt = g_date_time_new_local (2009, 10, 19, 0, 0, 0);
 262   g_assert_cmpint (1, ==, g_date_time_get_day_of_week (dt));
 263   g_date_time_unref (dt);
 264
 265   dt = g_date_time_new_local (2000, 10, 1, 0, 0, 0);
 266   g_assert_cmpint (7, ==, g_date_time_get_day_of_week (dt));
 267   g_date_time_unref (dt);
 268 }
 269
 270 static void
 271 test_GDateTime_get_day_of_month (void)
 272 {
 273   GDateTime *dt;
 274
 275   dt = g_date_time_new_local (2009, 10, 19, 0, 0, 0);
 276   g_assert_cmpint (g_date_time_get_day_of_month (dt), ==, 19);
 277   g_date_time_unref (dt);
 278
 279   dt = g_date_time_new_local (1400, 3, 12, 0, 0, 0);
 280   g_assert_cmpint (g_date_time_get_day_of_month (dt), ==, 12);
 281   g_date_time_unref (dt);
 282
 283   dt = g_date_time_new_local (1800, 12, 31, 0, 0, 0);
 284   g_assert_cmpint (g_date_time_get_day_of_month (dt), ==, 31);
 285   g_date_time_unref (dt);
 286
 287   dt = g_date_time_new_local (1000, 1, 1, 0, 0, 0);
 288   g_assert_cmpint (g_date_time_get_day_of_month (dt), ==, 1);
 289   g_date_time_unref (dt);
 290 }
 291
 292 static void
 293 test_GDateTime_get_hour (void)
 294 {
 295   GDateTime *dt;
 296
 297   dt = g_date_time_new_utc (2009, 10, 19, 15, 13, 11);
 298   g_assert_cmpint (15, ==, g_date_time_get_hour (dt));
 299   g_date_time_unref (dt);
 300
 301   dt = g_date_time_new_utc (100, 10, 19, 1, 0, 0);
 302   g_assert_cmpint (1, ==, g_date_time_get_hour (dt));
 303   g_date_time_unref (dt);
 304
 305   dt = g_date_time_new_utc (100, 10, 19, 0, 0, 0);
 306   g_assert_cmpint (0, ==, g_date_time_get_hour (dt));
 307   g_date_time_unref (dt);
 308
 309   dt = g_date_time_new_utc (100, 10, 1, 23, 59, 59);
 310   g_assert_cmpint (23, ==, g_date_time_get_hour (dt));
 311   g_date_time_unref (dt);
 312 }
 313
 314 G_GNUC_BEGIN_IGNORE_DEPRECATIONS
 315 static void
 316 test_GDateTime_get_microsecond (void)
 317 {
 318   GTimeVal   tv;
 319   GDateTime *dt;
 320
 321   g_get_current_time (&tv);
 322   dt = g_date_time_new_from_timeval_local (&tv);
 323   g_assert_cmpint (tv.tv_usec, ==, g_date_time_get_microsecond (dt));
 324   g_date_time_unref (dt);
 325 }
 326 G_GNUC_END_IGNORE_DEPRECATIONS
 327
 328 static void
 329 test_GDateTime_get_year (void)
 330 {
 331   GDateTime *dt;
 332
 333   dt = g_date_time_new_local (2009, 1, 1, 0, 0, 0);
 334   g_assert_cmpint (2009, ==, g_date_time_get_year (dt));
 335   g_date_time_unref (dt);
 336
 337   dt = g_date_time_new_local (1, 1, 1, 0, 0, 0);
 338   g_assert_cmpint (1, ==, g_date_time_get_year (dt));
 339   g_date_time_unref (dt);
 340
 341   dt = g_date_time_new_local (13, 1, 1, 0, 0, 0);
 342   g_assert_cmpint (13, ==, g_date_time_get_year (dt));
 343   g_date_time_unref (dt);
 344
 345   dt = g_date_time_new_local (3000, 1, 1, 0, 0, 0);
 346   g_assert_cmpint (3000, ==, g_date_time_get_year (dt));
 347   g_date_time_unref (dt);
 348 }
 349
 350 static void
 351 test_GDateTime_hash (void)
 352 {
 353   GHashTable *h;
 354
 355   h = g_hash_table_new_full (g_date_time_hash, g_date_time_equal,
 356                              (GDestroyNotify)g_date_time_unref,
 357                              NULL);
 358   g_hash_table_add (h, g_date_time_new_now_local ());
 359   g_hash_table_remove_all (h);
 360   g_hash_table_destroy (h);
 361 }
 362
 363 G_GNUC_BEGIN_IGNORE_DEPRECATIONS
 364 static void
 365 test_GDateTime_new_from_timeval (void)
 366 {
 367   GDateTime *dt;
 368   GTimeVal   tv, tv2;
 369
 370   g_get_current_time (&tv);
 371   dt = g_date_time_new_from_timeval_local (&tv);
 372
 373   if (g_test_verbose ())
 374     g_printerr ("\nDT%04d-%02d-%02dT%02d:%02d:%02d%s\n",
 375              g_date_time_get_year (dt),
 376              g_date_time_get_month (dt),
 377              g_date_time_get_day_of_month (dt),
 378              g_date_time_get_hour (dt),
 379              g_date_time_get_minute (dt),
 380              g_date_time_get_second (dt),
 381              g_date_time_get_timezone_abbreviation (dt));
 382
 383   g_date_time_to_timeval (dt, &tv2);
 384   g_assert_cmpint (tv.tv_sec, ==, tv2.tv_sec);
 385   g_assert_cmpint (tv.tv_usec, ==, tv2.tv_usec);
 386   g_date_time_unref (dt);
 387 }
 388
 389 static glong
 390 find_maximum_supported_tv_sec (void)
 391 {
 392   glong highest_success = 0, lowest_failure = G_MAXLONG;
 393   GTimeVal tv;
 394   GDateTime *dt = NULL;
 395
 396   tv.tv_usec = 0;
 397
 398   /* Corner case of all glong values being valid. */
 399   tv.tv_sec = G_MAXLONG;
 400   dt = g_date_time_new_from_timeval_utc (&tv);
 401   if (dt != NULL)
 402     {
 403       highest_success = tv.tv_sec;
 404       g_date_time_unref (dt);
 405     }
 406
 407   while (highest_success < lowest_failure - 1)
 408     {
 409       tv.tv_sec = highest_success + (lowest_failure - highest_success) / 2;
 410       dt = g_date_time_new_from_timeval_utc (&tv);
 411
 412       if (dt != NULL)
 413         {
 414           highest_success = tv.tv_sec;
 415           g_date_time_unref (dt);
 416         }
 417       else
 418         {
 419           lowest_failure = tv.tv_sec;
 420         }
 421     }
 422
 423   return highest_success;
 424 }
 425
 426 /* Check that trying to create a #GDateTime too far in the future reliably
 427  * fails. With a #GTimeVal, this is subtle, as the tv_usec are added into the
 428  * calculation part-way through.
 429  *
 430  * This varies a bit between 32- and 64-bit architectures, due to the
 431  * differences in the size of glong (tv.tv_sec). */
 432 static void
 433 test_GDateTime_new_from_timeval_overflow (void)
 434 {
 435   GDateTime *dt;
 436   GTimeVal tv;
 437
 438   g_test_bug ("782089");
 439
 440   tv.tv_sec = find_maximum_supported_tv_sec ();
 441   tv.tv_usec = G_USEC_PER_SEC - 1;
 442
 443   g_test_message ("Maximum supported GTimeVal.tv_sec = %lu", tv.tv_sec);
 444
 445   /* Sanity check: do we support the year 2000? */
 446   g_assert_cmpint (tv.tv_sec, >=, 946684800);
 447
 448   dt = g_date_time_new_from_timeval_utc (&tv);
 449   g_assert_nonnull (dt);
 450   g_date_time_unref (dt);
 451
 452   if (tv.tv_sec < G_MAXLONG)
 453     {
 454       tv.tv_sec++;
 455       tv.tv_usec = 0;
 456
 457       dt = g_date_time_new_from_timeval_utc (&tv);
 458       g_assert_null (dt);
 459     }
 460 }
 461
 462 static void
 463 test_GDateTime_new_from_timeval_utc (void)
 464 {
 465   GDateTime *dt;
 466   GTimeVal   tv, tv2;
 467
 468   g_get_current_time (&tv);
 469   dt = g_date_time_new_from_timeval_utc (&tv);
 470
 471   if (g_test_verbose ())
 472     g_printerr ("\nDT%04d-%02d-%02dT%02d:%02d:%02d%s\n",
 473              g_date_time_get_year (dt),
 474              g_date_time_get_month (dt),
 475              g_date_time_get_day_of_month (dt),
 476              g_date_time_get_hour (dt),
 477              g_date_time_get_minute (dt),
 478              g_date_time_get_second (dt),
 479              g_date_time_get_timezone_abbreviation (dt));
 480
 481   g_date_time_to_timeval (dt, &tv2);
 482   g_assert_cmpint (tv.tv_sec, ==, tv2.tv_sec);
 483   g_assert_cmpint (tv.tv_usec, ==, tv2.tv_usec);
 484   g_date_time_unref (dt);
 485 }
 486 G_GNUC_END_IGNORE_DEPRECATIONS
 487
 488 static void
 489 test_GDateTime_new_from_iso8601 (void)
 490 {
 491   GDateTime *dt;
 492   GTimeZone *tz;
 493
 494   /* Need non-empty string */
 495   dt = g_date_time_new_from_iso8601 ("", NULL);
 496   g_assert_null (dt);
 497
 498   /* Needs to be correctly formatted */
 499   dt = g_date_time_new_from_iso8601 ("not a date", NULL);
 500   g_assert_null (dt);
 501
 502   dt = g_date_time_new_from_iso8601 (" +55", NULL);
 503   g_assert_null (dt);
 504
 505   /* Check common case */
 506   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42Z", NULL);
 507   ASSERT_DATE (dt, 2016, 8, 24);
 508   ASSERT_TIME (dt, 22, 10, 42, 0);
 509   g_date_time_unref (dt);
 510
 511   /* Timezone is required in text or passed as arg */
 512   tz = g_time_zone_new_utc ();
 513   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42", tz);
 514   ASSERT_DATE (dt, 2016, 8, 24);
 515   g_date_time_unref (dt);
 516   g_time_zone_unref (tz);
 517   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42", NULL);
 518   g_assert_null (dt);
 519
 520   /* Can't have whitespace */
 521   dt = g_date_time_new_from_iso8601 ("2016 08 24T22:10:42Z", NULL);
 522   g_assert_null (dt);
 523   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42Z ", NULL);
 524   g_assert_null (dt);
 525   dt = g_date_time_new_from_iso8601 (" 2016-08-24T22:10:42Z", NULL);
 526   g_assert_null (dt);
 527
 528   /* Check lowercase time separator or space allowed */
 529   dt = g_date_time_new_from_iso8601 ("2016-08-24t22:10:42Z", NULL);
 530   ASSERT_DATE (dt, 2016, 8, 24);
 531   ASSERT_TIME (dt, 22, 10, 42, 0);
 532   g_date_time_unref (dt);
 533   dt = g_date_time_new_from_iso8601 ("2016-08-24 22:10:42Z", NULL);
 534   ASSERT_DATE (dt, 2016, 8, 24);
 535   ASSERT_TIME (dt, 22, 10, 42, 0);
 536   g_date_time_unref (dt);
 537
 538   /* Check dates without separators allowed */
 539   dt = g_date_time_new_from_iso8601 ("20160824T22:10:42Z", NULL);
 540   ASSERT_DATE (dt, 2016, 8, 24);
 541   ASSERT_TIME (dt, 22, 10, 42, 0);
 542   g_date_time_unref (dt);
 543
 544   /* Months are two digits */
 545   dt = g_date_time_new_from_iso8601 ("2016-1-01T22:10:42Z", NULL);
 546   g_assert_null (dt);
 547
 548   /* Days are two digits */
 549   dt = g_date_time_new_from_iso8601 ("2016-01-1T22:10:42Z", NULL);
 550   g_assert_null (dt);
 551
 552   /* Need consistent usage of separators */
 553   dt = g_date_time_new_from_iso8601 ("2016-0824T22:10:42Z", NULL);
 554   g_assert_null (dt);
 555   dt = g_date_time_new_from_iso8601 ("201608-24T22:10:42Z", NULL);
 556   g_assert_null (dt);
 557
 558   /* Check month within valid range */
 559   dt = g_date_time_new_from_iso8601 ("2016-00-13T22:10:42Z", NULL);
 560   g_assert_null (dt);
 561   dt = g_date_time_new_from_iso8601 ("2016-13-13T22:10:42Z", NULL);
 562   g_assert_null (dt);
 563
 564   /* Check day within valid range */
 565   dt = g_date_time_new_from_iso8601 ("2016-01-00T22:10:42Z", NULL);
 566   g_assert_null (dt);
 567   dt = g_date_time_new_from_iso8601 ("2016-01-31T22:10:42Z", NULL);
 568   ASSERT_DATE (dt, 2016, 1, 31);
 569   g_date_time_unref (dt);
 570   dt = g_date_time_new_from_iso8601 ("2016-01-32T22:10:42Z", NULL);
 571   g_assert_null (dt);
 572   dt = g_date_time_new_from_iso8601 ("2016-02-29T22:10:42Z", NULL);
 573   ASSERT_DATE (dt, 2016, 2, 29);
 574   g_date_time_unref (dt);
 575   dt = g_date_time_new_from_iso8601 ("2016-02-30T22:10:42Z", NULL);
 576   g_assert_null (dt);
 577   dt = g_date_time_new_from_iso8601 ("2017-02-28T22:10:42Z", NULL);
 578   ASSERT_DATE (dt, 2017, 2, 28);
 579   g_date_time_unref (dt);
 580   dt = g_date_time_new_from_iso8601 ("2017-02-29T22:10:42Z", NULL);
 581   g_assert_null (dt);
 582   dt = g_date_time_new_from_iso8601 ("2016-03-31T22:10:42Z", NULL);
 583   ASSERT_DATE (dt, 2016, 3, 31);
 584   g_date_time_unref (dt);
 585   dt = g_date_time_new_from_iso8601 ("2016-03-32T22:10:42Z", NULL);
 586   g_assert_null (dt);
 587   dt = g_date_time_new_from_iso8601 ("2016-04-30T22:10:42Z", NULL);
 588   ASSERT_DATE (dt, 2016, 4, 30);
 589   g_date_time_unref (dt);
 590   dt = g_date_time_new_from_iso8601 ("2016-04-31T22:10:42Z", NULL);
 591   g_assert_null (dt);
 592   dt = g_date_time_new_from_iso8601 ("2016-05-31T22:10:42Z", NULL);
 593   ASSERT_DATE (dt, 2016, 5, 31);
 594   g_date_time_unref (dt);
 595   dt = g_date_time_new_from_iso8601 ("2016-05-32T22:10:42Z", NULL);
 596   g_assert_null (dt);
 597   dt = g_date_time_new_from_iso8601 ("2016-06-30T22:10:42Z", NULL);
 598   ASSERT_DATE (dt, 2016, 6, 30);
 599   g_date_time_unref (dt);
 600   dt = g_date_time_new_from_iso8601 ("2016-06-31T22:10:42Z", NULL);
 601   g_assert_null (dt);
 602   dt = g_date_time_new_from_iso8601 ("2016-07-31T22:10:42Z", NULL);
 603   ASSERT_DATE (dt, 2016, 7, 31);
 604   g_date_time_unref (dt);
 605   dt = g_date_time_new_from_iso8601 ("2016-07-32T22:10:42Z", NULL);
 606   g_assert_null (dt);
 607   dt = g_date_time_new_from_iso8601 ("2016-08-31T22:10:42Z", NULL);
 608   ASSERT_DATE (dt, 2016, 8, 31);
 609   g_date_time_unref (dt);
 610   dt = g_date_time_new_from_iso8601 ("2016-08-32T22:10:42Z", NULL);
 611   g_assert_null (dt);
 612   dt = g_date_time_new_from_iso8601 ("2016-09-30T22:10:42Z", NULL);
 613   ASSERT_DATE (dt, 2016, 9, 30);
 614   g_date_time_unref (dt);
 615   dt = g_date_time_new_from_iso8601 ("2016-09-31T22:10:42Z", NULL);
 616   g_assert_null (dt);
 617   dt = g_date_time_new_from_iso8601 ("2016-10-31T22:10:42Z", NULL);
 618   ASSERT_DATE (dt, 2016, 10, 31);
 619   g_date_time_unref (dt);
 620   dt = g_date_time_new_from_iso8601 ("2016-10-32T22:10:42Z", NULL);
 621   g_assert_null (dt);
 622   dt = g_date_time_new_from_iso8601 ("2016-11-30T22:10:42Z", NULL);
 623   ASSERT_DATE (dt, 2016, 11, 30);
 624   g_date_time_unref (dt);
 625   dt = g_date_time_new_from_iso8601 ("2016-11-31T22:10:42Z", NULL);
 626   g_assert_null (dt);
 627   dt = g_date_time_new_from_iso8601 ("2016-12-31T22:10:42Z", NULL);
 628   ASSERT_DATE (dt, 2016, 12, 31);
 629   g_date_time_unref (dt);
 630   dt = g_date_time_new_from_iso8601 ("2016-12-32T22:10:42Z", NULL);
 631   g_assert_null (dt);
 632
 633   /* Check ordinal days work */
 634   dt = g_date_time_new_from_iso8601 ("2016-237T22:10:42Z", NULL);
 635   ASSERT_DATE (dt, 2016, 8, 24);
 636   ASSERT_TIME (dt, 22, 10, 42, 0);
 637   g_date_time_unref (dt);
 638   dt = g_date_time_new_from_iso8601 ("2016237T22:10:42Z", NULL);
 639   ASSERT_DATE (dt, 2016, 8, 24);
 640   ASSERT_TIME (dt, 22, 10, 42, 0);
 641   g_date_time_unref (dt);
 642
 643   /* Check ordinal leap days */
 644   dt = g_date_time_new_from_iso8601 ("2016-366T22:10:42Z", NULL);
 645   ASSERT_DATE (dt, 2016, 12, 31);
 646   ASSERT_TIME (dt, 22, 10, 42, 0);
 647   g_date_time_unref (dt);
 648   dt = g_date_time_new_from_iso8601 ("2017-365T22:10:42Z", NULL);
 649   ASSERT_DATE (dt, 2017, 12, 31);
 650   ASSERT_TIME (dt, 22, 10, 42, 0);
 651   g_date_time_unref (dt);
 652   dt = g_date_time_new_from_iso8601 ("2017-366T22:10:42Z", NULL);
 653   g_assert_null (dt);
 654
 655   /* Days start at 1 */
 656   dt = g_date_time_new_from_iso8601 ("2016-000T22:10:42Z", NULL);
 657   g_assert_null (dt);
 658
 659   /* Limited to number of days in the year (2016 is a leap year) */
 660   dt = g_date_time_new_from_iso8601 ("2016-367T22:10:42Z", NULL);
 661   g_assert_null (dt);
 662
 663   /* Days are two digits */
 664   dt = g_date_time_new_from_iso8601 ("2016-1T22:10:42Z", NULL);
 665   g_assert_null (dt);
 666   dt = g_date_time_new_from_iso8601 ("2016-12T22:10:42Z", NULL);
 667   g_assert_null (dt);
 668
 669   /* Check week days work */
 670   dt = g_date_time_new_from_iso8601 ("2016-W34-3T22:10:42Z", NULL);
 671   ASSERT_DATE (dt, 2016, 8, 24);
 672   ASSERT_TIME (dt, 22, 10, 42, 0);
 673   g_date_time_unref (dt);
 674   dt = g_date_time_new_from_iso8601 ("2016W343T22:10:42Z", NULL);
 675   ASSERT_DATE (dt, 2016, 8, 24);
 676   ASSERT_TIME (dt, 22, 10, 42, 0);
 677   g_date_time_unref (dt);
 678
 679   /* We don't support weeks without weekdays (valid ISO 8601) */
 680   dt = g_date_time_new_from_iso8601 ("2016-W34T22:10:42Z", NULL);
 681   g_assert_null (dt);
 682   dt = g_date_time_new_from_iso8601 ("2016W34T22:10:42Z", NULL);
 683   g_assert_null (dt);
 684
 685   /* Weeks are two digits */
 686   dt = g_date_time_new_from_iso8601 ("2016-W3-1T22:10:42Z", NULL);
 687   g_assert_null (dt);
 688
 689   /* Weeks start at 1 */
 690   dt = g_date_time_new_from_iso8601 ("2016-W00-1T22:10:42Z", NULL);
 691   g_assert_null (dt);
 692
 693   /* Week one might be in the previous year */
 694   dt = g_date_time_new_from_iso8601 ("2015-W01-1T22:10:42Z", NULL);
 695   ASSERT_DATE (dt, 2014, 12, 29);
 696   g_date_time_unref (dt);
 697
 698   /* Last week might be in next year */
 699   dt = g_date_time_new_from_iso8601 ("2015-W53-7T22:10:42Z", NULL);
 700   ASSERT_DATE (dt, 2016, 1, 3);
 701   g_date_time_unref (dt);
 702
 703   /* Week 53 doesn't always exist */
 704   dt = g_date_time_new_from_iso8601 ("2016-W53-1T22:10:42Z", NULL);
 705   g_assert_null (dt);
 706
 707   /* Limited to number of days in the week */
 708   dt = g_date_time_new_from_iso8601 ("2016-W34-0T22:10:42Z", NULL);
 709   g_assert_null (dt);
 710   dt = g_date_time_new_from_iso8601 ("2016-W34-8T22:10:42Z", NULL);
 711   g_assert_null (dt);
 712
 713   /* Days are one digit */
 714   dt = g_date_time_new_from_iso8601 ("2016-W34-99T22:10:42Z", NULL);
 715   g_assert_null (dt);
 716
 717   /* Check week day changes depending on year */
 718   dt = g_date_time_new_from_iso8601 ("2017-W34-1T22:10:42Z", NULL);
 719   ASSERT_DATE (dt, 2017, 8, 21);
 720   g_date_time_unref (dt);
 721
 722   /* Check week day changes depending on leap years */
 723   dt = g_date_time_new_from_iso8601 ("1900-W01-1T22:10:42Z", NULL);
 724   ASSERT_DATE (dt, 1900, 1, 1);
 725   g_date_time_unref (dt);
 726
 727   /* YYYY-MM not allowed (NOT valid ISO 8601) */
 728   dt = g_date_time_new_from_iso8601 ("2016-08T22:10:42Z", NULL);
 729   g_assert_null (dt);
 730
 731   /* We don't support omitted year (valid ISO 8601) */
 732   dt = g_date_time_new_from_iso8601 ("--08-24T22:10:42Z", NULL);
 733   g_assert_null (dt);
 734   dt = g_date_time_new_from_iso8601 ("--0824T22:10:42Z", NULL);
 735   g_assert_null (dt);
 736
 737   /* Check subseconds work */
 738   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42.123456Z", NULL);
 739   ASSERT_DATE (dt, 2016, 8, 24);
 740   ASSERT_TIME (dt, 22, 10, 42, 123456);
 741   g_date_time_unref (dt);
 742   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42,123456Z", NULL);
 743   ASSERT_DATE (dt, 2016, 8, 24);
 744   ASSERT_TIME (dt, 22, 10, 42, 123456);
 745   g_date_time_unref (dt);
 746   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42.Z", NULL);
 747   g_assert_null (dt);
 748   dt = g_date_time_new_from_iso8601 ("2016-08-24T221042.123456Z", NULL);
 749   ASSERT_DATE (dt, 2016, 8, 24);
 750   ASSERT_TIME (dt, 22, 10, 42, 123456);
 751   g_date_time_unref (dt);
 752
 753   /* We don't support times without minutes / seconds (valid ISO 8601) */
 754   dt = g_date_time_new_from_iso8601 ("2016-08-24T22Z", NULL);
 755   g_assert_null (dt);
 756   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10Z", NULL);
 757   g_assert_null (dt);
 758   dt = g_date_time_new_from_iso8601 ("2016-08-24T2210Z", NULL);
 759   g_assert_null (dt);
 760
 761   /* UTC time uses 'Z' */
 762   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42Z", NULL);
 763   ASSERT_DATE (dt, 2016, 8, 24);
 764   ASSERT_TIME (dt, 22, 10, 42, 0);
 765   g_assert_cmpint (g_date_time_get_utc_offset (dt), ==, 0);
 766   g_date_time_unref (dt);
 767
 768   /* Check timezone works */
 769   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42+12:00", NULL);
 770   ASSERT_DATE (dt, 2016, 8, 24);
 771   ASSERT_TIME (dt, 22, 10, 42, 0);
 772   g_assert_cmpint (g_date_time_get_utc_offset (dt), ==, 12 * G_TIME_SPAN_HOUR);
 773   g_date_time_unref (dt);
 774   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42+12", NULL);
 775   ASSERT_DATE (dt, 2016, 8, 24);
 776   ASSERT_TIME (dt, 22, 10, 42, 0);
 777   g_assert_cmpint (g_date_time_get_utc_offset (dt), ==, 12 * G_TIME_SPAN_HOUR);
 778   g_date_time_unref (dt);
 779   dt = g_date_time_new_from_iso8601 ("2016-08-24T22:10:42-02", NULL);
 780   ASSERT_DATE (dt, 2016, 8, 24);
 781   ASSERT_TIME (dt, 22, 10, 42, 0);
 782   g_assert_cmpint (g_date_time_get_utc_offset (dt), ==, -2 * G_TIME_SPAN_HOUR);
 783   g_date_time_unref (dt);
 784
 785   /* Timezone seconds not allowed */
 786   dt = g_date_time_new_from_iso8601 ("2016-08-24T22-12:00:00", NULL);
 787   g_assert_null (dt);
 788   dt = g_date_time_new_from_iso8601 ("2016-08-24T22-12:00:00.000", NULL);
 789   g_assert_null (dt);
 790
 791   /* Timezone hours two digits */
 792   dt = g_date_time_new_from_iso8601 ("2016-08-24T22-2Z", NULL);
 793   g_assert_null (dt);
 794 }
 795
 796 typedef struct {
 797   gboolean success;
 798   const gchar *in;
 799
 800   /* Expected result: */
 801   guint year;
 802   guint month;
 803   guint day;
 804   guint hour;
 805   guint minute;
 806   guint second;
 807   guint microsecond;
 808   GTimeSpan utc_offset;
 809 } Iso8601ParseTest;
 810
 811 static void
 812 test_GDateTime_new_from_iso8601_2 (void)
 813 {
 814   const Iso8601ParseTest tests[] = {
 815     { TRUE, "1990-11-01T10:21:17Z", 1990, 11, 1, 10, 21, 17, 0, 0 },
 816     { TRUE, "19901101T102117Z", 1990, 11, 1, 10, 21, 17, 0, 0 },
 817     { TRUE, "1970-01-01T00:00:17.12Z", 1970, 1, 1, 0, 0, 17, 120000, 0 },
 818     { TRUE, "1970-01-01T00:00:17.1234Z", 1970, 1, 1, 0, 0, 17, 123400, 0 },
 819     { TRUE, "1970-01-01T00:00:17.123456Z", 1970, 1, 1, 0, 0, 17, 123456, 0 },
 820     { TRUE, "1980-02-22T12:36:00+02:00", 1980, 2, 22, 12, 36, 0, 0, 2 * G_TIME_SPAN_HOUR },
 821     { FALSE, "   ", 0, 0, 0, 0, 0, 0, 0, 0 },
 822     { FALSE, "x", 0, 0, 0, 0, 0, 0, 0, 0 },
 823     { FALSE, "123x", 0, 0, 0, 0, 0, 0, 0, 0 },
 824     { FALSE, "2001-10+x", 0, 0, 0, 0, 0, 0, 0, 0 },
 825     { FALSE, "1980-02-22T", 0, 0, 0, 0, 0, 0, 0, 0 },
 826     { FALSE, "2001-10-08Tx", 0, 0, 0, 0, 0, 0, 0, 0 },
 827     { FALSE, "2001-10-08T10:11x", 0, 0, 0, 0, 0, 0, 0, 0 },
 828     { FALSE, "Wed Dec 19 17:20:20 GMT 2007", 0, 0, 0, 0, 0, 0, 0, 0 },
 829     { FALSE, "1980-02-22T10:36:00Zulu", 0, 0, 0, 0, 0, 0, 0, 0 },
 830     { FALSE, "2T0+819855292164632335", 0, 0, 0, 0, 0, 0, 0, 0 },
 831     { TRUE, "2018-08-03T14:08:05.446178377+01:00", 2018, 8, 3, 14, 8, 5, 446178, 1 * G_TIME_SPAN_HOUR },
 832     { FALSE, "2147483648-08-03T14:08:05.446178377+01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 833     { FALSE, "2018-13-03T14:08:05.446178377+01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 834     { FALSE, "2018-00-03T14:08:05.446178377+01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 835     { FALSE, "2018-08-00T14:08:05.446178377+01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 836     { FALSE, "2018-08-32T14:08:05.446178377+01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 837     { FALSE, "2018-08-03T24:08:05.446178377+01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 838     { FALSE, "2018-08-03T14:60:05.446178377+01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 839     { FALSE, "2018-08-03T14:08:63.446178377+01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 840     { FALSE, "2018-08-03T14:08:05.446178377+100:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 841     { TRUE, "20180803T140805.446178377+0100", 2018, 8, 3, 14, 8, 5, 446178, 1 * G_TIME_SPAN_HOUR },
 842     { FALSE, "21474836480803T140805.446178377+0100", 0, 0, 0, 0, 0, 0, 0, 0 },
 843     { FALSE, "20181303T140805.446178377+0100", 0, 0, 0, 0, 0, 0, 0, 0 },
 844     { FALSE, "20180003T140805.446178377+0100", 0, 0, 0, 0, 0, 0, 0, 0 },
 845     { FALSE, "20180800T140805.446178377+0100", 0, 0, 0, 0, 0, 0, 0, 0 },
 846     { FALSE, "20180832T140805.446178377+0100", 0, 0, 0, 0, 0, 0, 0, 0 },
 847     { FALSE, "20180803T240805.446178377+0100", 0, 0, 0, 0, 0, 0, 0, 0 },
 848     { FALSE, "20180803T146005.446178377+0100", 0, 0, 0, 0, 0, 0, 0, 0 },
 849     { FALSE, "20180803T140863.446178377+0100", 0, 0, 0, 0, 0, 0, 0, 0 },
 850     { FALSE, "20180803T140805.446178377+10000", 0, 0, 0, 0, 0, 0, 0, 0 },
 851     { FALSE, "-0005-01-01T00:00:00Z", 0, 0, 0, 0, 0, 0, 0, 0 },
 852     { FALSE, "2018-08-06", 0, 0, 0, 0, 0, 0, 0, 0 },
 853     /* This is not accepted by g_time_val_from_iso8601(), but is accepted by g_date_time_new_from_iso8601():
 854     { FALSE, "2018-08-06 13:51:00Z", 0, 0, 0, 0, 0, 0, 0, 0 },
 855     * */
 856     { TRUE, "20180803T140805,446178377+0100", 2018, 8, 3, 14, 8, 5, 446178, 1 * G_TIME_SPAN_HOUR },
 857     { TRUE, "2018-08-03T14:08:05.446178377-01:00", 2018, 8, 3, 14, 8, 5, 446178, -1 * G_TIME_SPAN_HOUR },
 858     { FALSE, "2018-08-03T14:08:05.446178377 01:00", 0, 0, 0, 0, 0, 0, 0, 0 },
 859     { TRUE, "1990-11-01T10:21:17", 1990, 11, 1, 10, 21, 17, 0, 0 },
 860     /* These are accepted by g_time_val_from_iso8601(), but not by g_date_time_new_from_iso8601():
 861     { TRUE, "19901101T102117+5", 1990, 11, 1, 10, 21, 17, 0, 5 * G_TIME_SPAN_HOUR },
 862     { TRUE, "19901101T102117+3:15", 1990, 11, 1, 10, 21, 17, 0, 3 * G_TIME_SPAN_HOUR + 15 * G_TIME_SPAN_MINUTE },
 863     { TRUE, "  1990-11-01T10:21:17Z  ", 1990, 11, 1, 10, 21, 17, 0, 0 },
 864     { FALSE, "2018-08-03T14:08:05.446178377+01:60", 0, 0, 0, 0, 0, 0, 0, 0 },
 865     { FALSE, "20180803T140805.446178377+0160", 0, 0, 0, 0, 0, 0, 0, 0 },
 866     { TRUE, "+1980-02-22T12:36:00+02:00", 1980, 2, 22, 12, 36, 0, 0, 2 * G_TIME_SPAN_HOUR },
 867     { TRUE, "1990-11-01T10:21:17     ", 1990, 11, 1, 10, 21, 17, 0, 0 },
 868     */
 869     { FALSE, "1719W462 407777-07", 0, 0, 0, 0, 0, 0, 0, 0 },
 870     { FALSE, "4011090 260528Z", 0, 0, 0, 0, 0, 0, 0, 0 },
 871     { FALSE, "0000W011 228214-22", 0, 0, 0, 0, 0, 0, 0, 0 },
 872   };
 873   GTimeZone *tz = NULL;
 874   GDateTime *dt = NULL;
 875   gsize i;
 876
 877   g_test_summary ("Further parser tests for g_date_time_new_from_iso8601(), "
 878                   "checking success and failure using test vectors.");
 879
 880   tz = g_time_zone_new_utc ();
 881
 882   for (i = 0; i < G_N_ELEMENTS (tests); i++)
 883     {
 884       g_test_message ("Vector %" G_GSIZE_FORMAT ": %s", i, tests[i].in);
 885
 886       dt = g_date_time_new_from_iso8601 (tests[i].in, tz);
 887       if (tests[i].success)
 888         {
 889           g_assert_nonnull (dt);
 890           ASSERT_DATE (dt, tests[i].year, tests[i].month, tests[i].day);
 891           ASSERT_TIME (dt, tests[i].hour, tests[i].minute, tests[i].second, tests[i].microsecond);
 892           g_assert_cmpint (g_date_time_get_utc_offset (dt), ==, tests[i].utc_offset);
 893         }
 894       else
 895         {
 896           g_assert_null (dt);
 897         }
 898
 899       g_clear_pointer (&dt, g_date_time_unref);
 900     }
 901
 902   g_time_zone_unref (tz);
 903 }
 904
 905 static void
 906 test_GDateTime_to_unix (void)
 907 {
 908   GDateTime *dt;
 909   time_t     t;
 910
 911   t = time (NULL);
 912   g_assert_cmpint (t, !=, (time_t) -1);
 913   dt = g_date_time_new_from_unix_local (t);
 914   g_assert_cmpint (g_date_time_to_unix (dt), ==, t);
 915   g_date_time_unref (dt);
 916 }
 917
 918 static void
 919 test_GDateTime_add_years (void)
 920 {
 921   GDateTime *dt, *dt2;
 922
 923   dt = g_date_time_new_local (2009, 10, 19, 0, 0, 0);
 924   dt2 = g_date_time_add_years (dt, 1);
 925   g_assert_cmpint (2010, ==, g_date_time_get_year (dt2));
 926   g_date_time_unref (dt);
 927   g_date_time_unref (dt2);
 928 }
 929
 930 static void
 931 test_GDateTime_add_months (void)
 932 {
 933 #define TEST_ADD_MONTHS(y,m,d,a,ny,nm,nd) G_STMT_START { \
 934   GDateTime *dt, *dt2; \
 935   dt = g_date_time_new_utc (y, m, d, 0, 0, 0); \
 936   dt2 = g_date_time_add_months (dt, a); \
 937   ASSERT_DATE (dt2, ny, nm, nd); \
 938   g_date_time_unref (dt); \
 939   g_date_time_unref (dt2); \
 940 } G_STMT_END
 941
 942   TEST_ADD_MONTHS (2009, 12, 31,    1, 2010, 1, 31);
 943   TEST_ADD_MONTHS (2009, 12, 31,    1, 2010, 1, 31);
 944   TEST_ADD_MONTHS (2009,  6, 15,    1, 2009, 7, 15);
 945   TEST_ADD_MONTHS (1400,  3,  1,    1, 1400, 4,  1);
 946   TEST_ADD_MONTHS (1400,  1, 31,    1, 1400, 2, 28);
 947   TEST_ADD_MONTHS (1400,  1, 31, 7200, 2000, 1, 31);
 948   TEST_ADD_MONTHS (2008,  2, 29,   12, 2009, 2, 28);
 949   TEST_ADD_MONTHS (2000,  8, 16,   -5, 2000, 3, 16);
 950   TEST_ADD_MONTHS (2000,  8, 16,  -12, 1999, 8, 16);
 951   TEST_ADD_MONTHS (2011,  2,  1,  -13, 2010, 1,  1);
 952   TEST_ADD_MONTHS (1776,  7,  4, 1200, 1876, 7,  4);
 953 }
 954
 955 static void
 956 test_GDateTime_add_days (void)
 957 {
 958 #define TEST_ADD_DAYS(y,m,d,a,ny,nm,nd) G_STMT_START { \
 959   GDateTime *dt, *dt2; \
 960   dt = g_date_time_new_local (y, m, d, 0, 0, 0); \
 961   dt2 = g_date_time_add_days (dt, a); \
 962   g_assert_cmpint (ny, ==, g_date_time_get_year (dt2)); \
 963   g_assert_cmpint (nm, ==, g_date_time_get_month (dt2)); \
 964   g_assert_cmpint (nd, ==, g_date_time_get_day_of_month (dt2)); \
 965   g_date_time_unref (dt); \
 966   g_date_time_unref (dt2); \
 967 } G_STMT_END
 968
 969   TEST_ADD_DAYS (2009, 1, 31, 1, 2009, 2, 1);
 970   TEST_ADD_DAYS (2009, 2, 1, -1, 2009, 1, 31);
 971   TEST_ADD_DAYS (2008, 2, 28, 1, 2008, 2, 29);
 972   TEST_ADD_DAYS (2008, 12, 31, 1, 2009, 1, 1);
 973   TEST_ADD_DAYS (1, 1, 1, 1, 1, 1, 2);
 974   TEST_ADD_DAYS (1955, 5, 24, 10, 1955, 6, 3);
 975   TEST_ADD_DAYS (1955, 5, 24, -10, 1955, 5, 14);
 976 }
 977
 978 static void
 979 test_GDateTime_add_weeks (void)
 980 {
 981 #define TEST_ADD_WEEKS(y,m,d,a,ny,nm,nd) G_STMT_START { \
 982   GDateTime *dt, *dt2; \
 983   dt = g_date_time_new_local (y, m, d, 0, 0, 0); \
 984   dt2 = g_date_time_add_weeks (dt, a); \
 985   g_assert_cmpint (ny, ==, g_date_time_get_year (dt2)); \
 986   g_assert_cmpint (nm, ==, g_date_time_get_month (dt2)); \
 987   g_assert_cmpint (nd, ==, g_date_time_get_day_of_month (dt2)); \
 988   g_date_time_unref (dt); \
 989   g_date_time_unref (dt2); \
 990 } G_STMT_END
 991
 992   TEST_ADD_WEEKS (2009, 1, 1, 1, 2009, 1, 8);
 993   TEST_ADD_WEEKS (2009, 8, 30, 1, 2009, 9, 6);
 994   TEST_ADD_WEEKS (2009, 12, 31, 1, 2010, 1, 7);
 995   TEST_ADD_WEEKS (2009, 1, 1, -1, 2008, 12, 25);
 996 }
 997
 998 static void
 999 test_GDateTime_add_hours (void)
1000 {
1001 #define TEST_ADD_HOURS(y,m,d,h,mi,s,a,ny,nm,nd,nh,nmi,ns) G_STMT_START { \
1002   GDateTime *dt, *dt2; \
1003   dt = g_date_time_new_utc (y, m, d, h, mi, s); \
1004   dt2 = g_date_time_add_hours (dt, a); \
1005   g_assert_cmpint (ny, ==, g_date_time_get_year (dt2)); \
1006   g_assert_cmpint (nm, ==, g_date_time_get_month (dt2)); \
1007   g_assert_cmpint (nd, ==, g_date_time_get_day_of_month (dt2)); \
1008   g_assert_cmpint (nh, ==, g_date_time_get_hour (dt2)); \
1009   g_assert_cmpint (nmi, ==, g_date_time_get_minute (dt2)); \
1010   g_assert_cmpint (ns, ==, g_date_time_get_second (dt2)); \
1011   g_date_time_unref (dt); \
1012   g_date_time_unref (dt2); \
1013 } G_STMT_END
1014
1015   TEST_ADD_HOURS (2009,  1,  1,  0, 0, 0, 1, 2009, 1, 1, 1, 0, 0);
1016   TEST_ADD_HOURS (2008, 12, 31, 23, 0, 0, 1, 2009, 1, 1, 0, 0, 0);
1017 }
1018
1019 static void
1020 test_GDateTime_add_full (void)
1021 {
1022 #define TEST_ADD_FULL(y,m,d,h,mi,s,ay,am,ad,ah,ami,as,ny,nm,nd,nh,nmi,ns) G_STMT_START { \
1023   GDateTime *dt, *dt2; \
1024   dt = g_date_time_new_utc (y, m, d, h, mi, s); \
1025   dt2 = g_date_time_add_full (dt, ay, am, ad, ah, ami, as); \
1026   g_assert_cmpint (ny, ==, g_date_time_get_year (dt2)); \
1027   g_assert_cmpint (nm, ==, g_date_time_get_month (dt2)); \
1028   g_assert_cmpint (nd, ==, g_date_time_get_day_of_month (dt2)); \
1029   g_assert_cmpint (nh, ==, g_date_time_get_hour (dt2)); \
1030   g_assert_cmpint (nmi, ==, g_date_time_get_minute (dt2)); \
1031   g_assert_cmpint (ns, ==, g_date_time_get_second (dt2)); \
1032   g_date_time_unref (dt); \
1033   g_date_time_unref (dt2); \
1034 } G_STMT_END
1035
1036   TEST_ADD_FULL (2009, 10, 21,  0,  0, 0,
1037                     1,  1,  1,  1,  1, 1,
1038                  2010, 11, 22,  1,  1, 1);
1039   TEST_ADD_FULL (2000,  1,  1,  1,  1, 1,
1040                     0,  1,  0,  0,  0, 0,
1041                  2000,  2,  1,  1,  1, 1);
1042   TEST_ADD_FULL (2000,  1,  1,  0,  0, 0,
1043                    -1,  1,  0,  0,  0, 0,
1044                  1999,  2,  1,  0,  0, 0);
1045   TEST_ADD_FULL (2010, 10, 31,  0,  0, 0,
1046                     0,  4,  0,  0,  0, 0,
1047                  2011,  2, 28,  0,  0, 0);
1048   TEST_ADD_FULL (2010,  8, 25, 22, 45, 0,
1049                     0,  1,  6,  1, 25, 0,
1050                  2010, 10,  2,  0, 10, 0);
1051 }
1052
1053 static void
1054 test_GDateTime_add_minutes (void)
1055 {
1056 #define TEST_ADD_MINUTES(i,o) G_STMT_START { \
1057   GDateTime *dt, *dt2; \
1058   dt = g_date_time_new_local (2000, 1, 1, 0, 0, 0); \
1059   dt2 = g_date_time_add_minutes (dt, i); \
1060   g_assert_cmpint (o, ==, g_date_time_get_minute (dt2)); \
1061   g_date_time_unref (dt); \
1062   g_date_time_unref (dt2); \
1063 } G_STMT_END
1064
1065   TEST_ADD_MINUTES (60, 0);
1066   TEST_ADD_MINUTES (100, 40);
1067   TEST_ADD_MINUTES (5, 5);
1068   TEST_ADD_MINUTES (1441, 1);
1069   TEST_ADD_MINUTES (-1441, 59);
1070 }
1071
1072 static void
1073 test_GDateTime_add_seconds (void)
1074 {
1075 #define TEST_ADD_SECONDS(i,o) G_STMT_START { \
1076   GDateTime *dt, *dt2; \
1077   dt = g_date_time_new_local (2000, 1, 1, 0, 0, 0); \
1078   dt2 = g_date_time_add_seconds (dt, i); \
1079   g_assert_cmpint (o, ==, g_date_time_get_second (dt2)); \
1080   g_date_time_unref (dt); \
1081   g_date_time_unref (dt2); \
1082 } G_STMT_END
1083
1084   TEST_ADD_SECONDS (1, 1);
1085   TEST_ADD_SECONDS (60, 0);
1086   TEST_ADD_SECONDS (61, 1);
1087   TEST_ADD_SECONDS (120, 0);
1088   TEST_ADD_SECONDS (-61, 59);
1089   TEST_ADD_SECONDS (86401, 1);
1090   TEST_ADD_SECONDS (-86401, 59);
1091   TEST_ADD_SECONDS (-31, 29);
1092   TEST_ADD_SECONDS (13, 13);
1093 }
1094
1095 static void
1096 test_GDateTime_diff (void)
1097 {
1098 #define TEST_DIFF(y,m,d,y2,m2,d2,u) G_STMT_START { \
1099   GDateTime *dt1, *dt2; \
1100   GTimeSpan  ts = 0; \
1101   dt1 = g_date_time_new_utc (y, m, d, 0, 0, 0); \
1102   dt2 = g_date_time_new_utc (y2, m2, d2, 0, 0, 0); \
1103   ts = g_date_time_difference (dt2, dt1); \
1104   g_assert_cmpint (ts, ==, u); \
1105   g_date_time_unref (dt1); \
1106   g_date_time_unref (dt2); \
1107 } G_STMT_END
1108
1109   TEST_DIFF (2009, 1, 1, 2009, 2, 1, G_TIME_SPAN_DAY * 31);
1110   TEST_DIFF (2009, 1, 1, 2010, 1, 1, G_TIME_SPAN_DAY * 365);
1111   TEST_DIFF (2008, 2, 28, 2008, 2, 29, G_TIME_SPAN_DAY);
1112   TEST_DIFF (2008, 2, 29, 2008, 2, 28, -G_TIME_SPAN_DAY);
1113
1114   /* TODO: Add usec tests */
1115 }
1116
1117 static void
1118 test_GDateTime_get_minute (void)
1119 {
1120   GDateTime *dt;
1121
1122   dt = g_date_time_new_utc (2009, 12, 1, 1, 31, 0);
1123   g_assert_cmpint (31, ==, g_date_time_get_minute (dt));
1124   g_date_time_unref (dt);
1125 }
1126
1127 static void
1128 test_GDateTime_get_month (void)
1129 {
1130   GDateTime *dt;
1131
1132   dt = g_date_time_new_utc (2009, 12, 1, 1, 31, 0);
1133   g_assert_cmpint (12, ==, g_date_time_get_month (dt));
1134   g_date_time_unref (dt);
1135 }
1136
1137 static void
1138 test_GDateTime_get_second (void)
1139 {
1140   GDateTime *dt;
1141
1142   dt = g_date_time_new_utc (2009, 12, 1, 1, 31, 44);
1143   g_assert_cmpint (44, ==, g_date_time_get_second (dt));
1144   g_date_time_unref (dt);
1145 }
1146
1147 static void
1148 test_GDateTime_new_full (void)
1149 {
1150   GTimeZone *tz, *dt_tz;
1151   GDateTime *dt;
1152
1153 #ifdef G_OS_WIN32
1154   LCID currLcid = GetThreadLocale ();
1155   LANGID currLangId = LANGIDFROMLCID (currLcid);
1156   LANGID en = MAKELANGID (LANG_ENGLISH, SUBLANG_ENGLISH_US);
1157   SetThreadUILanguage (en);
1158 #endif
1159
1160   dt = g_date_time_new_utc (2009, 12, 11, 12, 11, 10);
1161   g_assert_cmpint (2009, ==, g_date_time_get_year (dt));
1162   g_assert_cmpint (12, ==, g_date_time_get_month (dt));
1163   g_assert_cmpint (11, ==, g_date_time_get_day_of_month (dt));
1164   g_assert_cmpint (12, ==, g_date_time_get_hour (dt));
1165   g_assert_cmpint (11, ==, g_date_time_get_minute (dt));
1166   g_assert_cmpint (10, ==, g_date_time_get_second (dt));
1167   g_date_time_unref (dt);
1168
1169 #ifdef G_OS_UNIX
1170   tz = g_time_zone_new ("America/Tijuana");
1171 #elif defined G_OS_WIN32
1172   tz = g_time_zone_new ("Pacific Standard Time");
1173 #endif
1174   dt = g_date_time_new (tz, 2010, 11, 24, 8, 4, 0);
1175
1176   dt_tz = g_date_time_get_timezone (dt);
1177   g_assert_cmpstr (g_time_zone_get_identifier (dt_tz), ==,
1178                    g_time_zone_get_identifier (tz));
1179
1180   g_assert_cmpint (2010, ==, g_date_time_get_year (dt));
1181   g_assert_cmpint (11, ==, g_date_time_get_month (dt));
1182   g_assert_cmpint (24, ==, g_date_time_get_day_of_month (dt));
1183   g_assert_cmpint (8, ==, g_date_time_get_hour (dt));
1184   g_assert_cmpint (4, ==, g_date_time_get_minute (dt));
1185   g_assert_cmpint (0, ==, g_date_time_get_second (dt));
1186 #ifdef G_OS_UNIX
1187   g_assert_cmpstr ("PST", ==, g_date_time_get_timezone_abbreviation (dt));
1188   g_assert_cmpstr ("America/Tijuana", ==, g_time_zone_get_identifier (dt_tz));
1189 #elif defined G_OS_WIN32
1190   g_assert_cmpstr ("Pacific Standard Time", ==,
1191                     g_date_time_get_timezone_abbreviation (dt));
1192   g_assert_cmpstr ("Pacific Standard Time", ==,
1193                    g_time_zone_get_identifier (dt_tz));
1194   SetThreadUILanguage (currLangId);
1195 #endif
1196   g_assert (!g_date_time_is_daylight_savings (dt));
1197   g_date_time_unref (dt);
1198   g_time_zone_unref (tz);
1199
1200   /* Check month limits */
1201   dt = g_date_time_new_utc (2016, 1, 31, 22, 10, 42);
1202   ASSERT_DATE (dt, 2016, 1, 31);
1203   g_date_time_unref (dt);
1204   dt = g_date_time_new_utc (2016, 1, 32, 22, 10, 42);
1205   g_assert_null (dt);
1206   dt = g_date_time_new_utc (2016, 2, 29, 22, 10, 42);
1207   ASSERT_DATE (dt, 2016, 2, 29);
1208   g_date_time_unref (dt);
1209   dt = g_date_time_new_utc (2016, 2, 30, 22, 10, 42);
1210   g_assert_null (dt);
1211   dt = g_date_time_new_utc (2017, 2, 28, 22, 10, 42);
1212   ASSERT_DATE (dt, 2017, 2, 28);
1213   g_date_time_unref (dt);
1214   dt = g_date_time_new_utc (2017, 2, 29, 22, 10, 42);
1215   g_assert_null (dt);
1216   dt = g_date_time_new_utc (2016, 3, 31, 22, 10, 42);
1217   ASSERT_DATE (dt, 2016, 3, 31);
1218   g_date_time_unref (dt);
1219   dt = g_date_time_new_utc (2016, 3, 32, 22, 10, 42);
1220   g_assert_null (dt);
1221   dt = g_date_time_new_utc (2016, 4, 30, 22, 10, 42);
1222   ASSERT_DATE (dt, 2016, 4, 30);
1223   g_date_time_unref (dt);
1224   dt = g_date_time_new_utc (2016, 4, 31, 22, 10, 42);
1225   g_assert_null (dt);
1226   dt = g_date_time_new_utc (2016, 5, 31, 22, 10, 42);
1227   ASSERT_DATE (dt, 2016, 5, 31);
1228   g_date_time_unref (dt);
1229   dt = g_date_time_new_utc (2016, 5, 32, 22, 10, 42);
1230   g_assert_null (dt);
1231   dt = g_date_time_new_utc (2016, 6, 30, 22, 10, 42);
1232   ASSERT_DATE (dt, 2016, 6, 30);
1233   g_date_time_unref (dt);
1234   dt = g_date_time_new_utc (2016, 6, 31, 22, 10, 42);
1235   g_assert_null (dt);
1236   dt = g_date_time_new_utc (2016, 7, 31, 22, 10, 42);
1237   ASSERT_DATE (dt, 2016, 7, 31);
1238   g_date_time_unref (dt);
1239   dt = g_date_time_new_utc (2016, 7, 32, 22, 10, 42);
1240   g_assert_null (dt);
1241   dt = g_date_time_new_utc (2016, 8, 31, 22, 10, 42);
1242   ASSERT_DATE (dt, 2016, 8, 31);
1243   g_date_time_unref (dt);
1244   dt = g_date_time_new_utc (2016, 8, 32, 22, 10, 42);
1245   g_assert_null (dt);
1246   dt = g_date_time_new_utc (2016, 9, 30, 22, 10, 42);
1247   ASSERT_DATE (dt, 2016, 9, 30);
1248   g_date_time_unref (dt);
1249   dt = g_date_time_new_utc (2016, 9, 31, 22, 10, 42);
1250   g_assert_null (dt);
1251   dt = g_date_time_new_utc (2016, 10, 31, 22, 10, 42);
1252   ASSERT_DATE (dt, 2016, 10, 31);
1253   g_date_time_unref (dt);
1254   dt = g_date_time_new_utc (2016, 10, 32, 22, 10, 42);
1255   g_assert_null (dt);
1256   dt = g_date_time_new_utc (2016, 11, 30, 22, 10, 42);
1257   ASSERT_DATE (dt, 2016, 11, 30);
1258   g_date_time_unref (dt);
1259   dt = g_date_time_new_utc (2016, 11, 31, 22, 10, 42);
1260   g_assert_null (dt);
1261   dt = g_date_time_new_utc (2016, 12, 31, 22, 10, 42);
1262   ASSERT_DATE (dt, 2016, 12, 31);
1263   g_date_time_unref (dt);
1264   dt = g_date_time_new_utc (2016, 12, 32, 22, 10, 42);
1265   g_assert_null (dt);
1266 }
1267
1268 static void
1269 test_GDateTime_now_utc (void)
1270 {
1271   GDateTime *dt;
1272   struct tm  tm;
1273   time_t     t;
1274   time_t     after;
1275
1276   /* t <= dt.to_unix() <= after, but the inequalities might not be
1277    * equality if we're close to the boundary between seconds.
1278    * We loop until t == after (and hence dt.to_unix() should equal both)
1279    * to guard against that. */
1280   do
1281     {
1282       t = g_get_real_time () / G_TIME_SPAN_SECOND;
1283 #ifdef HAVE_GMTIME_R
1284       gmtime_r (&t, &tm);
1285 #else
1286       {
1287         struct tm *tmp = gmtime (&t);
1288         /* Assume gmtime() can't fail as we got t from time(NULL). (Note
1289          * that on Windows, gmtime() *is* MT-safe, it uses a thread-local
1290          * buffer.)
1291          */
1292         memcpy (&tm, tmp, sizeof (struct tm));
1293       }
1294 #endif
1295       dt = g_date_time_new_now_utc ();
1296
1297       after = g_get_real_time () / G_TIME_SPAN_SECOND;
1298     }
1299   while (t != after);
1300
1301   g_assert_cmpint (tm.tm_year + 1900, ==, g_date_time_get_year (dt));
1302   g_assert_cmpint (tm.tm_mon + 1, ==, g_date_time_get_month (dt));
1303   g_assert_cmpint (tm.tm_mday, ==, g_date_time_get_day_of_month (dt));
1304   g_assert_cmpint (tm.tm_hour, ==, g_date_time_get_hour (dt));
1305   g_assert_cmpint (tm.tm_min, ==, g_date_time_get_minute (dt));
1306   g_assert_cmpint (tm.tm_sec, ==, g_date_time_get_second (dt));
1307   g_date_time_unref (dt);
1308 }
1309
1310 static void
1311 test_GDateTime_new_from_unix_utc (void)
1312 {
1313   GDateTime *dt;
1314   gint64 t;
1315
1316   t = g_get_real_time ();
1317
1318 #if 0
1319   dt = g_date_time_new_from_unix_utc (t);
1320   g_assert (dt == NULL);
1321 #endif
1322
1323   t = t / 1e6;  /* oops, this was microseconds */
1324
1325   dt = g_date_time_new_from_unix_utc (t);
1326   g_assert (dt != NULL);
1327
1328   g_assert (dt == g_date_time_ref (dt));
1329   g_date_time_unref (dt);
1330   g_assert_cmpint (g_date_time_to_unix (dt), ==, t);
1331   g_date_time_unref (dt);
1332 }
1333
1334 static void
1335 test_GDateTime_get_utc_offset (void)
1336 {
1337 #if defined (HAVE_STRUCT_TM_TM_GMTOFF) || defined (HAVE_STRUCT_TM___TM_GMTOFF)
1338   GDateTime *dt;
1339   GTimeSpan ts;
1340   struct tm tm;
1341
1342   memset (&tm, 0, sizeof (tm));
1343   get_localtime_tm (g_get_real_time () / G_TIME_SPAN_SECOND, &tm);
1344
1345   dt = g_date_time_new_now_local ();
1346   ts = g_date_time_get_utc_offset (dt);
1347 #ifdef HAVE_STRUCT_TM_TM_GMTOFF
1348   g_assert_cmpint (ts, ==, (tm.tm_gmtoff * G_TIME_SPAN_SECOND));
1349 #endif
1350 #ifdef HAVE_STRUCT_TM___TM_GMTOFF
1351   g_assert_cmpint (ts, ==, (tm.__tm_gmtoff * G_TIME_SPAN_SECOND));
1352 #endif
1353   g_date_time_unref (dt);
1354 #endif
1355 }
1356
1357 G_GNUC_BEGIN_IGNORE_DEPRECATIONS
1358 static void
1359 test_GDateTime_to_timeval (void)
1360 {
1361   GTimeVal tv1, tv2;
1362   GDateTime *dt;
1363
1364   memset (&tv1, 0, sizeof (tv1));
1365   memset (&tv2, 0, sizeof (tv2));
1366
1367   g_get_current_time (&tv1);
1368   dt = g_date_time_new_from_timeval_local (&tv1);
1369   g_date_time_to_timeval (dt, &tv2);
1370   g_assert_cmpint (tv1.tv_sec, ==, tv2.tv_sec);
1371   g_assert_cmpint (tv1.tv_usec, ==, tv2.tv_usec);
1372   g_date_time_unref (dt);
1373 }
1374 G_GNUC_END_IGNORE_DEPRECATIONS
1375
1376 static void
1377 test_GDateTime_to_local (void)
1378 {
1379   GDateTime *utc = NULL, *now = NULL, *dt;
1380   time_t before, after;
1381
1382   /* before <= utc.to_unix() <= now.to_unix() <= after, but the inequalities
1383    * might not be equality if we're close to the boundary between seconds.
1384    * We loop until before == after (and hence the GDateTimes should match)
1385    * to guard against that. */
1386   do
1387     {
1388       before = g_get_real_time () / G_TIME_SPAN_SECOND;
1389       g_clear_pointer (&utc, g_date_time_unref);
1390       g_clear_pointer (&now, g_date_time_unref);
1391       utc = g_date_time_new_now_utc ();
1392       now = g_date_time_new_now_local ();
1393       after = g_get_real_time () / G_TIME_SPAN_SECOND;
1394     }
1395   while (before != after);
1396
1397   dt = g_date_time_to_local (utc);
1398
1399   g_assert_cmpint (g_date_time_get_year (now), ==, g_date_time_get_year (dt));
1400   g_assert_cmpint (g_date_time_get_month (now), ==, g_date_time_get_month (dt));
1401   g_assert_cmpint (g_date_time_get_day_of_month (now), ==, g_date_time_get_day_of_month (dt));
1402   g_assert_cmpint (g_date_time_get_hour (now), ==, g_date_time_get_hour (dt));
1403   g_assert_cmpint (g_date_time_get_minute (now), ==, g_date_time_get_minute (dt));
1404   g_assert_cmpint (g_date_time_get_second (now), ==, g_date_time_get_second (dt));
1405
1406   g_date_time_unref (now);
1407   g_date_time_unref (utc);
1408   g_date_time_unref (dt);
1409 }
1410
1411 static void
1412 test_GDateTime_to_utc (void)
1413 {
1414   GDateTime *dt, *dt2;
1415   time_t     t;
1416   struct tm  tm;
1417
1418   t = time (NULL);
1419   g_assert_cmpint (t, !=, (time_t) -1);
1420 #ifdef HAVE_GMTIME_R
1421   gmtime_r (&t, &tm);
1422 #else
1423   {
1424     struct tm *tmp = gmtime (&t);
1425     memcpy (&tm, tmp, sizeof (struct tm));
1426   }
1427 #endif
1428   dt2 = g_date_time_new_from_unix_local (t);
1429   dt = g_date_time_to_utc (dt2);
1430   g_assert_cmpint (tm.tm_year + 1900, ==, g_date_time_get_year (dt));
1431   g_assert_cmpint (tm.tm_mon + 1, ==, g_date_time_get_month (dt));
1432   g_assert_cmpint (tm.tm_mday, ==, g_date_time_get_day_of_month (dt));
1433   g_assert_cmpint (tm.tm_hour, ==, g_date_time_get_hour (dt));
1434   g_assert_cmpint (tm.tm_min, ==, g_date_time_get_minute (dt));
1435   g_assert_cmpint (tm.tm_sec, ==, g_date_time_get_second (dt));
1436   g_date_time_unref (dt);
1437   g_date_time_unref (dt2);
1438 }
1439
1440 static void
1441 test_GDateTime_get_day_of_year (void)
1442 {
1443 #define TEST_DAY_OF_YEAR(y,m,d,o)                       G_STMT_START {  \
1444   GDateTime *__dt = g_date_time_new_local ((y), (m), (d), 0, 0, 0);     \
1445   g_assert_cmpint ((o), ==, g_date_time_get_day_of_year (__dt));        \
1446   g_date_time_unref (__dt);                             } G_STMT_END
1447
1448   TEST_DAY_OF_YEAR (2009, 1, 1, 1);
1449   TEST_DAY_OF_YEAR (2009, 2, 1, 32);
1450   TEST_DAY_OF_YEAR (2009, 8, 16, 228);
1451   TEST_DAY_OF_YEAR (2008, 8, 16, 229);
1452 }
1453
1454 static void
1455 test_GDateTime_printf (void)
1456 {
1457 /* 64 seems big, but one zoneinfo file, Factory, has an abbreviation
1458  * that long, and it will cause the test to fail if dst isn't big
1459  * enough.
1460  */
1461   gchar *old_lc_all;
1462   gchar *old_lc_messages;
1463   gchar dst[64];
1464   struct tm tt;
1465   time_t t;
1466
1467 #ifdef G_OS_WIN32
1468   gchar *current_tz = NULL;
1469   DYNAMIC_TIME_ZONE_INFORMATION dtz_info;
1470 #endif
1471
1472 #define TEST_PRINTF(f,o)                        G_STMT_START {  \
1473 GDateTime *__dt = g_date_time_new_local (2009, 10, 24, 0, 0, 0);\
1474   gchar *__p = g_date_time_format (__dt, (f));                  \
1475   g_assert_cmpstr (__p, ==, (o));                               \
1476   g_date_time_unref (__dt);                                     \
1477   g_free (__p);                                 } G_STMT_END
1478
1479 #define TEST_PRINTF_DATE(y,m,d,f,o)             G_STMT_START {  \
1480   GDateTime *dt = g_date_time_new_local (y, m, d, 0, 0, 0);     \
1481   gchar *p = g_date_time_format (dt, (f));                      \
1482   gchar *o_casefold = g_utf8_casefold (o, -1);                  \
1483   gchar *p_casefold = g_utf8_casefold (p, -1);                  \
1484   g_assert_cmpstr (p_casefold, ==, (o_casefold));               \
1485   g_date_time_unref (dt);                                       \
1486   g_free (p_casefold);                                          \
1487   g_free (o_casefold);                                          \
1488   g_free (p);                                   } G_STMT_END
1489
1490 #define TEST_PRINTF_TIME(h,m,s,f,o)             G_STMT_START { \
1491   GDateTime *dt = g_date_time_new_local (2009, 10, 24, (h), (m), (s)); \
1492   gchar *p = g_date_time_format (dt, (f));                      \
1493   g_assert_cmpstr (p, ==, (o));                                 \
1494   g_date_time_unref (dt);                                       \
1495   g_free (p);                                   } G_STMT_END
1496
1497   old_lc_all = g_strdup (g_getenv ("LC_ALL"));
1498   g_unsetenv ("LC_ALL");
1499
1500   old_lc_messages = g_strdup (g_getenv ("LC_MESSAGES"));
1501   g_setenv ("LC_MESSAGES", "C", TRUE);
1502
1503   /*
1504    * This is a little helper to make sure we can compare timezones to
1505    * that of the generated timezone.
1506    */
1507   t = time (NULL);
1508   g_assert_cmpint (t, !=, (time_t) -1);
1509   memset (&tt, 0, sizeof(tt));
1510   get_localtime_tm (t, &tt);
1511   tt.tm_year = 2009 - 1900;
1512   tt.tm_mon = 9; /* 0 indexed */
1513   tt.tm_mday = 24;
1514   t = mktime (&tt);
1515   memset (&tt, 0, sizeof(tt));
1516   get_localtime_tm (t, &tt);
1517   strftime (dst, sizeof(dst), "%Z", &tt);
1518
1519   /* get current time_t for 20090924 in the local timezone */
1520   tt.tm_sec = 0;
1521   tt.tm_min = 0;
1522   tt.tm_hour = 0;
1523   t = mktime (&tt);
1524
1525   TEST_PRINTF ("%a", "Sat");
1526   TEST_PRINTF ("%A", "Saturday");
1527   TEST_PRINTF ("%b", "Oct");
1528   TEST_PRINTF ("%B", "October");
1529   TEST_PRINTF ("%d", "24");
1530   TEST_PRINTF_DATE (2009, 1, 1, "%d", "01");
1531   TEST_PRINTF ("%e", "24"); // fixme
1532   TEST_PRINTF ("%h", "Oct");
1533   TEST_PRINTF ("%H", "00");
1534   TEST_PRINTF_TIME (15, 0, 0, "%H", "15");
1535   TEST_PRINTF ("%I", "12");
1536   TEST_PRINTF_TIME (12, 0, 0, "%I", "12");
1537   TEST_PRINTF_TIME (15, 0, 0, "%I", "03");
1538   TEST_PRINTF ("%j", "297");
1539   TEST_PRINTF ("%k", " 0");
1540   TEST_PRINTF_TIME (13, 13, 13, "%k", "13");
1541   TEST_PRINTF ("%l", "12");
1542   TEST_PRINTF_TIME (12, 0, 0, "%I", "12");
1543   TEST_PRINTF_TIME (13, 13, 13, "%l", " 1");
1544   TEST_PRINTF_TIME (10, 13, 13, "%l", "10");
1545   TEST_PRINTF ("%m", "10");
1546   TEST_PRINTF ("%M", "00");
1547   TEST_PRINTF ("%p", "AM");
1548   TEST_PRINTF_TIME (13, 13, 13, "%p", "PM");
1549   TEST_PRINTF ("%P", "am");
1550   TEST_PRINTF_TIME (13, 13, 13, "%P", "pm");
1551   TEST_PRINTF ("%r", "12:00:00 AM");
1552   TEST_PRINTF_TIME (13, 13, 13, "%r", "01:13:13 PM");
1553   TEST_PRINTF ("%R", "00:00");
1554   TEST_PRINTF_TIME (13, 13, 31, "%R", "13:13");
1555   TEST_PRINTF ("%S", "00");
1556   TEST_PRINTF ("%t", "  ");
1557   TEST_PRINTF ("%u", "6");
1558   TEST_PRINTF ("%x", "10/24/09");
1559   TEST_PRINTF ("%X", "00:00:00");
1560   TEST_PRINTF_TIME (13, 14, 15, "%X", "13:14:15");
1561   TEST_PRINTF ("%y", "09");
1562   TEST_PRINTF ("%Y", "2009");
1563   TEST_PRINTF ("%%", "%");
1564   TEST_PRINTF ("%", "");
1565   TEST_PRINTF ("%9", NULL);
1566 #ifdef G_OS_UNIX
1567   TEST_PRINTF ("%Z", dst);
1568 #elif defined G_OS_WIN32
1569   g_assert (GetDynamicTimeZoneInformation (&dtz_info) != TIME_ZONE_ID_INVALID);
1570   if (wcscmp (dtz_info.StandardName, L"") != 0)
1571     current_tz = g_utf16_to_utf8 (dtz_info.StandardName, -1, NULL, NULL, NULL);
1572   else
1573     current_tz = g_utf16_to_utf8 (dtz_info.DaylightName, -1, NULL, NULL, NULL);
1574
1575   TEST_PRINTF ("%Z", current_tz);
1576   g_free (current_tz);
1577 #endif
1578
1579   if (old_lc_messages != NULL)
1580     g_setenv ("LC_MESSAGES", old_lc_messages, TRUE);
1581   else
1582     g_unsetenv ("LC_MESSAGES");
1583   g_free (old_lc_messages);
1584
1585   if (old_lc_all != NULL)
1586     g_setenv ("LC_ALL", old_lc_all, TRUE);
1587   g_free (old_lc_all);
1588 }
1589
1590 static void
1591 test_non_utf8_printf (void)
1592 {
1593   gchar *oldlocale;
1594
1595   /* If running uninstalled (G_TEST_BUILDDIR is set), skip this test, since we
1596    * need the translations to be installed. We can’t mess around with
1597    * bindtextdomain() here, as the compiled .gmo files in po/ are not in the
1598    * right installed directory hierarchy to be successfully loaded by gettext. */
1599   if (g_getenv ("G_TEST_BUILDDIR") != NULL)
1600     {
1601       g_test_skip ("Skipping due to running uninstalled. "
1602                    "This test can only be run when the translations are installed.");
1603       return;
1604     }
1605
1606   oldlocale = g_strdup (setlocale (LC_ALL, NULL));
1607   setlocale (LC_ALL, "ja_JP.eucjp");
1608   if (strstr (setlocale (LC_ALL, NULL), "ja_JP") == NULL)
1609     {
1610       g_test_skip ("locale ja_JP.eucjp not available, skipping non-UTF8 tests");
1611       g_free (oldlocale);
1612       return;
1613     }
1614   if (g_get_charset (NULL))
1615     {
1616       g_test_skip ("locale ja_JP.eucjp may be available, but glib seems to think that it's equivalent to UTF-8, skipping non-UTF-8 tests. This is a known issue on Darwin");
1617       setlocale (LC_ALL, oldlocale);
1618       g_free (oldlocale);
1619       return;
1620     }
1621
1622   /* These are the outputs that ja_JP.UTF-8 generates; if everything
1623    * is working then ja_JP.eucjp should generate the same.
1624    */
1625   TEST_PRINTF ("%a", "\345\234\237");
1626   TEST_PRINTF ("%A", "\345\234\237\346\233\234\346\227\245");
1627 #ifndef __APPLE__ /* OSX just returns the number */
1628   TEST_PRINTF ("%b", "10\346\234\210");
1629 #endif
1630   TEST_PRINTF ("%B", "10\346\234\210");
1631   TEST_PRINTF ("%d", "24");
1632   TEST_PRINTF_DATE (2009, 1, 1, "%d", "01");
1633   TEST_PRINTF ("%e", "24"); // fixme
1634 #ifndef __APPLE__ /* OSX just returns the number */
1635   TEST_PRINTF ("%h", "10\346\234\210");
1636 #endif
1637   TEST_PRINTF ("%H", "00");
1638   TEST_PRINTF_TIME (15, 0, 0, "%H", "15");
1639   TEST_PRINTF ("%I", "12");
1640   TEST_PRINTF_TIME (12, 0, 0, "%I", "12");
1641   TEST_PRINTF_TIME (15, 0, 0, "%I", "03");
1642   TEST_PRINTF ("%j", "297");
1643   TEST_PRINTF ("%k", " 0");
1644   TEST_PRINTF_TIME (13, 13, 13, "%k", "13");
1645   TEST_PRINTF ("%l", "12");
1646   TEST_PRINTF_TIME (12, 0, 0, "%I", "12");
1647   TEST_PRINTF_TIME (13, 13, 13, "%l", " 1");
1648   TEST_PRINTF_TIME (10, 13, 13, "%l", "10");
1649   TEST_PRINTF ("%m", "10");
1650   TEST_PRINTF ("%M", "00");
1651 #ifndef __APPLE__ /* OSX returns latin "AM", not japanese */
1652   TEST_PRINTF ("%p", "\345\215\210\345\211\215");
1653   TEST_PRINTF_TIME (13, 13, 13, "%p", "\345\215\210\345\276\214");
1654   TEST_PRINTF ("%P", "\345\215\210\345\211\215");
1655   TEST_PRINTF_TIME (13, 13, 13, "%P", "\345\215\210\345\276\214");
1656   TEST_PRINTF ("%r", "\345\215\210\345\211\21512\346\231\20200\345\210\20600\347\247\222");
1657   TEST_PRINTF_TIME (13, 13, 13, "%r", "\345\215\210\345\276\21401\346\231\20213\345\210\20613\347\247\222");
1658 #endif
1659   TEST_PRINTF ("%R", "00:00");
1660   TEST_PRINTF_TIME (13, 13, 31, "%R", "13:13");
1661   TEST_PRINTF ("%S", "00");
1662   TEST_PRINTF ("%t", "  ");
1663   TEST_PRINTF ("%u", "6");
1664 #ifndef __APPLE__ /* OSX returns YYYY/MM/DD in ASCII */
1665   TEST_PRINTF ("%x", "2009\345\271\26410\346\234\21024\346\227\245");
1666 #endif
1667   TEST_PRINTF ("%X", "00\346\231\20200\345\210\20600\347\247\222");
1668   TEST_PRINTF_TIME (13, 14, 15, "%X", "13\346\231\20214\345\210\20615\347\247\222");
1669   TEST_PRINTF ("%y", "09");
1670   TEST_PRINTF ("%Y", "2009");
1671   TEST_PRINTF ("%%", "%");
1672   TEST_PRINTF ("%", "");
1673   TEST_PRINTF ("%9", NULL);
1674
1675   setlocale (LC_ALL, oldlocale);
1676   g_free (oldlocale);
1677 }
1678
1679 /* Checks that it is possible to use format string that
1680  * is unrepresentable in current locale charset. */
1681 static void
1682 test_format_unrepresentable (void)
1683 {
1684   gchar *oldlocale = g_strdup (setlocale (LC_ALL, NULL));
1685   setlocale (LC_ALL, "POSIX");
1686
1687   TEST_PRINTF ("ąśćł", "ąśćł");
1688
1689   /* We are using Unicode ratio symbol here, which is outside ASCII. */
1690   TEST_PRINTF_TIME (23, 15, 0, "%H∶%M", "23∶15");
1691
1692   /* Test again, this time in locale with non ASCII charset. */
1693   if (setlocale (LC_ALL, "pl_PL.ISO-8859-2") != NULL)
1694     TEST_PRINTF_TIME (23, 15, 0, "%H∶%M", "23∶15");
1695   else
1696     g_test_skip ("locale pl_PL.ISO-8859-2 not available, skipping test");
1697
1698   setlocale (LC_ALL, oldlocale);
1699   g_free (oldlocale);
1700 }
1701
1702 static void
1703 test_modifiers (void)
1704 {
1705   gchar *oldlocale;
1706
1707   TEST_PRINTF_DATE (2009, 1,  1,  "%d", "01");
1708   TEST_PRINTF_DATE (2009, 1,  1, "%_d", " 1");
1709   TEST_PRINTF_DATE (2009, 1,  1, "%-d", "1");
1710   TEST_PRINTF_DATE (2009, 1,  1, "%0d", "01");
1711   TEST_PRINTF_DATE (2009, 1, 21,  "%d", "21");
1712   TEST_PRINTF_DATE (2009, 1, 21, "%_d", "21");
1713   TEST_PRINTF_DATE (2009, 1, 21, "%-d", "21");
1714   TEST_PRINTF_DATE (2009, 1, 21, "%0d", "21");
1715
1716   TEST_PRINTF_DATE (2009, 1,  1,  "%e", " 1");
1717   TEST_PRINTF_DATE (2009, 1,  1, "%_e", " 1");
1718   TEST_PRINTF_DATE (2009, 1,  1, "%-e", "1");
1719   TEST_PRINTF_DATE (2009, 1,  1, "%0e", "01");
1720   TEST_PRINTF_DATE (2009, 1, 21,  "%e", "21");
1721   TEST_PRINTF_DATE (2009, 1, 21, "%_e", "21");
1722   TEST_PRINTF_DATE (2009, 1, 21, "%-e", "21");
1723   TEST_PRINTF_DATE (2009, 1, 21, "%0e", "21");
1724
1725   TEST_PRINTF_TIME ( 1, 0, 0,  "%H", "01");
1726   TEST_PRINTF_TIME ( 1, 0, 0, "%_H", " 1");
1727   TEST_PRINTF_TIME ( 1, 0, 0, "%-H", "1");
1728   TEST_PRINTF_TIME ( 1, 0, 0, "%0H", "01");
1729   TEST_PRINTF_TIME (21, 0, 0,  "%H", "21");
1730   TEST_PRINTF_TIME (21, 0, 0, "%_H", "21");
1731   TEST_PRINTF_TIME (21, 0, 0, "%-H", "21");
1732   TEST_PRINTF_TIME (21, 0, 0, "%0H", "21");
1733
1734   TEST_PRINTF_TIME ( 1, 0, 0,  "%I", "01");
1735   TEST_PRINTF_TIME ( 1, 0, 0, "%_I", " 1");
1736   TEST_PRINTF_TIME ( 1, 0, 0, "%-I", "1");
1737   TEST_PRINTF_TIME ( 1, 0, 0, "%0I", "01");
1738   TEST_PRINTF_TIME (23, 0, 0,  "%I", "11");
1739   TEST_PRINTF_TIME (23, 0, 0, "%_I", "11");
1740   TEST_PRINTF_TIME (23, 0, 0, "%-I", "11");
1741   TEST_PRINTF_TIME (23, 0, 0, "%0I", "11");
1742
1743   TEST_PRINTF_TIME ( 1, 0, 0,  "%k", " 1");
1744   TEST_PRINTF_TIME ( 1, 0, 0, "%_k", " 1");
1745   TEST_PRINTF_TIME ( 1, 0, 0, "%-k", "1");
1746   TEST_PRINTF_TIME ( 1, 0, 0, "%0k", "01");
1747
1748   oldlocale = g_strdup (setlocale (LC_ALL, NULL));
1749   setlocale (LC_ALL, "fa_IR.utf-8");
1750   if (strstr (setlocale (LC_ALL, NULL), "fa_IR") != NULL)
1751     {
1752       TEST_PRINTF_TIME (23, 0, 0, "%OH", "\333\262\333\263");    /* '23' */
1753       TEST_PRINTF_TIME (23, 0, 0, "%OI", "\333\261\333\261");    /* '11' */
1754       TEST_PRINTF_TIME (23, 0, 0, "%OM", "\333\260\333\260");    /* '00' */
1755
1756       TEST_PRINTF_DATE (2011, 7, 1, "%Om", "\333\260\333\267");  /* '07' */
1757       TEST_PRINTF_DATE (2011, 7, 1, "%0Om", "\333\260\333\267"); /* '07' */
1758       TEST_PRINTF_DATE (2011, 7, 1, "%-Om", "\333\267");         /* '7' */
1759       TEST_PRINTF_DATE (2011, 7, 1, "%_Om", " \333\267");        /* ' 7' */
1760     }
1761   else
1762     g_test_skip ("locale fa_IR not available, skipping O modifier tests");
1763   setlocale (LC_ALL, oldlocale);
1764   g_free (oldlocale);
1765 }
1766
1767 /* Test that the `O` modifier for g_date_time_format() works with %B, %b and %h;
1768  * i.e. whether genitive month names are supported. */
1769 static void
1770 test_month_names (void)
1771 {
1772   gchar *oldlocale;
1773
1774   g_test_bug ("749206");
1775
1776   /* If running uninstalled (G_TEST_BUILDDIR is set), skip this test, since we
1777    * need the translations to be installed. We can’t mess around with
1778    * bindtextdomain() here, as the compiled .gmo files in po/ are not in the
1779    * right installed directory hierarchy to be successfully loaded by gettext. */
1780   if (g_getenv ("G_TEST_BUILDDIR") != NULL)
1781     {
1782       g_test_skip ("Skipping due to running uninstalled. "
1783                    "This test can only be run when the translations are installed.");
1784       return;
1785     }
1786
1787   oldlocale = g_strdup (setlocale (LC_ALL, NULL));
1788
1789   /* Make sure that nothing has been changed in western European languages.  */
1790   setlocale (LC_ALL, "en_GB.utf-8");
1791   if (strstr (setlocale (LC_ALL, NULL), "en_GB") != NULL)
1792     {
1793       TEST_PRINTF_DATE (2018,  1,  1,  "%B", "January");
1794       TEST_PRINTF_DATE (2018,  2,  1, "%OB", "February");
1795       TEST_PRINTF_DATE (2018,  3,  1,  "%b", "Mar");
1796       TEST_PRINTF_DATE (2018,  4,  1, "%Ob", "Apr");
1797       TEST_PRINTF_DATE (2018,  5,  1,  "%h", "May");
1798       TEST_PRINTF_DATE (2018,  6,  1, "%Oh", "Jun");
1799     }
1800   else
1801     g_test_skip ("locale en_GB not available, skipping English month names test");
1802
1803   setlocale (LC_ALL, "de_DE.utf-8");
1804   if (strstr (setlocale (LC_ALL, NULL), "de_DE") != NULL)
1805     {
1806       TEST_PRINTF_DATE (2018,  7,  1,  "%B", "Juli");
1807       TEST_PRINTF_DATE (2018,  8,  1, "%OB", "August");
1808       TEST_PRINTF_DATE (2018,  9,  1,  "%b", "Sep");
1809       TEST_PRINTF_DATE (2018, 10,  1, "%Ob", "Okt");
1810       TEST_PRINTF_DATE (2018, 11,  1,  "%h", "Nov");
1811       TEST_PRINTF_DATE (2018, 12,  1, "%Oh", "Dez");
1812     }
1813   else
1814     g_test_skip ("locale de_DE not available, skipping German month names test");
1815
1816   setlocale (LC_ALL, "es_ES.utf-8");
1817   if (strstr (setlocale (LC_ALL, NULL), "es_ES") != NULL)
1818     {
1819       TEST_PRINTF_DATE (2018,  1,  1,  "%B", "enero");
1820       TEST_PRINTF_DATE (2018,  2,  1, "%OB", "febrero");
1821       TEST_PRINTF_DATE (2018,  3,  1,  "%b", "mar");
1822       TEST_PRINTF_DATE (2018,  4,  1, "%Ob", "abr");
1823       TEST_PRINTF_DATE (2018,  5,  1,  "%h", "may");
1824       TEST_PRINTF_DATE (2018,  6,  1, "%Oh", "jun");
1825     }
1826   else
1827     g_test_skip ("locale es_ES not available, skipping Spanish month names test");
1828
1829   setlocale (LC_ALL, "fr_FR.utf-8");
1830   if (strstr (setlocale (LC_ALL, NULL), "fr_FR") != NULL)
1831     {
1832       TEST_PRINTF_DATE (2018,  7,  1,  "%B", "juillet");
1833       TEST_PRINTF_DATE (2018,  8,  1, "%OB", "août");
1834       TEST_PRINTF_DATE (2018,  9,  1,  "%b", "sept.");
1835       TEST_PRINTF_DATE (2018, 10,  1, "%Ob", "oct.");
1836       TEST_PRINTF_DATE (2018, 11,  1,  "%h", "nov.");
1837       TEST_PRINTF_DATE (2018, 12,  1, "%Oh", "déc.");
1838     }
1839   else
1840     g_test_skip ("locale fr_FR not available, skipping French month names test");
1841
1842   /* Make sure that there are visible changes in some European languages.  */
1843   setlocale (LC_ALL, "el_GR.utf-8");
1844   if (strstr (setlocale (LC_ALL, NULL), "el_GR") != NULL)
1845     {
1846       TEST_PRINTF_DATE (2018,  1,  1,  "%B", "Ιανουαρίου");
1847       TEST_PRINTF_DATE (2018,  2,  1,  "%B", "Φεβρουαρίου");
1848       TEST_PRINTF_DATE (2018,  3,  1,  "%B", "Μαρτίου");
1849       TEST_PRINTF_DATE (2018,  4,  1, "%OB", "Απρίλιος");
1850       TEST_PRINTF_DATE (2018,  5,  1, "%OB", "Μάιος");
1851       TEST_PRINTF_DATE (2018,  6,  1, "%OB", "Ιούνιος");
1852       TEST_PRINTF_DATE (2018,  7,  1,  "%b", "Ιουλ");
1853       TEST_PRINTF_DATE (2018,  8,  1, "%Ob", "Αύγ");
1854     }
1855   else
1856     g_test_skip ("locale el_GR not available, skipping Greek month names test");
1857
1858   setlocale (LC_ALL, "hr_HR.utf-8");
1859   if (strstr (setlocale (LC_ALL, NULL), "hr_HR") != NULL)
1860     {
1861       TEST_PRINTF_DATE (2018,  5,  1,  "%B", "svibnja");
1862       TEST_PRINTF_DATE (2018,  6,  1,  "%B", "lipnja");
1863       TEST_PRINTF_DATE (2018,  7,  1,  "%B", "srpnja");
1864       TEST_PRINTF_DATE (2018,  8,  1, "%OB", "Kolovoz");
1865       TEST_PRINTF_DATE (2018,  9,  1, "%OB", "Rujan");
1866       TEST_PRINTF_DATE (2018, 10,  1, "%OB", "Listopad");
1867       TEST_PRINTF_DATE (2018, 11,  1,  "%b", "Stu");
1868       TEST_PRINTF_DATE (2018, 12,  1, "%Ob", "Pro");
1869     }
1870   else
1871     g_test_skip ("locale hr_HR not available, skipping Croatian month names test");
1872
1873   setlocale (LC_ALL, "lt_LT.utf-8");
1874   if (strstr (setlocale (LC_ALL, NULL), "lt_LT") != NULL)
1875     {
1876       TEST_PRINTF_DATE (2018,  1,  1,  "%B", "sausio");
1877       TEST_PRINTF_DATE (2018,  2,  1,  "%B", "vasario");
1878       TEST_PRINTF_DATE (2018,  3,  1,  "%B", "kovo");
1879       TEST_PRINTF_DATE (2018,  4,  1, "%OB", "balandis");
1880       TEST_PRINTF_DATE (2018,  5,  1, "%OB", "gegužė");
1881       TEST_PRINTF_DATE (2018,  6,  1, "%OB", "birželis");
1882       TEST_PRINTF_DATE (2018,  7,  1,  "%b", "liep.");
1883       TEST_PRINTF_DATE (2018,  8,  1, "%Ob", "rugp.");
1884     }
1885   else
1886     g_test_skip ("locale lt_LT not available, skipping Lithuanian month names test");
1887
1888   setlocale (LC_ALL, "pl_PL.utf-8");
1889   if (strstr (setlocale (LC_ALL, NULL), "pl_PL") != NULL)
1890     {
1891       TEST_PRINTF_DATE (2018,  5,  1,  "%B", "maja");
1892       TEST_PRINTF_DATE (2018,  6,  1,  "%B", "czerwca");
1893       TEST_PRINTF_DATE (2018,  7,  1,  "%B", "lipca");
1894       TEST_PRINTF_DATE (2018,  8,  1, "%OB", "sierpień");
1895       TEST_PRINTF_DATE (2018,  9,  1, "%OB", "wrzesień");
1896       TEST_PRINTF_DATE (2018, 10,  1, "%OB", "październik");
1897       TEST_PRINTF_DATE (2018, 11,  1,  "%b", "lis");
1898       TEST_PRINTF_DATE (2018, 12,  1, "%Ob", "gru");
1899     }
1900   else
1901     g_test_skip ("locale pl_PL not available, skipping Polish month names test");
1902
1903   setlocale (LC_ALL, "ru_RU.utf-8");
1904   if (strstr (setlocale (LC_ALL, NULL), "ru_RU") != NULL)
1905     {
1906       TEST_PRINTF_DATE (2018,  1,  1,  "%B", "января");
1907       TEST_PRINTF_DATE (2018,  2,  1,  "%B", "февраля");
1908       TEST_PRINTF_DATE (2018,  3,  1,  "%B", "марта");
1909       TEST_PRINTF_DATE (2018,  4,  1, "%OB", "Апрель");
1910       TEST_PRINTF_DATE (2018,  5,  1, "%OB", "Май");
1911       TEST_PRINTF_DATE (2018,  6,  1, "%OB", "Июнь");
1912       TEST_PRINTF_DATE (2018,  7,  1,  "%b", "июл");
1913       TEST_PRINTF_DATE (2018,  8,  1, "%Ob", "авг");
1914       /* This difference is very important in Russian:  */
1915       TEST_PRINTF_DATE (2018,  5,  1,  "%b", "мая");
1916       TEST_PRINTF_DATE (2018,  5,  1, "%Ob", "май");
1917     }
1918   else
1919     g_test_skip ("locale ru_RU not available, skipping Russian month names test");
1920
1921   setlocale (LC_ALL, oldlocale);
1922   g_free (oldlocale);
1923 }
1924
1925 static void
1926 test_GDateTime_dst (void)
1927 {
1928   GDateTime *dt1, *dt2;
1929   GTimeZone *tz;
1930
1931   /* this date has the DST state set for Europe/London */
1932 #ifdef G_OS_UNIX
1933   tz = g_time_zone_new ("Europe/London");
1934 #elif defined G_OS_WIN32
1935   tz = g_time_zone_new ("GMT Standard Time");
1936 #endif
1937   dt1 = g_date_time_new (tz, 2009, 8, 15, 3, 0, 1);
1938   g_assert (g_date_time_is_daylight_savings (dt1));
1939   g_assert_cmpint (g_date_time_get_utc_offset (dt1) / G_USEC_PER_SEC, ==, 3600);
1940   g_assert_cmpint (g_date_time_get_hour (dt1), ==, 3);
1941
1942   /* add 6 months to clear the DST flag but keep the same time */
1943   dt2 = g_date_time_add_months (dt1, 6);
1944   g_assert (!g_date_time_is_daylight_savings (dt2));
1945   g_assert_cmpint (g_date_time_get_utc_offset (dt2) / G_USEC_PER_SEC, ==, 0);
1946   g_assert_cmpint (g_date_time_get_hour (dt2), ==, 3);
1947
1948   g_date_time_unref (dt2);
1949   g_date_time_unref (dt1);
1950
1951   /* now do the reverse: start with a non-DST state and move to DST */
1952   dt1 = g_date_time_new (tz, 2009, 2, 15, 2, 0, 1);
1953   g_assert (!g_date_time_is_daylight_savings (dt1));
1954   g_assert_cmpint (g_date_time_get_hour (dt1), ==, 2);
1955
1956   dt2 = g_date_time_add_months (dt1, 6);
1957   g_assert (g_date_time_is_daylight_savings (dt2));
1958   g_assert_cmpint (g_date_time_get_hour (dt2), ==, 2);
1959
1960   g_date_time_unref (dt2);
1961   g_date_time_unref (dt1);
1962   g_time_zone_unref (tz);
1963 }
1964
1965 static inline gboolean
1966 is_leap_year (gint year)
1967 {
1968   g_assert (1 <= year && year <= 9999);
1969
1970   return year % 400 == 0 || (year % 4 == 0 && year % 100 != 0);
1971 }
1972
1973 static inline gint
1974 days_in_month (gint year, gint month)
1975 {
1976   const gint table[2][13] = {
1977     {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
1978     {0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
1979   };
1980
1981   g_assert (1 <= month && month <= 12);
1982
1983   return table[is_leap_year (year)][month];
1984 }
1985
1986 static void
1987 test_all_dates (void)
1988 {
1989   gint year, month, day;
1990   GTimeZone *timezone;
1991   gint64 unix_time;
1992   gint day_of_year;
1993   gint week_year;
1994   gint week_num;
1995   gint weekday;
1996
1997   /* save some time by hanging on to this. */
1998   timezone = g_time_zone_new_utc ();
1999
2000   unix_time = G_GINT64_CONSTANT(-62135596800);
2001
2002   /* 0001-01-01 is 0001-W01-1 */
2003   week_year = 1;
2004   week_num = 1;
2005   weekday = 1;
2006
2007
2008   /* The calendar makes a full cycle every 400 years, so we could
2009    * theoretically just test years 1 through 400.  That assumes that our
2010    * software has no bugs, so probably we should just test them all. :)
2011    */
2012   for (year = 1; year <= 9999; year++)
2013     {
2014       day_of_year = 1;
2015
2016       for (month = 1; month <= 12; month++)
2017         for (day = 1; day <= days_in_month (year, month); day++)
2018           {
2019             GDateTime *dt;
2020
2021             dt = g_date_time_new (timezone, year, month, day, 0, 0, 0);
2022
2023 #if 0
2024             g_printerr ("%04d-%02d-%02d = %04d-W%02d-%d = %04d-%03d\n",
2025                      year, month, day,
2026                      week_year, week_num, weekday,
2027                      year, day_of_year);
2028 #endif
2029
2030             /* sanity check */
2031             if G_UNLIKELY (g_date_time_get_year (dt) != year ||
2032                            g_date_time_get_month (dt) != month ||
2033                            g_date_time_get_day_of_month (dt) != day)
2034               g_error ("%04d-%02d-%02d comes out as %04d-%02d-%02d",
2035                        year, month, day,
2036                        g_date_time_get_year (dt),
2037                        g_date_time_get_month (dt),
2038                        g_date_time_get_day_of_month (dt));
2039
2040             if G_UNLIKELY (g_date_time_get_week_numbering_year (dt) != week_year ||
2041                            g_date_time_get_week_of_year (dt) != week_num ||
2042                            g_date_time_get_day_of_week (dt) != weekday)
2043               g_error ("%04d-%02d-%02d should be %04d-W%02d-%d but "
2044                        "comes out as %04d-W%02d-%d", year, month, day,
2045                        week_year, week_num, weekday,
2046                        g_date_time_get_week_numbering_year (dt),
2047                        g_date_time_get_week_of_year (dt),
2048                        g_date_time_get_day_of_week (dt));
2049
2050             if G_UNLIKELY (g_date_time_to_unix (dt) != unix_time)
2051               g_error ("%04d-%02d-%02d 00:00:00 UTC should have unix time %"
2052                        G_GINT64_FORMAT " but comes out as %"G_GINT64_FORMAT,
2053                        year, month, day, unix_time, g_date_time_to_unix (dt));
2054
2055             if G_UNLIKELY (g_date_time_get_day_of_year (dt) != day_of_year)
2056               g_error ("%04d-%02d-%02d should be day of year %d"
2057                        " but comes out as %d", year, month, day,
2058                        day_of_year, g_date_time_get_day_of_year (dt));
2059
2060             if G_UNLIKELY (g_date_time_get_hour (dt) != 0 ||
2061                            g_date_time_get_minute (dt) != 0 ||
2062                            g_date_time_get_seconds (dt) != 0)
2063               g_error ("%04d-%02d-%02d 00:00:00 UTC comes out "
2064                        "as %02d:%02d:%02.6f", year, month, day,
2065                        g_date_time_get_hour (dt),
2066                        g_date_time_get_minute (dt),
2067                        g_date_time_get_seconds (dt));
2068             /* done */
2069
2070             /* add 24 hours to unix time */
2071             unix_time += 24 * 60 * 60;
2072
2073             /* move day of year forward */
2074             day_of_year++;
2075
2076             /* move the week date forward */
2077             if (++weekday == 8)
2078               {
2079                 weekday = 1; /* Sunday -> Monday */
2080
2081                 /* NOTE: year/month/day is the final day of the week we
2082                  * just finished.
2083                  *
2084                  * If we just finished the last week of last year then
2085                  * we are definitely starting the first week of this
2086                  * year.
2087                  *
2088                  * Otherwise, if we're still in this year, but Sunday
2089                  * fell on or after December 28 then December 29, 30, 31
2090                  * could be days within the next year's first year.
2091                  */
2092                 if (year != week_year || (month == 12 && day >= 28))
2093                   {
2094                     /* first week of the new year */
2095                     week_num = 1;
2096                     week_year++;
2097                   }
2098                 else
2099                   week_num++;
2100               }
2101
2102             g_date_time_unref (dt);
2103           }
2104     }
2105
2106   g_time_zone_unref (timezone);
2107 }
2108
2109 static void
2110 test_z (void)
2111 {
2112   GTimeZone *tz;
2113   GDateTime *dt;
2114   gchar *p;
2115
2116   g_test_bug ("642935");
2117
2118   tz = g_time_zone_new ("-08:00");
2119   dt = g_date_time_new (tz, 1, 1, 1, 0, 0, 0);
2120
2121   p = g_date_time_format (dt, "%z");
2122   g_assert_cmpstr (p, ==, "-0800");
2123   g_free (p);
2124
2125   p = g_date_time_format (dt, "%:z");
2126   g_assert_cmpstr (p, ==, "-08:00");
2127   g_free (p);
2128
2129   p = g_date_time_format (dt, "%::z");
2130   g_assert_cmpstr (p, ==, "-08:00:00");
2131   g_free (p);
2132
2133   p = g_date_time_format (dt, "%:::z");
2134   g_assert_cmpstr (p, ==, "-08");
2135   g_free (p);
2136
2137   g_date_time_unref (dt);
2138   g_time_zone_unref (tz);
2139
2140   tz = g_time_zone_new ("+00:00");
2141   dt = g_date_time_new (tz, 1, 1, 1, 0, 0, 0);
2142   p = g_date_time_format (dt, "%:::z");
2143   g_assert_cmpstr (p, ==, "+00");
2144   g_free (p);
2145   g_date_time_unref (dt);
2146   g_time_zone_unref (tz);
2147
2148   tz = g_time_zone_new ("+08:23");
2149   dt = g_date_time_new (tz, 1, 1, 1, 0, 0, 0);
2150   p = g_date_time_format (dt, "%:::z");
2151   g_assert_cmpstr (p, ==, "+08:23");
2152   g_free (p);
2153   g_date_time_unref (dt);
2154   g_time_zone_unref (tz);
2155
2156   tz = g_time_zone_new ("+08:23:45");
2157   dt = g_date_time_new (tz, 1, 1, 1, 0, 0, 0);
2158   p = g_date_time_format (dt, "%:::z");
2159   g_assert_cmpstr (p, ==, "+08:23:45");
2160   g_free (p);
2161   g_date_time_unref (dt);
2162   g_time_zone_unref (tz);
2163
2164   tz = g_time_zone_new ("-00:15");
2165   dt = g_date_time_new (tz, 1, 1, 1, 0, 0, 0);
2166
2167   p = g_date_time_format (dt, "%z");
2168   g_assert_cmpstr (p, ==, "-0015");
2169   g_free (p);
2170
2171   p = g_date_time_format (dt, "%:z");
2172   g_assert_cmpstr (p, ==, "-00:15");
2173   g_free (p);
2174
2175   p = g_date_time_format (dt, "%::z");
2176   g_assert_cmpstr (p, ==, "-00:15:00");
2177   g_free (p);
2178
2179   p = g_date_time_format (dt, "%:::z");
2180   g_assert_cmpstr (p, ==, "-00:15");
2181   g_free (p);
2182
2183   g_date_time_unref (dt);
2184   g_time_zone_unref (tz);
2185 }
2186
2187 static void
2188 test_format_iso8601 (void)
2189 {
2190   GTimeZone *tz = NULL;
2191   GDateTime *dt = NULL;
2192   gchar *p = NULL;
2193
2194   tz = g_time_zone_new_utc ();
2195   dt = g_date_time_new (tz, 2019, 6, 26, 15, 1, 5);
2196   p = g_date_time_format_iso8601 (dt);
2197   g_assert_cmpstr (p, ==, "2019-06-26T15:01:05Z");
2198   g_free (p);
2199   g_date_time_unref (dt);
2200   g_time_zone_unref (tz);
2201
2202   tz = g_time_zone_new_offset (-60 * 60);
2203   dt = g_date_time_new (tz, 2019, 6, 26, 15, 1, 5);
2204   p = g_date_time_format_iso8601 (dt);
2205   g_assert_cmpstr (p, ==, "2019-06-26T15:01:05-01");
2206   g_free (p);
2207   g_date_time_unref (dt);
2208   g_time_zone_unref (tz);
2209 }
2210
2211 #pragma GCC diagnostic push
2212 #pragma GCC diagnostic ignored "-Wformat-y2k"
2213 static void
2214 test_strftime (void)
2215 {
2216 #ifdef __linux__
2217 #define TEST_FORMAT \
2218   "a%a A%A b%b B%B c%c C%C d%d e%e F%F g%g G%G h%h H%H I%I j%j m%m M%M " \
2219   "n%n p%p r%r R%R S%S t%t T%T u%u V%V w%w x%x X%X y%y Y%Y z%z Z%Z %%"
2220   time_t t;
2221
2222   /* 127997 is prime, 1315005118 is now */
2223   for (t = 0; t < 1315005118; t += 127997)
2224     {
2225       GDateTime *date_time;
2226       gchar c_str[1000];
2227       gchar *dt_str;
2228
2229       date_time = g_date_time_new_from_unix_local (t);
2230       dt_str = g_date_time_format (date_time, TEST_FORMAT);
2231       strftime (c_str, sizeof c_str, TEST_FORMAT, localtime (&t));
2232       g_assert_cmpstr (c_str, ==, dt_str);
2233       g_date_time_unref (date_time);
2234       g_free (dt_str);
2235     }
2236 #endif
2237 }
2238 #pragma GCC diagnostic pop
2239
2240 /* Check that g_date_time_format() correctly returns %NULL for format
2241  * placeholders which are not supported in the current locale. */
2242 static void
2243 test_GDateTime_strftime_error_handling (void)
2244 {
2245   gchar *oldlocale;
2246
2247   oldlocale = g_strdup (setlocale (LC_ALL, NULL));
2248   setlocale (LC_ALL, "de_DE.utf-8");
2249   if (strstr (setlocale (LC_ALL, NULL), "de_DE") != NULL)
2250     {
2251       /* de_DE doesn’t ever write time in 12-hour notation, so %r is
2252        * unsupported for it. */
2253       TEST_PRINTF_TIME (23, 0, 0, "%r", NULL);
2254     }
2255   else
2256     g_test_skip ("locale de_DE not available, skipping error handling tests");
2257   setlocale (LC_ALL, oldlocale);
2258   g_free (oldlocale);
2259 }
2260
2261 static void
2262 test_find_interval (void)
2263 {
2264   GTimeZone *tz;
2265   GDateTime *dt;
2266   gint64 u;
2267   gint i1, i2;
2268
2269 #ifdef G_OS_UNIX
2270   tz = g_time_zone_new ("America/Toronto");
2271 #elif defined G_OS_WIN32
2272   tz = g_time_zone_new ("Eastern Standard Time");
2273 #endif
2274   dt = g_date_time_new_utc (2010, 11, 7, 1, 30, 0);
2275   u = g_date_time_to_unix (dt);
2276
2277   i1 = g_time_zone_find_interval (tz, G_TIME_TYPE_STANDARD, u);
2278   i2 = g_time_zone_find_interval (tz, G_TIME_TYPE_DAYLIGHT, u);
2279
2280   g_assert_cmpint (i1, !=, i2);
2281
2282   g_date_time_unref (dt);
2283
2284   dt = g_date_time_new_utc (2010, 3, 14, 2, 0, 0);
2285   u = g_date_time_to_unix (dt);
2286
2287   i1 = g_time_zone_find_interval (tz, G_TIME_TYPE_STANDARD, u);
2288   g_assert_cmpint (i1, ==, -1);
2289
2290   g_date_time_unref (dt);
2291   g_time_zone_unref (tz);
2292 }
2293
2294 static void
2295 test_adjust_time (void)
2296 {
2297   GTimeZone *tz;
2298   GDateTime *dt;
2299   gint64 u, u2;
2300   gint i1, i2;
2301
2302 #ifdef G_OS_UNIX
2303   tz = g_time_zone_new ("America/Toronto");
2304 #elif defined G_OS_WIN32
2305   tz = g_time_zone_new ("Eastern Standard Time");
2306 #endif
2307   dt = g_date_time_new_utc (2010, 11, 7, 1, 30, 0);
2308   u = g_date_time_to_unix (dt);
2309   u2 = u;
2310
2311   i1 = g_time_zone_find_interval (tz, G_TIME_TYPE_DAYLIGHT, u);
2312   i2 = g_time_zone_adjust_time (tz, G_TIME_TYPE_DAYLIGHT, &u2);
2313
2314   g_assert_cmpint (i1, ==, i2);
2315   g_assert (u == u2);
2316
2317   g_date_time_unref (dt);
2318
2319   dt = g_date_time_new_utc (2010, 3, 14, 2, 30, 0);
2320   u2 = g_date_time_to_unix (dt);
2321   g_date_time_unref (dt);
2322
2323   dt = g_date_time_new_utc (2010, 3, 14, 3, 0, 0);
2324   u = g_date_time_to_unix (dt);
2325   g_date_time_unref (dt);
2326
2327   i1 = g_time_zone_adjust_time (tz, G_TIME_TYPE_DAYLIGHT, &u2);
2328   g_assert (u == u2);
2329
2330   g_time_zone_unref (tz);
2331 }
2332
2333 static void
2334 test_no_header (void)
2335 {
2336   GTimeZone *tz;
2337
2338   tz = g_time_zone_new ("blabla");
2339
2340   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "UTC");
2341   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "UTC");
2342   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, 0);
2343   g_assert (!g_time_zone_is_dst (tz, 0));
2344
2345   g_time_zone_unref (tz);
2346 }
2347
2348 static void
2349 test_posix_parse (void)
2350 {
2351   GTimeZone *tz;
2352   GDateTime *gdt1, *gdt2;
2353
2354   /* Check that an unknown zone name falls back to UTC. */
2355   tz = g_time_zone_new ("nonexistent");
2356   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "UTC");
2357   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "UTC");
2358   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, 0);
2359   g_assert (!g_time_zone_is_dst (tz, 0));
2360   g_time_zone_unref (tz);
2361
2362   /* An existent zone name should not fall back to UTC. */
2363   tz = g_time_zone_new ("PST8");
2364   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "PST8");
2365   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "PST");
2366   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, - 8 * 3600);
2367   g_assert (!g_time_zone_is_dst (tz, 0));
2368   g_time_zone_unref (tz);
2369
2370 /* This fails rules_from_identifier on Unix (though not on Windows)
2371  * but passes anyway because PST8PDT is a zone name.
2372  */
2373   tz = g_time_zone_new ("PST8PDT");
2374   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "PST8PDT");
2375   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "PST");
2376   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, - 8 * 3600);
2377   g_assert (!g_time_zone_is_dst (tz, 0));
2378   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 1), ==, "PDT");
2379   g_assert_cmpint (g_time_zone_get_offset (tz, 1), ==,- 7 * 3600);
2380   g_assert (g_time_zone_is_dst (tz, 1));
2381   g_time_zone_unref (tz);
2382
2383   tz = g_time_zone_new ("PST8PDT6:32:15");
2384 #ifdef G_OS_WIN32
2385   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "PST8PDT6:32:15");
2386   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "PST");
2387   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, - 8 * 3600);
2388   g_assert (!g_time_zone_is_dst (tz, 0));
2389   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 1), ==, "PDT");
2390   g_assert_cmpint (g_time_zone_get_offset (tz, 1), ==, - 6 * 3600 - 32 *60 - 15);
2391   g_assert (g_time_zone_is_dst (tz, 1));
2392   gdt1 = g_date_time_new (tz, 2012, 12, 6, 11, 15, 23.0);
2393   gdt2 = g_date_time_new (tz, 2012, 6, 6, 11, 15, 23.0);
2394   g_assert (!g_date_time_is_daylight_savings (gdt1));
2395   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) /  1000000, ==, -28800);
2396   g_assert (g_date_time_is_daylight_savings (gdt2));
2397   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, -23535);
2398   g_date_time_unref (gdt1);
2399   g_date_time_unref (gdt2);
2400 #else
2401   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "UTC");
2402   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "UTC");
2403   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, 0);
2404   g_assert (!g_time_zone_is_dst (tz, 0));
2405 #endif
2406   g_time_zone_unref (tz);
2407
2408   tz = g_time_zone_new ("NZST-12:00:00NZDT-13:00:00,M10.1.0,M3.3.0");
2409   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "NZST-12:00:00NZDT-13:00:00,M10.1.0,M3.3.0");
2410   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "NZST");
2411   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, 12 * 3600);
2412   g_assert (!g_time_zone_is_dst (tz, 0));
2413   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 1), ==, "NZDT");
2414   g_assert_cmpint (g_time_zone_get_offset (tz, 1), ==, 13 * 3600);
2415   g_assert (g_time_zone_is_dst (tz, 1));
2416   gdt1 = g_date_time_new (tz, 2012, 3, 18, 0, 15, 23.0);
2417   gdt2 = g_date_time_new (tz, 2012, 3, 18, 3, 15, 23.0);
2418   g_assert (g_date_time_is_daylight_savings (gdt1));
2419   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2420   g_assert (!g_date_time_is_daylight_savings (gdt2));
2421   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2422   g_date_time_unref (gdt1);
2423   g_date_time_unref (gdt2);
2424   gdt1 = g_date_time_new (tz, 2012, 10, 7, 3, 15, 23.0);
2425   gdt2 = g_date_time_new (tz, 2012, 10, 7, 1, 15, 23.0);
2426   g_assert (g_date_time_is_daylight_savings (gdt1));
2427   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2428   g_assert (!g_date_time_is_daylight_savings (gdt2));
2429   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2430   g_date_time_unref (gdt1);
2431   g_date_time_unref (gdt2);
2432   g_time_zone_unref (tz);
2433
2434   tz = g_time_zone_new ("NZST-12:00:00NZDT-13:00:00,280,77");
2435   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "NZST-12:00:00NZDT-13:00:00,280,77");
2436   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "NZST");
2437   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, 12 * 3600);
2438   g_assert (!g_time_zone_is_dst (tz, 0));
2439   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 1), ==, "NZDT");
2440   g_assert_cmpint (g_time_zone_get_offset (tz, 1), ==, 13 * 3600);
2441   g_assert (g_time_zone_is_dst (tz, 1));
2442   gdt1 = g_date_time_new (tz, 2012, 3, 18, 0, 15, 23.0);
2443   gdt2 = g_date_time_new (tz, 2012, 3, 18, 3, 15, 23.0);
2444   g_assert (g_date_time_is_daylight_savings (gdt1));
2445   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2446   g_assert (!g_date_time_is_daylight_savings (gdt2));
2447   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2448   g_date_time_unref (gdt1);
2449   g_date_time_unref (gdt2);
2450   gdt1 = g_date_time_new (tz, 2012, 10, 7, 3, 15, 23.0);
2451   gdt2 = g_date_time_new (tz, 2012, 10, 7, 1, 15, 23.0);
2452   g_assert (g_date_time_is_daylight_savings (gdt1));
2453   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2454   g_assert (!g_date_time_is_daylight_savings (gdt2));
2455   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2456   g_date_time_unref (gdt1);
2457   g_date_time_unref (gdt2);
2458   g_time_zone_unref (tz);
2459
2460   tz = g_time_zone_new ("NZST-12:00:00NZDT-13:00:00,J279,J76");
2461   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "NZST-12:00:00NZDT-13:00:00,J279,J76");
2462   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "NZST");
2463   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, 12 * 3600);
2464   g_assert (!g_time_zone_is_dst (tz, 0));
2465   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 1), ==, "NZDT");
2466   g_assert_cmpint (g_time_zone_get_offset (tz, 1), ==, 13 * 3600);
2467   g_assert (g_time_zone_is_dst (tz, 1));
2468   gdt1 = g_date_time_new (tz, 2012, 3, 18, 0, 15, 23.0);
2469   gdt2 = g_date_time_new (tz, 2012, 3, 18, 3, 15, 23.0);
2470   g_assert (g_date_time_is_daylight_savings (gdt1));
2471   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2472   g_assert (!g_date_time_is_daylight_savings (gdt2));
2473   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2474   g_date_time_unref (gdt1);
2475   g_date_time_unref (gdt2);
2476   gdt1 = g_date_time_new (tz, 2012, 10, 7, 3, 15, 23.0);
2477   gdt2 = g_date_time_new (tz, 2012, 10, 7, 1, 15, 23.0);
2478   g_assert (g_date_time_is_daylight_savings (gdt1));
2479   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2480   g_assert (!g_date_time_is_daylight_savings (gdt2));
2481   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2482   g_date_time_unref (gdt1);
2483   g_date_time_unref (gdt2);
2484   g_time_zone_unref (tz);
2485
2486   tz = g_time_zone_new ("NZST-12:00:00NZDT-13:00:00,M10.1.0/07:00,M3.3.0/07:00");
2487   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "NZST-12:00:00NZDT-13:00:00,M10.1.0/07:00,M3.3.0/07:00");
2488   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 0), ==, "NZST");
2489   g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, 12 * 3600);
2490   g_assert (!g_time_zone_is_dst (tz, 0));
2491   g_assert_cmpstr (g_time_zone_get_abbreviation (tz, 1), ==, "NZDT");
2492   g_assert_cmpint (g_time_zone_get_offset (tz, 1), ==, 13 * 3600);
2493   g_assert (g_time_zone_is_dst (tz, 1));
2494   gdt1 = g_date_time_new (tz, 2012, 3, 18, 5, 15, 23.0);
2495   gdt2 = g_date_time_new (tz, 2012, 3, 18, 8, 15, 23.0);
2496   g_assert (g_date_time_is_daylight_savings (gdt1));
2497   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2498   g_assert (!g_date_time_is_daylight_savings (gdt2));
2499   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2500   g_date_time_unref (gdt1);
2501   g_date_time_unref (gdt2);
2502   gdt1 = g_date_time_new (tz, 2012, 10, 7, 8, 15, 23.0);
2503   gdt2 = g_date_time_new (tz, 2012, 10, 7, 6, 15, 23.0);
2504   g_assert (g_date_time_is_daylight_savings (gdt1));
2505   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2506   g_assert (!g_date_time_is_daylight_savings (gdt2));
2507   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2508   g_date_time_unref (gdt1);
2509   g_date_time_unref (gdt2);
2510   gdt1 = g_date_time_new (tz, 1902, 10, 7, 8, 15, 23.0);
2511   gdt2 = g_date_time_new (tz, 1902, 10, 7, 6, 15, 23.0);
2512   g_assert (!g_date_time_is_daylight_savings (gdt1));
2513   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 43200);
2514   g_assert (!g_date_time_is_daylight_savings (gdt2));
2515   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2516   g_date_time_unref (gdt1);
2517   g_date_time_unref (gdt2);
2518   gdt1 = g_date_time_new (tz, 2142, 10, 7, 8, 15, 23.0);
2519   gdt2 = g_date_time_new (tz, 2142, 10, 7, 6, 15, 23.0);
2520   g_assert (g_date_time_is_daylight_savings (gdt1));
2521   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 46800);
2522   g_assert (!g_date_time_is_daylight_savings (gdt2));
2523   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2524   g_date_time_unref (gdt1);
2525   g_date_time_unref (gdt2);
2526   gdt1 = g_date_time_new (tz, 3212, 10, 7, 8, 15, 23.0);
2527   gdt2 = g_date_time_new (tz, 3212, 10, 7, 6, 15, 23.0);
2528   g_assert (!g_date_time_is_daylight_savings (gdt1));
2529   g_assert_cmpint (g_date_time_get_utc_offset (gdt1) / 1000000, ==, 43200);
2530   g_assert (!g_date_time_is_daylight_savings (gdt2));
2531   g_assert_cmpint (g_date_time_get_utc_offset (gdt2) / 1000000, ==, 43200);
2532   g_date_time_unref (gdt1);
2533   g_date_time_unref (gdt2);
2534   g_time_zone_unref (tz);
2535 }
2536
2537 static void
2538 test_GDateTime_floating_point (void)
2539 {
2540   GDateTime *dt;
2541   GTimeZone *tz;
2542
2543   g_test_bug ("697715");
2544
2545   tz = g_time_zone_new ("-03:00");
2546   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "-03:00");
2547   dt = g_date_time_new (tz, 2010, 5, 24,  8, 0, 1.000001);
2548   g_time_zone_unref (tz);
2549   g_assert_cmpint (g_date_time_get_microsecond (dt), ==, 1);
2550   g_date_time_unref (dt);
2551 }
2552
2553 /* Check that g_time_zone_get_identifier() returns the identifier given to
2554  * g_time_zone_new(), or "UTC" if loading the timezone failed. */
2555 static void
2556 test_identifier (void)
2557 {
2558   GTimeZone *tz;
2559   gchar *old_tz = g_strdup (g_getenv ("TZ"));
2560
2561 #ifdef G_OS_WIN32
2562   const char *recife_tz = "SA Eastern Standard Time";
2563 #else
2564   const char *recife_tz = "America/Recife";
2565 #endif
2566
2567   tz = g_time_zone_new ("UTC");
2568   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "UTC");
2569   g_time_zone_unref (tz);
2570
2571   tz = g_time_zone_new_utc ();
2572   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "UTC");
2573   g_time_zone_unref (tz);
2574
2575   tz = g_time_zone_new ("some rubbish");
2576   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "UTC");
2577   g_time_zone_unref (tz);
2578
2579   tz = g_time_zone_new ("Z");
2580   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "Z");
2581   g_time_zone_unref (tz);
2582
2583   tz = g_time_zone_new ("+03:15");
2584   g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "+03:15");
2585   g_time_zone_unref (tz);
2586
2587   /* System timezone. We can’t change this, but we can at least assert that
2588    * the identifier is non-NULL and doesn’t start with a slash. */
2589   tz = g_time_zone_new (NULL);
2590   g_assert_nonnull (g_time_zone_get_identifier (tz));
2591   g_assert_cmpstr (g_time_zone_get_identifier (tz), !=, "");
2592   g_assert_true (*g_time_zone_get_identifier (tz) != '/');
2593   g_time_zone_unref (tz);
2594
2595   /* Local timezone tests. */
2596   if (g_setenv ("TZ", recife_tz, TRUE))
2597     {
2598       tz = g_time_zone_new_local ();
2599       g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, recife_tz);
2600       g_time_zone_unref (tz);
2601     }
2602
2603   if (g_setenv ("TZ", "some rubbish", TRUE))
2604     {
2605       tz = g_time_zone_new_local ();
2606       g_assert_cmpstr (g_time_zone_get_identifier (tz), ==, "UTC");
2607       g_time_zone_unref (tz);
2608     }
2609
2610   if (old_tz != NULL)
2611     g_assert_true (g_setenv ("TZ", old_tz, TRUE));
2612   else
2613     g_unsetenv ("TZ");
2614
2615   g_free (old_tz);
2616 }
2617
2618 /* Test various calls to g_time_zone_new_offset(). */
2619 static void
2620 test_new_offset (void)
2621 {
2622   const gint32 vectors[] =
2623     {
2624       -10000,
2625       -3600,
2626       -61,
2627       -60,
2628       -59,
2629       0,
2630       59,
2631       60,
2632       61,
2633       3600,
2634       10000,
2635     };
2636   gsize i;
2637
2638   for (i = 0; i < G_N_ELEMENTS (vectors); i++)
2639     {
2640       GTimeZone *tz = NULL;
2641
2642       g_test_message ("Vector %" G_GSIZE_FORMAT ": %d", i, vectors[i]);
2643
2644       tz = g_time_zone_new_offset (vectors[i]);
2645       g_assert_nonnull (tz);
2646       g_assert_cmpstr (g_time_zone_get_identifier (tz), !=, "UTC");
2647       g_assert_cmpint (g_time_zone_get_offset (tz, 0), ==, vectors[i]);
2648       g_time_zone_unref (tz);
2649     }
2650 }
2651
2652 gint
2653 main (gint   argc,
2654       gchar *argv[])
2655 {
2656   /* In glibc, LANGUAGE is used as highest priority guess for category value.
2657    * Unset it to avoid interference with tests using setlocale and translation. */
2658   g_unsetenv ("LANGUAGE");
2659
2660   g_test_init (&argc, &argv, NULL);
2661   g_test_bug_base ("http://bugzilla.gnome.org/");
2662
2663   /* GDateTime Tests */
2664   bind_textdomain_codeset ("glib20", "UTF-8");
2665
2666   g_test_add_func ("/GDateTime/invalid", test_GDateTime_invalid);
2667   g_test_add_func ("/GDateTime/add_days", test_GDateTime_add_days);
2668   g_test_add_func ("/GDateTime/add_full", test_GDateTime_add_full);
2669   g_test_add_func ("/GDateTime/add_hours", test_GDateTime_add_hours);
2670   g_test_add_func ("/GDateTime/add_minutes", test_GDateTime_add_minutes);
2671   g_test_add_func ("/GDateTime/add_months", test_GDateTime_add_months);
2672   g_test_add_func ("/GDateTime/add_seconds", test_GDateTime_add_seconds);
2673   g_test_add_func ("/GDateTime/add_weeks", test_GDateTime_add_weeks);
2674   g_test_add_func ("/GDateTime/add_years", test_GDateTime_add_years);
2675   g_test_add_func ("/GDateTime/compare", test_GDateTime_compare);
2676   g_test_add_func ("/GDateTime/diff", test_GDateTime_diff);
2677   g_test_add_func ("/GDateTime/equal", test_GDateTime_equal);
2678   g_test_add_func ("/GDateTime/get_day_of_week", test_GDateTime_get_day_of_week);
2679   g_test_add_func ("/GDateTime/get_day_of_month", test_GDateTime_get_day_of_month);
2680   g_test_add_func ("/GDateTime/get_day_of_year", test_GDateTime_get_day_of_year);
2681   g_test_add_func ("/GDateTime/get_hour", test_GDateTime_get_hour);
2682   g_test_add_func ("/GDateTime/get_microsecond", test_GDateTime_get_microsecond);
2683   g_test_add_func ("/GDateTime/get_minute", test_GDateTime_get_minute);
2684   g_test_add_func ("/GDateTime/get_month", test_GDateTime_get_month);
2685   g_test_add_func ("/GDateTime/get_second", test_GDateTime_get_second);
2686   g_test_add_func ("/GDateTime/get_utc_offset", test_GDateTime_get_utc_offset);
2687   g_test_add_func ("/GDateTime/get_year", test_GDateTime_get_year);
2688   g_test_add_func ("/GDateTime/hash", test_GDateTime_hash);
2689   g_test_add_func ("/GDateTime/new_from_unix", test_GDateTime_new_from_unix);
2690   g_test_add_func ("/GDateTime/new_from_unix_utc", test_GDateTime_new_from_unix_utc);
2691   g_test_add_func ("/GDateTime/new_from_unix/overflow", test_GDateTime_new_from_unix_overflow);
2692   g_test_add_func ("/GDateTime/new_from_timeval", test_GDateTime_new_from_timeval);
2693   g_test_add_func ("/GDateTime/new_from_timeval_utc", test_GDateTime_new_from_timeval_utc);
2694   g_test_add_func ("/GDateTime/new_from_timeval/overflow", test_GDateTime_new_from_timeval_overflow);
2695   g_test_add_func ("/GDateTime/new_from_iso8601", test_GDateTime_new_from_iso8601);
2696   g_test_add_func ("/GDateTime/new_from_iso8601/2", test_GDateTime_new_from_iso8601_2);
2697   g_test_add_func ("/GDateTime/new_full", test_GDateTime_new_full);
2698   g_test_add_func ("/GDateTime/now", test_GDateTime_now);
2699   g_test_add_func ("/GDateTime/printf", test_GDateTime_printf);
2700   g_test_add_func ("/GDateTime/non_utf8_printf", test_non_utf8_printf);
2701   g_test_add_func ("/GDateTime/format_unrepresentable", test_format_unrepresentable);
2702   g_test_add_func ("/GDateTime/format_iso8601", test_format_iso8601);
2703   g_test_add_func ("/GDateTime/strftime", test_strftime);
2704   g_test_add_func ("/GDateTime/strftime/error_handling", test_GDateTime_strftime_error_handling);
2705   g_test_add_func ("/GDateTime/modifiers", test_modifiers);
2706   g_test_add_func ("/GDateTime/month_names", test_month_names);
2707   g_test_add_func ("/GDateTime/to_local", test_GDateTime_to_local);
2708   g_test_add_func ("/GDateTime/to_unix", test_GDateTime_to_unix);
2709   g_test_add_func ("/GDateTime/to_timeval", test_GDateTime_to_timeval);
2710   g_test_add_func ("/GDateTime/to_utc", test_GDateTime_to_utc);
2711   g_test_add_func ("/GDateTime/now_utc", test_GDateTime_now_utc);
2712   g_test_add_func ("/GDateTime/dst", test_GDateTime_dst);
2713   g_test_add_func ("/GDateTime/test_z", test_z);
2714   g_test_add_func ("/GDateTime/test-all-dates", test_all_dates);
2715   g_test_add_func ("/GTimeZone/find-interval", test_find_interval);
2716   g_test_add_func ("/GTimeZone/adjust-time", test_adjust_time);
2717   g_test_add_func ("/GTimeZone/no-header", test_no_header);
2718   g_test_add_func ("/GTimeZone/posix-parse", test_posix_parse);
2719   g_test_add_func ("/GTimeZone/floating-point", test_GDateTime_floating_point);
2720   g_test_add_func ("/GTimeZone/identifier", test_identifier);
2721   g_test_add_func ("/GTimeZone/new-offset", test_new_offset);
2722
2723   return g_test_run ();
2724 }