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++;
}
|