--- /dev/null
+#include <stdio.h>
+#include <assert.h>
+#include <time.h>
+
+#include <GeneralizedTime.c>
+#include <math.h> /* for pow(3) */
+
+static void
+recognize(char *time_str, time_t expect, int as_gmt) {
+ GeneralizedTime_t gt;
+ struct tm tm;
+ time_t tloc;
+ int fv, fp;
+
+ gt.buf = (uint8_t *)time_str;
+ gt.size = strlen(time_str);
+
+ tloc = asn_GT2time_frac(>, &fv, &fp, &tm, as_gmt);
+ printf("%s: [%s] -> %ld == %ld\n",
+ as_gmt?"GMT":"ofs", time_str, (long)tloc, (long)expect);
+
+ if(tloc != -1) {
+ printf("\t%04d-%02d-%02dT%02d:%02d:%02d.%f(%d/%d)%+03ld%02ld\n",
+ tm.tm_year + 1900,
+ tm.tm_mon + 1,
+ tm.tm_mday,
+ tm.tm_hour,
+ tm.tm_min,
+ tm.tm_sec,
+ (double)fv * pow(0.1, fp), fv, fp,
+ (GMTOFF(tm) / 3600),
+ labs(GMTOFF(tm) % 3600)
+ );
+ }
+ assert(tloc == expect);
+
+#ifdef HAVE_TM_GMTOFF
+ assert(tloc == -1 || as_gmt == 0 || GMTOFF(tm) == 0);
+#endif
+
+ if(!as_gmt) recognize(time_str, expect, 1);
+}
+
+static void
+encode(time_t tloc, const char *expect, int force_gmt) {
+ GeneralizedTime_t *gt;
+ struct tm tm, *tmp;
+
+ tmp = localtime_r(&tloc, &tm);
+ assert(tmp);
+
+ gt = asn_time2GT(0, &tm, force_gmt);
+ if(gt) {
+ assert(expect);
+ printf("[%s] vs [%s] (%d)\n",
+ gt->buf, expect, force_gmt);
+ assert(gt->size == strlen((char *)gt->buf));
+ assert(!strcmp((char *)gt->buf, expect));
+ } else {
+ assert(!expect);
+ }
+ ASN_STRUCT_FREE(asn_DEF_GeneralizedTime, gt);
+}
+
+#define RECODE(foo, bar) recode(__LINE__, foo, bar)
+
+static void
+recode(int lineno, char *time_str, const char *expect) {
+ int frac_value, frac_digits;
+ GeneralizedTime_t gt;
+ struct tm tm;
+ time_t tloc;
+ char *tz;
+
+ gt.buf = (uint8_t *)time_str;
+ gt.size = strlen(time_str);
+
+ tloc = asn_GT2time_frac(>, &frac_value, &frac_digits, &tm, 1);
+ assert(tloc != -1);
+
+ gt.buf = 0;
+ asn_time2GT_frac(>, &tm, frac_value, frac_digits, 1);
+ assert(gt.buf);
+
+ tz = getenv("TZ");
+ printf("%d: [%s] (%ld) => [%s] == [%s] (%d, %d) (TZ=%s)\n",
+ lineno, time_str, (long)tloc, gt.buf,
+ expect, frac_value, frac_digits,
+ tz ? tz : "");
+
+ assert(strcmp((char *)gt.buf, expect) == 0);
+ FREEMEM(gt.buf);
+}
+
+static void
+check_fractions() {
+ GeneralizedTime_t *gt = 0;
+ struct tm tm;
+ int fv, fd;
+ time_t tloc;
+
+ memset(&tm, 0, sizeof tm);
+ tm.tm_year = 70;
+ tm.tm_mday = 1;
+
+ gt = asn_time2GT_frac(gt, &tm, -1, -1, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
+
+ gt = asn_time2GT_frac(gt, &tm, 0, 0, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
+
+ gt = asn_time2GT_frac(gt, &tm, 0, -1, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
+
+ gt = asn_time2GT_frac(gt, &tm, -1, 0, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
+
+ gt = asn_time2GT_frac(gt, &tm, 10, 0, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
+
+ /* Normalization should happen prior to calling the _frac() */
+ gt = asn_time2GT_frac(gt, &tm, 55, 2, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000.55Z") == 0);
+
+ gt = asn_time2GT_frac(gt, &tm, 5, 2, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000.05Z") == 0);
+
+ /* Normalization should happen prior calling the _frac() */
+ gt = asn_time2GT_frac(gt, &tm, 900, 2, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
+
+ gt = asn_time2GT_frac(gt, &tm, 90, 2, 1);
+ assert(gt);
+ printf("[%s]\n", gt->buf);
+ assert(strcmp((char *)gt->buf, "19700101000000.9Z") == 0);
+
+ tloc = asn_GT2time_prec(gt, &fv, 0, 0, 1);
+ assert(tloc == 0);
+ assert(fv == 0);
+
+ tloc = asn_GT2time_prec(gt, &fv, 1, 0, 1);
+ assert(tloc == 0);
+ assert(fv == 9);
+
+ tloc = asn_GT2time_prec(gt, &fv, 2, 0, 1);
+ assert(tloc == 0);
+ assert(fv == 90);
+
+ tloc = asn_GT2time_frac(gt, &fv, &fd, 0, 1);
+ assert(tloc == 0);
+ assert(fv == 9);
+ assert(fd == 1);
+
+ gt->buf[gt->size-1] = '0';
+ gt->buf[gt->size++] = 'Z';
+ gt->buf[gt->size] = '\0';
+
+ tloc = asn_GT2time_frac(gt, &fv, &fd, 0, 1);
+ assert(tloc == 0);
+ assert(fd == 2);
+ assert(fv == 90);
+
+ tloc = asn_GT2time_prec(gt, &fv, 1, 0, 1);
+ assert(tloc == 0);
+ assert(fv == 9);
+
+ tloc = asn_GT2time_prec(gt, &fv, 100, 0, 1);
+ assert(tloc == 0);
+ assert(fv == 0);
+
+ FREEMEM(gt->buf);
+ FREEMEM(gt);
+}
+
+static void
+compare(int lineno, int cmp_control, const char *astr, const char *bstr) {
+ GeneralizedTime_t a = {(uint8_t *)strdup(astr), strlen(astr), {0, 0, 0, 0, 0}};
+ GeneralizedTime_t b = {(uint8_t *)strdup(bstr), strlen(bstr), {0, 0, 0, 0, 0}};
+ int cmp_result = asn_DEF_GeneralizedTime.op->compare_struct(
+ &asn_DEF_GeneralizedTime, &a, &b);
+ if(cmp_result != cmp_control) {
+ fprintf(stderr, "%03d: [%s] == [%s] = %d, expected %d\n", lineno, astr,
+ bstr, cmp_result, cmp_control);
+ assert(cmp_result == cmp_control);
+ }
+ ASN_STRUCT_RESET(asn_DEF_GeneralizedTime, &a);
+ ASN_STRUCT_RESET(asn_DEF_GeneralizedTime, &b);
+}
+
+int
+main(int ac, char **av) {
+ char *tz = getenv("TZ");
+
+ (void)av;
+
+ printf("TZ = [%s]\n", tz ? tz : "");
+
+ check_fractions();
+
+ recognize("200401250", -1, 0);
+ recognize("2004012509300", -1, 0);
+ recognize("20040125093000-", -1, 0);
+ recognize("20040125093007-0", -1, 0);
+ recognize("20040125093007-080", -1, 0);
+ recognize("200401250930.01Z", -1, 0);
+
+ /* These six are from X.690:11.7.5 */
+ recognize("19920520240000Z", -1, 0); /* midnight represented incorrectly */
+ recognize("19920622123421.0Z", 709216461, 0); /* spurious trailing zeros */
+ recognize("19920722132100.30Z", 711811260, 0); /* spurious trailing zeros */
+ recognize("19920521000000Z", 706406400, 0);
+ recognize("19920622123421Z", 709216461, 0);
+ recognize("19920722132100.3Z", 711811260, 0);
+
+ recognize("20040125093007Z", 1075023007, 0);
+ recognize("20040125093007+00", 1075023007, 0);
+ recognize("20040125093007.01+0000", 1075023007, 0);
+ recognize("20040125093007,1+0000", 1075023007, 0);
+ recognize("20040125093007-0800", 1075051807, 0);
+
+ recognize("19920722132100.123000123Z", 711811260, 0);
+ recognize("19920722132100.1230000123Z", 711811260, 0);
+ recognize("19920722132100.12300000123Z", 711811260, 0);
+
+ encode(1075023007, "20040125093007Z", 1);
+
+ if(ac > 1) {
+ /* These will be valid only inside PST time zone */
+ recognize("20040125093007", 1075051807, 0);
+ recognize("200401250930", 1075051800, 0);
+ recognize("20040125093000,01", 1075051800, 0);
+ recognize("20040125093000,1234", 1075051800, 0);
+
+ encode(1075023007, "20040125013007-0800", 0);
+ RECODE("20050702123312", "20050702193312Z");
+ }
+
+#if defined(sun) || defined(__sun) || defined(_sun_) || defined(__solaris__)
+ printf("Solaris does not have a decent timegm() function.\n");
+#else /* !solaris */
+ RECODE("20050702123312Z", "20050702123312Z");
+ RECODE("20050702123312+01", "20050702113312Z");
+ RECODE("20050702123312,0+01", "20050702113312Z");
+ RECODE("20050702123312,1+01", "20050702113312.1Z");
+ RECODE("20050702123312.01+01", "20050702113312.01Z");
+ RECODE("20050702123312.00+01", "20050702113312Z");
+ RECODE("20050702123312.30+01", "20050702113312.3Z");
+ RECODE("20050702123312,30000+01", "20050702113312.3Z");
+ RECODE("20050702123312,300000000+01", "20050702113312.3Z");
+ RECODE("20050702123312.123456+01", "20050702113312.123456Z");
+ RECODE("20050702123312.1234567+01", "20050702113312.1234567Z");
+ RECODE("20050702123312.12345678+01", "20050702113312.12345678Z");
+ RECODE("20050702123312.123456789+01", "20050702113312.123456789Z");
+ RECODE("20050702123312.1234567891+01", "20050702113312.123456789Z");
+ RECODE("20050702123312.2000000000+01", "20050702113312.2Z");
+ RECODE("20050702123312.3000000000+01", "20050702113312.3Z");
+ RECODE("20050702123312.4000000000+01", "20050702113312.4Z");
+ RECODE("20050702123312.5000000000+01", "20050702113312.5Z");
+ RECODE("20050702123312.5000000011+01", "20050702113312.500000001Z");
+ RECODE("20050702123312.5000000001+01", "20050702113312.5Z");
+ RECODE("20050702123312.000000001+01", "20050702113312.000000001Z");
+ RECODE("20050702123312.0000000001Z", "20050702123312Z");
+ RECODE("20050702123312.0000000100Z", "20050702123312.00000001Z");
+ RECODE("20050702123312.0080000010+1056", "20050702013712.008000001Z");
+#endif
+
+ compare(__LINE__, 0, "20040125093007", "20040125093007");
+ compare(__LINE__, 0, "20040125093007-0000", "20040125093007Z");
+ compare(__LINE__, 1, "20040125093008", "20040125093007");
+ compare(__LINE__, 1, "20040125093008-0000", "20040125093007-0000");
+ compare(__LINE__, 0, "20040125093008-0000", "20040125093008-0000");
+ compare(__LINE__, 1, "20040125093008-0000", "20040125093007Z");
+ compare(__LINE__, 0, "20040125093007-0000", "20040125093007+0000");
+ compare(__LINE__, 1, "20040125093007-0030", "20040125093007Z");
+ compare(__LINE__, -1, "20040125093007+0030", "20040125093007Z");
+
+ return 0;
+}
+