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

static int
do_bz18985 (void)
{
  char buf[1000];
  struct tm ttm;
  int rc, ret = 0;

  memset (&ttm, 1, sizeof (ttm));
  ttm.tm_zone = NULL;  /* Dereferenced directly if non-NULL.  */
  rc = strftime (buf, sizeof (buf), "%a %A %b %B %c %z %Z", &ttm);

  if (rc == 66)
    {
      const char expected[]
       = "? ? ? ? ? ? 16843009 16843009:16843009:16843009 16844909 +467836 ?";
      if (0 != strcmp (buf, expected))
       {
         printf ("expected:\n  %s\ngot:\n  %s\n", expected, buf);
         ret += 1;
       }
    }
  else
    {
      printf ("expected 66, got %d\n", rc);
      ret += 1;
    }

  /* Check negative values as well.  */
  memset (&ttm, 0xFF, sizeof (ttm));
  ttm.tm_zone = NULL;  /* Dereferenced directly if non-NULL.  */
  rc = strftime (buf, sizeof (buf), "%a %A %b %B %c %z %Z", &ttm);

  if (rc == 30)
    {
      const char expected[] = "? ? ? ? ? ? -1 -1:-1:-1 1899  ";
      if (0 != strcmp (buf, expected))
       {
         printf ("expected:\n  %s\ngot:\n  %s\n", expected, buf);
         ret += 1;
       }
    }
  else
    {
      printf ("expected 30, got %d\n", rc);
      ret += 1;
    }

  return ret;
}


static struct
{
  const char *fmt;
  size_t min;
  size_t max;
} tests[] =
  {
    { "%2000Y", 2000, 4000 },
    { "%02000Y", 2000, 4000 },
    { "%_2000Y", 2000, 4000 },
    { "%-2000Y", 2000, 4000 },
  };
#define ntests (sizeof (tests) / sizeof (tests[0]))


static int
do_test (void)
{
  size_t cnt;
  int result = 0;

  time_t tnow = time (NULL);
  struct tm *now = localtime (&tnow);

  for (cnt = 0; cnt < ntests; ++cnt)
    {
      size_t size = 0;
      int res;
      char *buf = NULL;

      do
	{
	  size += 500;
	  buf = (char *) realloc (buf, size);
	  if (buf == NULL)
	    {
	      puts ("out of memory");
	      exit (1);
	    }

	  res = strftime (buf, size, tests[cnt].fmt, now);
	  if (res != 0)
	    break;
	}
      while (size < tests[cnt].max);

      if (res == 0)
	{
	  printf ("%Zu: %s: res == 0 despite size == %Zu\n",
		  cnt, tests[cnt].fmt, size);
	  result = 1;
	}
      else if (size < tests[cnt].min)
	{
	  printf ("%Zu: %s: size == %Zu was enough\n",
		  cnt, tests[cnt].fmt, size);
	  result = 1;
	}
      else
	printf ("%Zu: %s: size == %Zu: OK\n", cnt, tests[cnt].fmt, size);

      free (buf);
    }

  struct tm ttm =
    {
      /* Initialize the fields which are needed in the tests.  */
      .tm_mday = 1,
      .tm_hour = 2
    };
  const struct
  {
    const char *fmt;
    const char *exp;
    size_t n;
  } ftests[] =
    {
      { "%-e", "1", 1 },
      { "%-k", "2", 1 },
      { "%-l", "2", 1 },
    };
#define nftests (sizeof (ftests) / sizeof (ftests[0]))
  for (cnt = 0; cnt < nftests; ++cnt)
    {
      char buf[100];
      size_t r = strftime (buf, sizeof (buf), ftests[cnt].fmt, &ttm);
      if (r != ftests[cnt].n)
	{
	  printf ("strftime(\"%s\") returned %zu not %zu\n",
		  ftests[cnt].fmt, r, ftests[cnt].n);
	  result = 1;
	}
      if (strcmp (buf, ftests[cnt].exp) != 0)
	{
	  printf ("strftime(\"%s\") produced \"%s\" not \"%s\"\n",
		  ftests[cnt].fmt, buf, ftests[cnt].exp);
	  result = 1;
	}
    }

  return result + do_bz18985 ();
}

#define TEST_FUNCTION do_test ()
#include "../test-skeleton.c"
