/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */

#include "prtime.h"

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

PRBool debug_mode = PR_TRUE;

static char* dayOfWeek[] = {"Sun", "Mon", "Tue", "Wed",
                            "Thu", "Fri", "Sat", "???"};
static char* month[] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul",
                        "Aug", "Sep", "Oct", "Nov", "Dec", "???"};

static void PrintExplodedTime(const PRExplodedTime* et) {
  PRInt32 totalOffset;
  PRInt32 hourOffset, minOffset;
  const char* sign;

  /* Print day of the week, month, day, hour, minute, and second */
  if (debug_mode)
    printf("%s %s %ld %02ld:%02ld:%02ld ", dayOfWeek[et->tm_wday],
           month[et->tm_month], et->tm_mday, et->tm_hour, et->tm_min,
           et->tm_sec);

  /* Print time zone */
  totalOffset = et->tm_params.tp_gmt_offset + et->tm_params.tp_dst_offset;
  if (totalOffset == 0) {
    if (debug_mode) {
      printf("UTC ");
    }
  } else {
    sign = "+";
    if (totalOffset < 0) {
      totalOffset = -totalOffset;
      sign = "-";
    }
    hourOffset = totalOffset / 3600;
    minOffset = (totalOffset % 3600) / 60;
    if (debug_mode) {
      printf("%s%02ld%02ld ", sign, hourOffset, minOffset);
    }
  }

  /* Print year */
  if (debug_mode) {
    printf("%hd", et->tm_year);
  }
}

static PRStatus KnownAnswerTest(void) {
  static const struct {
    const char* string;
    PRBool default_to_gmt;
    PRTime expected;
  } tests[] = {
      {"Mon, 15 Oct 2007 19:45:00 GMT", PR_FALSE, PR_INT64(1192477500000000)},
      {"15 Oct 07 19:45 GMT", PR_FALSE, PR_INT64(1192477500000000)},
      {"Mon Oct 15 12:45 PDT 2007", PR_FALSE, PR_INT64(1192477500000000)},
      {"16 Oct 2007 4:45-JST (Tuesday)", PR_FALSE, PR_INT64(1192477500000000)},
      // Not normalized.
      {"Mon Oct 15 12:44:60 PDT 2007", PR_FALSE, PR_INT64(1192477500000000)},
      // Not normalized.
      {"Sun Oct 14 36:45 PDT 2007", PR_FALSE, PR_INT64(1192477500000000)},
      {"Mon, 15 Oct 2007 19:45:23 GMT", PR_FALSE, PR_INT64(1192477523000000)},
  };

  PRBool failed = PR_FALSE;

  for (int i = 0; i < sizeof(tests) / sizeof(tests[0]); i++) {
    PRTime result = 0;
    if (PR_ParseTimeString(tests[i].string, tests[i].default_to_gmt, &result) !=
        PR_SUCCESS) {
      printf("PR_ParseTimeString(\"%s\", %s, &result) failed\n",
             tests[i].string, tests[i].default_to_gmt ? "PR_TRUE" : "PR_FALSE");
      failed = PR_TRUE;
      continue;
    }
    if (result != tests[i].expected) {
      printf(
          "PR_ParseTimeString(\"%s\", %s, &result) returns %lld, expected "
          "%lld\n",
          tests[i].string, tests[i].default_to_gmt ? "PR_TRUE" : "PR_FALSE",
          (long long)result, (long long)tests[i].expected);
      failed = PR_TRUE;
    }
  }

  return failed ? PR_FAILURE : PR_SUCCESS;
}

int main(int argc, char** argv) {
  /*
   * 1. Verify that PR_ParseTimeString doesn't crash on an out-of-range time
   * string (bug 480740).
   */
  PRTime ct;
  PRExplodedTime et;
  PRStatus rv;
  char* sp1 = "Sat, 1 Jan 3001 00:00:00";  /* no time zone */
  char* sp2 = "Fri, 31 Dec 3000 23:59:60"; /* no time zone, not normalized */

#if _MSC_VER >= 1400 && !defined(WINCE)
  /* Run this test in the US Pacific Time timezone. */
  _putenv_s("TZ", "PST8PDT");
  _tzset();
#endif

  rv = PR_ParseTimeString(sp1, PR_FALSE, &ct);
  printf("rv = %d\n", rv);
  PR_ExplodeTime(ct, PR_GMTParameters, &et);
  PrintExplodedTime(&et);
  printf("\n");

  rv = PR_ParseTimeString(sp2, PR_FALSE, &ct);
  printf("rv = %d\n", rv);
  PR_ExplodeTime(ct, PR_GMTParameters, &et);
  PrintExplodedTime(&et);
  printf("\n");

  /* 2. Run a full-blown test for PR_ParseTimeString. */
  if (KnownAnswerTest() != PR_SUCCESS) {
    printf("FAIL\n");
    return 1;
  }

  printf("PASS\n");
  return 0;
}