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
|
#!/usr/bin/perl
use strict;
use warnings;
use DateTime::Format::Natural;
use DateTime::Format::Natural::Test ':set';
use Test::More;
my @specific = (
{ '27/5/1979' => [ '27.05.1979 00:00:00', 'dd/m/yyyy' ] },
{ '5/27/1979' => [ '27.05.1979 00:00:00', 'mm/d/yyyy' ] },
{ '05/27/79' => [ '27.05.2079 00:00:00', 'mm/dd/yy' ] },
{ '1979-05-27' => [ '27.05.1979 00:00:00', 'yyyy-mm-dd' ] },
{ '1979-05-27 {at} 21:09:14' => [ '27.05.1979 21:09:14', 'yyyy-mm-dd' ] },
{ '31.12.99' => [ '31.12.2099 00:00:00', undef ] },
{ '31-12-99' => [ '31.12.2099 00:00:00', undef ] },
{ '1/3' => [ '03.01.2006 00:00:00', 'm/d' ] },
{ '1/3 {at} 16:00{sec}' => [ '03.01.2006 16:00:{sec}', 'm/d' ] },
{ '8/10' => [ '08.10.2006 00:00:00', 'd/m' ] },
{ '8/10 {at} 16:00{sec}' => [ '08.10.2006 16:00:{sec}', 'dd/mm' ] },
{ '8/10' => [ '10.08.2006 00:00:00', 'm/d' ] },
{ '8/10 {at} 16:00{sec}' => [ '10.08.2006 16:00:{sec}', 'mm/dd' ] },
{ '12/03/2008 {at} 06:56:06{ }am' => [ '12.03.2008 06:56:06', undef ] },
{ '12/03/2008 {at} 06:56:06{ }pm' => [ '12.03.2008 18:56:06', undef ] },
{ '2011-jan-04' => [ '04.01.2011 00:00:00', undef ] },
{ '20111018000000' => [ '18.10.2011 00:00:00', undef ] },
);
_run_tests(33, [ [ \@specific ] ], \&compare);
sub compare
{
my $aref = shift;
foreach my $href (@$aref) {
my $key = (keys %$href)[0];
my @formats = do {
local $_ = $href->{$key}->[1];
defined ($_) ? $case_strings->($_) : (undef) x 3;
};
foreach my $entry ($time_entries->($key, $href->{$key}->[0])) {
foreach my $format (@formats) {
compare_strings($entry->[0], $entry->[1], $format);
}
}
}
}
sub compare_strings
{
my ($string, $result, $format) = @_;
my %args = defined $format ? (format => $format) : ();
my $parser = DateTime::Format::Natural->new(%args);
$parser->_set_datetime(\%time);
my $dt = $parser->parse_datetime($string);
if ($parser->success && $parser->_get_truncated) {
is(_result_string($dt), $result, _message($string));
}
else {
fail(_message($string));
}
}
|
