tests/tests-skeletons/check-GeneralizedTime.c

   1 #include <stdio.h>
   2 #include <assert.h>
   3 #include <time.h>
   4
   5 #include <GeneralizedTime.c>
   6 #include <math.h>       /* for pow(3) */
   7
   8 static void
   9 recognize(char *time_str, time_t expect, int as_gmt) {
  10         GeneralizedTime_t gt;
  11         struct tm tm;
  12         time_t tloc;
  13         int fv, fp;
  14
  15         gt.buf = (uint8_t *)time_str;
  16         gt.size = strlen(time_str);
  17
  18         tloc = asn_GT2time_frac(&gt, &fv, &fp, &tm, as_gmt);
  19         printf("%s: [%s] -> %ld == %ld\n",
  20                 as_gmt?"GMT":"ofs", time_str, (long)tloc, (long)expect);
  21
  22         if(tloc != -1) {
  23                 printf("\t%04d-%02d-%02dT%02d:%02d:%02d.%f(%d/%d)%+03ld%02ld\n",
  24                 tm.tm_year + 1900,
  25                 tm.tm_mon + 1,
  26                 tm.tm_mday,
  27                 tm.tm_hour,
  28                 tm.tm_min,
  29                 tm.tm_sec,
  30                 (double)fv * pow(0.1, fp), fv, fp,
  31                 (GMTOFF(tm) / 3600),
  32                 labs(GMTOFF(tm) % 3600)
  33                 );
  34         }
  35         assert(tloc == expect);
  36
  37 #ifdef  HAVE_TM_GMTOFF
  38         assert(tloc == -1 || as_gmt == 0 || GMTOFF(tm) == 0);
  39 #endif
  40
  41         if(!as_gmt) recognize(time_str, expect, 1);
  42 }
  43
  44 static void
  45 encode(time_t tloc, const char *expect, int force_gmt) {
  46         GeneralizedTime_t *gt;
  47         struct tm tm, *tmp;
  48
  49         tmp = localtime_r(&tloc, &tm);
  50         assert(tmp);
  51
  52         gt = asn_time2GT(0, &tm, force_gmt);
  53         if(gt) {
  54                 assert(expect);
  55                 printf("[%s] vs [%s] (%d)\n",
  56                         gt->buf, expect, force_gmt);
  57                 assert(gt->size == strlen((char *)gt->buf));
  58                 assert(!strcmp((char *)gt->buf, expect));
  59         } else {
  60                 assert(!expect);
  61         }
  62         ASN_STRUCT_FREE(asn_DEF_GeneralizedTime, gt);
  63 }
  64
  65 #define RECODE(foo, bar)        recode(__LINE__, foo, bar)
  66
  67 static void
  68 recode(int lineno, char *time_str, const char *expect) {
  69         int frac_value, frac_digits;
  70         GeneralizedTime_t gt;
  71         struct tm tm;
  72         time_t tloc;
  73         char *tz;
  74
  75         gt.buf = (uint8_t *)time_str;
  76         gt.size = strlen(time_str);
  77
  78         tloc = asn_GT2time_frac(&gt, &frac_value, &frac_digits, &tm, 1);
  79         assert(tloc != -1);
  80
  81         gt.buf = 0;
  82         asn_time2GT_frac(&gt, &tm, frac_value, frac_digits, 1);
  83         assert(gt.buf);
  84
  85         tz = getenv("TZ");
  86         printf("%d: [%s] (%ld) => [%s] == [%s] (%d, %d) (TZ=%s)\n",
  87                 lineno, time_str, (long)tloc, gt.buf,
  88                 expect, frac_value, frac_digits,
  89                 tz ? tz : "");
  90
  91         assert(strcmp((char *)gt.buf, expect) == 0);
  92         FREEMEM(gt.buf);
  93 }
  94
  95 static void
  96 check_fractions() {
  97         GeneralizedTime_t *gt = 0;
  98         struct tm tm;
  99         int fv, fd;
 100         time_t tloc;
 101
 102         memset(&tm, 0, sizeof tm);
 103         tm.tm_year = 70;
 104         tm.tm_mday = 1;
 105
 106         gt = asn_time2GT_frac(gt, &tm, -1, -1, 1);
 107         assert(gt);
 108         printf("[%s]\n", gt->buf);
 109         assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
 110
 111         gt = asn_time2GT_frac(gt, &tm, 0, 0, 1);
 112         assert(gt);
 113         printf("[%s]\n", gt->buf);
 114         assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
 115
 116         gt = asn_time2GT_frac(gt, &tm, 0, -1, 1);
 117         assert(gt);
 118         printf("[%s]\n", gt->buf);
 119         assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
 120
 121         gt = asn_time2GT_frac(gt, &tm, -1, 0, 1);
 122         assert(gt);
 123         printf("[%s]\n", gt->buf);
 124         assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
 125
 126         gt = asn_time2GT_frac(gt, &tm, 10, 0, 1);
 127         assert(gt);
 128         printf("[%s]\n", gt->buf);
 129         assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
 130
 131         /* Normalization should happen prior to calling the _frac() */
 132         gt = asn_time2GT_frac(gt, &tm, 55, 2, 1);
 133         assert(gt);
 134         printf("[%s]\n", gt->buf);
 135         assert(strcmp((char *)gt->buf, "19700101000000.55Z") == 0);
 136
 137         gt = asn_time2GT_frac(gt, &tm, 5, 2, 1);
 138         assert(gt);
 139         printf("[%s]\n", gt->buf);
 140         assert(strcmp((char *)gt->buf, "19700101000000.05Z") == 0);
 141
 142         /* Normalization should happen prior calling the _frac() */
 143         gt = asn_time2GT_frac(gt, &tm, 900, 2, 1);
 144         assert(gt);
 145         printf("[%s]\n", gt->buf);
 146         assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
 147
 148         gt = asn_time2GT_frac(gt, &tm, 90, 2, 1);
 149         assert(gt);
 150         printf("[%s]\n", gt->buf);
 151         assert(strcmp((char *)gt->buf, "19700101000000.9Z") == 0);
 152
 153         tloc = asn_GT2time_prec(gt, &fv, 0, 0, 1);
 154         assert(tloc == 0);
 155         assert(fv == 0);
 156
 157         tloc = asn_GT2time_prec(gt, &fv, 1, 0, 1);
 158         assert(tloc == 0);
 159         assert(fv == 9);
 160
 161         tloc = asn_GT2time_prec(gt, &fv, 2, 0, 1);
 162         assert(tloc == 0);
 163         assert(fv == 90);
 164
 165         tloc = asn_GT2time_frac(gt, &fv, &fd, 0, 1);
 166         assert(tloc == 0);
 167         assert(fv == 9);
 168         assert(fd == 1);
 169
 170         gt->buf[gt->size-1] = '0';
 171         gt->buf[gt->size++] = 'Z';
 172         gt->buf[gt->size] = '\0';
 173
 174         tloc = asn_GT2time_frac(gt, &fv, &fd, 0, 1);
 175         assert(tloc == 0);
 176         assert(fd == 2);
 177         assert(fv == 90);
 178
 179         tloc = asn_GT2time_prec(gt, &fv, 1, 0, 1);
 180         assert(tloc == 0);
 181         assert(fv == 9);
 182
 183         tloc = asn_GT2time_prec(gt, &fv, 100, 0, 1);
 184         assert(tloc == 0);
 185         assert(fv == 0);
 186
 187         FREEMEM(gt->buf);
 188         FREEMEM(gt);
 189 }
 190
 191 static void
 192 compare(int lineno, int cmp_control, const char *astr, const char *bstr) {
 193     GeneralizedTime_t a = {(uint8_t *)strdup(astr), strlen(astr), {0, 0, 0, 0, 0}};
 194     GeneralizedTime_t b = {(uint8_t *)strdup(bstr), strlen(bstr), {0, 0, 0, 0, 0}};
 195     int cmp_result = asn_DEF_GeneralizedTime.op->compare_struct(
 196         &asn_DEF_GeneralizedTime, &a, &b);
 197     if(cmp_result != cmp_control) {
 198         fprintf(stderr, "%03d: [%s] == [%s] = %d, expected %d\n", lineno, astr,
 199                 bstr, cmp_result, cmp_control);
 200         assert(cmp_result == cmp_control);
 201     }
 202     ASN_STRUCT_RESET(asn_DEF_GeneralizedTime, &a);
 203     ASN_STRUCT_RESET(asn_DEF_GeneralizedTime, &b);
 204 }
 205
 206 int
 207 main(int ac, char **av) {
 208         char *tz = getenv("TZ");
 209
 210         (void)av;
 211
 212         printf("TZ = [%s]\n", tz ? tz : "");
 213
 214         check_fractions();
 215
 216         recognize("200401250", -1, 0);
 217         recognize("2004012509300", -1, 0);
 218         recognize("20040125093000-", -1, 0);
 219         recognize("20040125093007-0", -1, 0);
 220         recognize("20040125093007-080", -1, 0);
 221         recognize("200401250930.01Z", -1, 0);
 222
 223         /* These six are from X.690:11.7.5 */
 224         recognize("19920520240000Z", -1, 0);  /* midnight represented incorrectly */
 225         recognize("19920622123421.0Z", 709216461, 0);  /* spurious trailing zeros */
 226         recognize("19920722132100.30Z", 711811260, 0); /* spurious trailing zeros */
 227         recognize("19920521000000Z", 706406400, 0);
 228         recognize("19920622123421Z", 709216461, 0);
 229         recognize("19920722132100.3Z", 711811260, 0);
 230
 231         recognize("20040125093007Z", 1075023007, 0);
 232         recognize("20040125093007+00", 1075023007, 0);
 233         recognize("20040125093007.01+0000", 1075023007, 0);
 234         recognize("20040125093007,1+0000", 1075023007, 0);
 235         recognize("20040125093007-0800", 1075051807, 0);
 236
 237         recognize("19920722132100.123000123Z", 711811260, 0);
 238         recognize("19920722132100.1230000123Z", 711811260, 0);
 239         recognize("19920722132100.12300000123Z", 711811260, 0);
 240
 241         encode(1075023007, "20040125093007Z", 1);
 242
 243         if(ac > 1) {
 244                 /* These will be valid only inside PST time zone */
 245                 recognize("20040125093007", 1075051807, 0);
 246                 recognize("200401250930", 1075051800, 0);
 247                 recognize("20040125093000,01", 1075051800, 0);
 248                 recognize("20040125093000,1234", 1075051800, 0);
 249
 250                 encode(1075023007, "20040125013007-0800", 0);
 251                 RECODE("20050702123312", "20050702193312Z");
 252         }
 253
 254 #if defined(sun) || defined(__sun) || defined(_sun_) || defined(__solaris__)
 255         printf("Solaris does not have a decent timegm() function.\n");
 256 #else   /* !solaris */
 257         RECODE("20050702123312Z", "20050702123312Z");
 258         RECODE("20050702123312+01", "20050702113312Z");
 259         RECODE("20050702123312,0+01", "20050702113312Z");
 260         RECODE("20050702123312,1+01", "20050702113312.1Z");
 261         RECODE("20050702123312.01+01", "20050702113312.01Z");
 262         RECODE("20050702123312.00+01", "20050702113312Z");
 263         RECODE("20050702123312.30+01", "20050702113312.3Z");
 264         RECODE("20050702123312,30000+01", "20050702113312.3Z");
 265         RECODE("20050702123312,300000000+01", "20050702113312.3Z");
 266         RECODE("20050702123312.123456+01", "20050702113312.123456Z");
 267         RECODE("20050702123312.1234567+01", "20050702113312.1234567Z");
 268         RECODE("20050702123312.12345678+01", "20050702113312.12345678Z");
 269         RECODE("20050702123312.123456789+01", "20050702113312.123456789Z");
 270         RECODE("20050702123312.1234567891+01", "20050702113312.123456789Z");
 271         RECODE("20050702123312.2000000000+01", "20050702113312.2Z");
 272         RECODE("20050702123312.3000000000+01", "20050702113312.3Z");
 273         RECODE("20050702123312.4000000000+01", "20050702113312.4Z");
 274         RECODE("20050702123312.5000000000+01", "20050702113312.5Z");
 275         RECODE("20050702123312.5000000011+01", "20050702113312.500000001Z");
 276         RECODE("20050702123312.5000000001+01", "20050702113312.5Z");
 277         RECODE("20050702123312.000000001+01", "20050702113312.000000001Z");
 278         RECODE("20050702123312.0000000001Z", "20050702123312Z");
 279         RECODE("20050702123312.0000000100Z", "20050702123312.00000001Z");
 280         RECODE("20050702123312.0080000010+1056", "20050702013712.008000001Z");
 281 #endif
 282
 283     compare(__LINE__, 0, "20040125093007", "20040125093007");
 284     compare(__LINE__, 0, "20040125093007-0000", "20040125093007Z");
 285     compare(__LINE__, 1, "20040125093008", "20040125093007");
 286     compare(__LINE__, 1, "20040125093008-0000", "20040125093007-0000");
 287     compare(__LINE__, 0, "20040125093008-0000", "20040125093008-0000");
 288     compare(__LINE__, 1, "20040125093008-0000", "20040125093007Z");
 289     compare(__LINE__, 0, "20040125093007-0000", "20040125093007+0000");
 290     compare(__LINE__, 1, "20040125093007-0030", "20040125093007Z");
 291     compare(__LINE__, -1, "20040125093007+0030", "20040125093007Z");
 292
 293         return 0;
 294 }
 295