5 #include <GeneralizedTime.c>
6 #include <math.h> /* for pow(3) */
9 recognize(char *time_str, time_t expect, int as_gmt) {
15 gt.buf = (uint8_t *)time_str;
16 gt.size = strlen(time_str);
18 tloc = asn_GT2time_frac(>, &fv, &fp, &tm, as_gmt);
19 printf("%s: [%s] -> %ld == %ld\n",
20 as_gmt?"GMT":"ofs", time_str, (long)tloc, (long)expect);
23 printf("\t%04d-%02d-%02dT%02d:%02d:%02d.%f(%d/%d)%+03ld%02ld\n",
30 (double)fv * pow(0.1, fp), fv, fp,
32 labs(GMTOFF(tm) % 3600)
35 assert(tloc == expect);
38 assert(tloc == -1 || as_gmt == 0 || GMTOFF(tm) == 0);
41 if(!as_gmt) recognize(time_str, expect, 1);
45 encode(time_t tloc, const char *expect, int force_gmt) {
46 GeneralizedTime_t *gt;
49 tmp = localtime_r(&tloc, &tm);
52 gt = asn_time2GT(0, &tm, force_gmt);
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));
62 ASN_STRUCT_FREE(asn_DEF_GeneralizedTime, gt);
65 #define RECODE(foo, bar) recode(__LINE__, foo, bar)
68 recode(int lineno, char *time_str, const char *expect) {
69 int frac_value, frac_digits;
75 gt.buf = (uint8_t *)time_str;
76 gt.size = strlen(time_str);
78 tloc = asn_GT2time_frac(>, &frac_value, &frac_digits, &tm, 1);
82 asn_time2GT_frac(>, &tm, frac_value, frac_digits, 1);
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,
91 assert(strcmp((char *)gt.buf, expect) == 0);
97 GeneralizedTime_t *gt = 0;
102 memset(&tm, 0, sizeof tm);
106 gt = asn_time2GT_frac(gt, &tm, -1, -1, 1);
108 printf("[%s]\n", gt->buf);
109 assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
111 gt = asn_time2GT_frac(gt, &tm, 0, 0, 1);
113 printf("[%s]\n", gt->buf);
114 assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
116 gt = asn_time2GT_frac(gt, &tm, 0, -1, 1);
118 printf("[%s]\n", gt->buf);
119 assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
121 gt = asn_time2GT_frac(gt, &tm, -1, 0, 1);
123 printf("[%s]\n", gt->buf);
124 assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
126 gt = asn_time2GT_frac(gt, &tm, 10, 0, 1);
128 printf("[%s]\n", gt->buf);
129 assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
131 /* Normalization should happen prior to calling the _frac() */
132 gt = asn_time2GT_frac(gt, &tm, 55, 2, 1);
134 printf("[%s]\n", gt->buf);
135 assert(strcmp((char *)gt->buf, "19700101000000.55Z") == 0);
137 gt = asn_time2GT_frac(gt, &tm, 5, 2, 1);
139 printf("[%s]\n", gt->buf);
140 assert(strcmp((char *)gt->buf, "19700101000000.05Z") == 0);
142 /* Normalization should happen prior calling the _frac() */
143 gt = asn_time2GT_frac(gt, &tm, 900, 2, 1);
145 printf("[%s]\n", gt->buf);
146 assert(strcmp((char *)gt->buf, "19700101000000Z") == 0);
148 gt = asn_time2GT_frac(gt, &tm, 90, 2, 1);
150 printf("[%s]\n", gt->buf);
151 assert(strcmp((char *)gt->buf, "19700101000000.9Z") == 0);
153 tloc = asn_GT2time_prec(gt, &fv, 0, 0, 1);
157 tloc = asn_GT2time_prec(gt, &fv, 1, 0, 1);
161 tloc = asn_GT2time_prec(gt, &fv, 2, 0, 1);
165 tloc = asn_GT2time_frac(gt, &fv, &fd, 0, 1);
170 gt->buf[gt->size-1] = '0';
171 gt->buf[gt->size++] = 'Z';
172 gt->buf[gt->size] = '\0';
174 tloc = asn_GT2time_frac(gt, &fv, &fd, 0, 1);
179 tloc = asn_GT2time_prec(gt, &fv, 1, 0, 1);
183 tloc = asn_GT2time_prec(gt, &fv, 100, 0, 1);
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);
202 ASN_STRUCT_RESET(asn_DEF_GeneralizedTime, &a);
203 ASN_STRUCT_RESET(asn_DEF_GeneralizedTime, &b);
207 main(int ac, char **av) {
208 char *tz = getenv("TZ");
212 printf("TZ = [%s]\n", tz ? tz : "");
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);
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);
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);
237 recognize("19920722132100.123000123Z", 711811260, 0);
238 recognize("19920722132100.1230000123Z", 711811260, 0);
239 recognize("19920722132100.12300000123Z", 711811260, 0);
241 encode(1075023007, "20040125093007Z", 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);
250 encode(1075023007, "20040125013007-0800", 0);
251 RECODE("20050702123312", "20050702193312Z");
254 #if defined(sun) || defined(__sun) || defined(_sun_) || defined(__solaris__)
255 printf("Solaris does not have a decent timegm() function.\n");
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");
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");