|
Packit |
3f4df8 |
#!perl
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
use strict;
|
|
Packit |
3f4df8 |
use warnings;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
use Test::More;
|
|
Packit |
3f4df8 |
use HTTP::Tiny;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
# test cases adapted from HTTP::Date
|
|
Packit |
3f4df8 |
my $epoch = 760233600;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
my @cases = (
|
|
Packit |
3f4df8 |
['Thu, 03 Feb 1994 00:00:00 GMT', 'RFC822+RFC1123'],
|
|
Packit |
3f4df8 |
['Thu, 3 Feb 1994 00:00:00 GMT', 'broken RFC822+RFC1123'],
|
|
Packit |
3f4df8 |
['Thursday, 03-Feb-94 00:00:00 GMT', 'old rfc850 HTTP format'],
|
|
Packit |
3f4df8 |
['Thursday, 03-Feb-1994 00:00:00 GMT', 'broken rfc850 HTTP format'],
|
|
Packit |
3f4df8 |
['Thu Feb 3 00:00:00 GMT 1994', 'ctime format'],
|
|
Packit |
3f4df8 |
['Thu Feb 3 00:00:00 1994', 'same as ctime, except no TZ'],
|
|
Packit |
3f4df8 |
);
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
plan tests => 1 + @cases;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
is(HTTP::Tiny->_http_date($epoch), $cases[0][0], "epoch -> RFC822/RFC1123");
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
for my $c ( @cases ) {
|
|
Packit |
3f4df8 |
is( HTTP::Tiny->_parse_http_date($c->[0]), $epoch, $c->[1] . " -> epoch");
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
|