File: date.t

package info (click to toggle)
libtimedate-perl 2.3300-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 300 kB
  • sloc: perl: 2,194; makefile: 7
file content (193 lines) | stat: -rw-r--r-- 4,818 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
#!/usr/local/bin/perl -w

use Date::Parse;
use Date::Format qw(time2str);

$data = qq!1995-01-24
1995-01-24T09:08:17.1823213
- 1935-01-24T09:08:17
- Fri Dec 17 00:00:00 1901 GMT
Tue Jan 16 23:59:59 2038 GMT
2001-02-02 00:00:00 GMT
2035-02-02 00:00:00 GMT
- 16 Jun 33 07:29:35 CST 
2002-02-26-10:37:21.141 GMT
Wed, 16 Jun 94 07:29:35 CST 
Wed, 16 Nov 94 07:29:35 CST 
Mon, 21 Nov 94 07:42:23 CST 
Mon, 21 Nov 94 04:28:18 CST 
Tue, 15 Nov 94 09:15:10 GMT 
Wed, 16 Nov 94 09:39:49 GMT 
Wed, 16 Nov 94 09:23:17 GMT 
Wed, 16 Nov 94 12:39:49 GMT 
Wed, 16 Nov 94 14:03:06 GMT 
Wed, 16 Nov 94 05:30:51 CST 
Thu, 17 Nov 94 03:19:30 CST 
Mon, 21 Nov 94 14:05:32 GMT 
Mon, 14 Nov 94 15:08:49 CST 
Wed, 16 Nov 94 14:48:06 GMT 
Thu, 17 Nov 94 14:22:03 GMT 
Wed, 16 Nov 94 14:36:00 GMT 
Wed, 16 Nov 94 09:23:17 GMT 
Wed, 16 Nov 94 10:01:43 GMT 
Wed, 16 Nov 94 15:03:35 GMT 
Mon, 21 Nov 94 13:55:19 GMT 
Wed, 16 Nov 94 08:46:11 CST 
21 dec 17:05
21-dec 17:05
21/dec 17:05
21/dec/93 17:05
dec/21/93 17:05
Dec/21/1993 17:05:00
dec-21-1993 17:05
Dec-21-93 17:05:00
dec 21 1994 17:05
dec 21 94 17:05
dec 21 94 17:05 GMT
dec 21 94 17:05 BST
dec 21 94 00:05 -1700
dec 21 94 17:05 -1700
Wed, 9 Nov 1994 09:50:32 -0500 (EST) 
Thu, 13 Oct 94 10:13:13 -0700
Sat, 19 Nov 1994 16:59:14 +0100 
Thu, 3 Nov 94 14:10:47 EST 
Thu, 3 Nov 94 21:51:09 EST 
Fri, 4 Nov 94 9:24:52 EST 
Wed, 9 Nov 94 09:38:54 EST 
Mon, 14 Nov 94 13:20:12 EST 
Wed, 16 Nov 94 17:09:13 EST 
Tue, 15 Nov 94 12:27:01 PST 
Fri, 18 Nov 1994 07:34:05 -0600 
Mon, 21 Nov 94 14:34:28 -0500 
Fri, 18 Nov 1994 12:05:47 -0800 (PST) 
Fri, 18 Nov 1994 12:36:26 -0800 (PST) 
Wed, 16 Nov 1994 15:58:58 GMT 
2000 10:02:18 "GMT"
Sun, 06 Nov 94 14:27:40 -0500 
Mon, 07 Nov 94 08:20:13 -0500 
Mon, 07 Nov 94 16:48:42 -0500 
Wed, 09 Nov 94 15:46:16 -0500 
Fri, 4 Nov 94 16:17:40 "PST 
Wed, 16 Nov 94 12:43:37 "PST 
Sun, 6 Nov 1994 02:38:17 -0800 
Tue, 1 Nov 1994 13:53:49 -0500 
Tue, 15 Nov 94 08:31:59 +0100 
Sun, 6 Nov 1994 11:09:12 -0500 (IST) 
Fri, 4 Nov 94 12:52:10 EST 
Mon, 31 Oct 1994 14:17:39 -0500 (EST) 
Mon, 14 Nov 94 11:25:00 CST 
Mon, 14 Nov 94 13:26:29 CST 
Fri, 18 Nov 94 8:42:47 CST 
Thu, 17 Nov 94 14:32:01 +0900 
Wed, 2 Nov 94 18:16:31 +0100 
Fri, 18 Nov 94 10:46:26 +0100 
Tue, 8 Nov 1994 22:39:28 +0200 
Wed, 16 Nov 1994 10:01:08 -0500 (EST) 
Wed, 2 Nov 1994 16:59:42 -0800 
Wed, 9 Nov 94 10:00:23 PST 
Fri, 18 Nov 94 17:01:43 PST 
Mon, 14 Nov 1994 14:47:46 -0500 
Mon, 21 Nov 1994 04:56:04 -0500 (EST) 
Mon, 21 Nov 1994 11:50:12 -0800 
Sat, 5 Nov 1994 14:04:16 -0600 (CST) 
Sat, 05 Nov 94 13:10:13 MST 
Wed, 02 Nov 94 10:47:48 -0800 
Wed, 02 Nov 94 13:19:15 -0800 
Thu, 03 Nov 94 15:27:07 -0800 
Fri, 04 Nov 94 09:12:12 -0800 
Wed, 9 Nov 1994 10:13:03 +0000 (GMT) 
Wed, 9 Nov 1994 15:28:37 +0000 (GMT) 
Wed, 2 Nov 1994 17:37:41 +0100 (MET) 
05 Nov 94 14:22:19 PST 
16 Nov 94 22:28:20 PST 
Tue, 1 Nov 1994 19:51:15 -0800 
Wed, 2 Nov 94 12:21:23 GMT 
Fri, 18 Nov 94 18:07:03 GMT 
Wed, 16 Nov 1994 11:26:27 -0500 
Sun, 6 Nov 1994 13:48:49 -0500 
Tue, 8 Nov 1994 13:19:37 -0800 
Fri, 18 Nov 1994 11:01:12 -0800 
Mon, 21 Nov 1994 00:47:58 -0500 
Mon, 7 Nov 1994 14:22:48 -0800 (PST) 
Wed, 16 Nov 1994 15:56:45 -0800 (PST) 
Thu, 3 Nov 1994 13:17:47 +0000 
Wed, 9 Nov 1994 17:32:50 -0500 (EST)
Wed, 9 Nov 94 16:31:52 PST
Wed, 09 Nov 94 10:41:10 -0800
Wed, 9 Nov 94 08:42:22 MST
Mon, 14 Nov 1994 08:32:13 -0800
Mon, 14 Nov 1994 11:34:32 -0500 (EST)
Mon, 14 Nov 94 16:48:09 GMT
Tue, 15 Nov 1994 10:27:33 +0000 
Wed, 02 Nov 94 13:56:54 MST 
Thu, 03 Nov 94 15:24:45 MST 
Thu, 3 Nov 1994 15:13:53 -0700 (MST)
Fri, 04 Nov 94 08:15:13 MST 
Thu, 3 Nov 94 18:15:47 EST
Tue, 08 Nov 94 07:02:33 MST 
Thu, 3 Nov 94 18:15:47 EST
Tue, 15 Nov 94 07:26:05 MST 
Wed, 2 Nov 1994 00:00:55 -0600 (CST) 
Sun, 6 Nov 1994 01:19:13 -0600 (CST) 
Mon, 7 Nov 1994 23:16:57 -0600 (CST) 
Tue, 08 Nov 1994 13:21:21 -0600 
Mon, 07 Nov 94 13:47:37 PST 
Tue, 08 Nov 94 11:23:19 PST 
Tue, 01 Nov 1994 11:28:25 -0800 
Tue, 15 Nov 1994 13:11:47 -0800 
Tue, 15 Nov 1994 13:18:38 -0800 
Tue, 15 Nov 1994 0:18:38 -0800 
10:00:00Z
10:00:00
10:00
10:00 +100
10:00 +0100
20020722T100000Z
Jul 22 10:00:00 UTC 2002
2002-07-22 10:00:00Z
2002-07-22 10:00:00 Z
2002-07-22 10:00 Z
2002-07-22 10:00Z
2002-07-22 10:00 +100
2002-07-22 10:00 +0100
!;

@data = split(/\n/, $data);

print "1..", 1+@data,"\n";

print  defined(str2time("")) ? "not ok 1\n" : "ok 1\n";

$loop = 2;

foreach (@data)
{
 my $pre_1970 = s/^-\s*//;

 if ($pre_1970 and $^O eq "MSWin32") {
   print "ok ",$loop++," # skip\n";
   next;
 }

 $time = str2time($_);

 if(defined $time)
  {
   $time = int $time;

   $x = time2str("%a %b %e %T %Y %Z",$time,'GMT');

   printf "%-40s\t%s\n", $_, $x;

   $y = str2time($x);

   print "",($y == $time) ? "ok $loop\n" : "not ok $loop # $y != $time\n";
  }
 else
  {
   print "not ok $loop # $_\n";
  }

 $loop++;
}