|
Packit |
95306a |
#!/usr/bin/perl -w
|
|
Packit |
95306a |
|
|
Packit |
95306a |
use Test::Inter;
|
|
Packit |
95306a |
$t = new Test::Inter 'DM5 :: Date (Romanian)';
|
|
Packit |
95306a |
$testdir = '';
|
|
Packit |
95306a |
$testdir = $t->testdir();
|
|
Packit |
95306a |
|
|
Packit |
95306a |
BEGIN {
|
|
Packit |
95306a |
$Date::Manip::Backend = 'DM5';
|
|
Packit |
95306a |
}
|
|
Packit |
95306a |
|
|
Packit |
95306a |
use Date::Manip;
|
|
Packit |
95306a |
if ($] < 5.010 || $ENV{'DATE_MANIP_TEST_DM5'}) {
|
|
Packit |
95306a |
$t->feature("TEST_DM5",1);
|
|
Packit |
95306a |
}
|
|
Packit |
95306a |
|
|
Packit |
95306a |
$t->skip_all('Date::Manip 5.xx tests ignored (set DATE_MANIP_TEST_DM5 to test)',
|
|
Packit |
95306a |
'TEST_DM5');
|
|
Packit |
95306a |
|
|
Packit |
95306a |
Date_Init("TZ=EST");
|
|
Packit |
95306a |
Date_Init("ForceDate=1997-03-08-12:30:00");
|
|
Packit |
95306a |
Date_Init("Language=Romanian","DateFormat=US","Internal=0");
|
|
Packit |
95306a |
|
|
Packit |
95306a |
($currS,$currMN,$currH,$currD,$currM,$currY)=("00","30","12","08","03","1997");
|
|
Packit |
95306a |
|
|
Packit |
95306a |
$today="$currY$currM$currD$currH:$currMN:$currS";
|
|
Packit |
95306a |
$todaydate ="$currY$currM$currD";
|
|
Packit |
95306a |
$yesterdaydate="$currY$currM". $currD-1;
|
|
Packit |
95306a |
$tomorrowdate ="$currY$currM". $currD+1;
|
|
Packit |
95306a |
$yesterday ="$yesterdaydate$currH:$currMN:$currS";
|
|
Packit |
95306a |
$tomorrow ="$tomorrowdate$currH:$currMN:$currS";
|
|
Packit |
95306a |
|
|
Packit |
95306a |
$tests="
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Test built in strings like today and yesterday. A few may fail on a
|
|
Packit |
95306a |
# slow computer. On the 1st or last day of the month, the
|
|
Packit |
95306a |
# yesterday/today test will fail because of the simplicity of the
|
|
Packit |
95306a |
# test.
|
|
Packit |
95306a |
|
|
Packit |
95306a |
acum => $today
|
|
Packit |
95306a |
|
|
Packit |
95306a |
astazi => $today
|
|
Packit |
95306a |
|
|
Packit |
95306a |
ieri => $yesterday
|
|
Packit |
95306a |
|
|
Packit |
95306a |
miine => $tomorrow
|
|
Packit |
95306a |
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'astazi la 4:00' => ${todaydate}04:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'astazi la 4:00 pm' => ${todaydate}16:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'astazi la 16:00:00' => ${todaydate}16:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'astazi la 12:00 am' => ${todaydate}00:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'astazi la 12:00 GMT' => ${todaydate}07:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'astazi la 4:00 PST' => ${todaydate}07:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'astazi la 4:00 -0800' => ${todaydate}07:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'astazi la amiaza' => ${todaydate}12:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'miine la amiaza ' => ${tomorrowdate}12:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'1 luna in urma ' => 1997020812:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Test weeks
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 22-a duminica' => 1997060100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
1997023 => 1997012300:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
1997035 => 1997020400:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
97-035 => 1997020400:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
97035 => 1997020400:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a douazecisidoua duminica 1996' => 1996060200:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'22 duminica in 1996' => 1996060200:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 22-a duminica 12:00' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 22-a duminica la 12:00' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 22-a duminica la 12:00 EST' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 22-a duminica in 1996 la 12:00 EST' => 1996060212:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 1 1999' => 1999011000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'joi saptamina 0 1999' => 1998123100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'prima joi in 1999' => 1999010700:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'prima duminica in 1999' => 1999010300:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22' => 1997060100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina a douazecisidoua 1996' => 1996060200:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica sapt 22 in 1996' => 1996060200:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22 12:00' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22 12:00' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22 la 12:00 EST' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22 in 1996 la 12:00 EST' => 1996060212:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica 22 saptamini ' => 1997060100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica a douazecisidoua saptamina 1996' => 1996060200:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica 22 sapt in 1996' => 1996060200:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22 12:00' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22 la 12:00' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22 la 12:00 EST' => 1997060112:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'duminica saptamina 22 in 1996 la 12:00 EST' => 1996060212:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Tests 'which day in mon' formats
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'ultima marti in iun 96' => 1996062500:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'ultima marti din iunie' => 1997062400:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'prima marti in iun 1996' => 1996060400:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'prima marti in iunie' => 1997060300:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 3-a marti in iun 96' => 1996061800:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 3-a marti in iun 96 la 12:00:00' => 1996061812:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 3-a marti in iun 96 la 10:30am' => 1996061810:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 3-a marti in iun 96 la 10:30 pm' => 1996061822:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 3-a marti in iun 96 la 10:30 pm GMT' => 1996061817:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'a 3-a marti in iun 96 la 10:30 pm CET' => 1996061816:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Tests Date Time Date%Time Date=mm%dd '12/10/65 la 5:30:25' =>
|
|
Packit |
95306a |
# 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12-10-65 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12 10 65 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12 10 1965 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12.10.1965 05:61' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12.10.1965 05:30:61' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
12/10 => ${currY}121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12/10 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12/10 la 05:30:25' => ${currY}121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12/10 la 05:30:25 GMT' => ${currY}121000:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12/10 5:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12/10 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12-10 5:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12.10 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'12 10 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'2 29 92' => 1992022900:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'2 29 90' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Tests Date Time
|
|
Packit |
95306a |
# Date%Time
|
|
Packit |
95306a |
# Date=mmm%dd
|
|
Packit |
95306a |
|
|
Packit |
95306a |
Dec/10/1965 => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
Decembrie/10/65 => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
Dec-10-65 => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec 10 65' => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'DecEMBRIE10 65' => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Decembrie/10/65 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec/10/65/5:30 pm' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec/10/65/5:30 pm GMT' => 1965121012:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec/10/65 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec-10-1965 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Decembrie-10-65 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec-10-65-5:30 pm' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec-10-65 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec 10 65 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec 10 65 5:30 pm' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Decembrie 10 65 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec 10 1965 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec-10-1965 05:61' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec-10-1965 05:30:61' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
Decembrie/10 => ${currY}121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec/10 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec/10 la 05:30:25' => ${currY}121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec/10 la 05:30:25 GMT' => ${currY}121000:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec/10 5:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec/10 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec-10 5:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Dec-10 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Decembrie10 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'DeC intii 1965' => 1965120100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Tests Date Time
|
|
Packit |
95306a |
# Date%Time
|
|
Packit |
95306a |
# Date=dd%mmm
|
|
Packit |
95306a |
|
|
Packit |
95306a |
10/Dec/1965 => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
10/Decembrie/65 => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
10-Dec-65 => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10 Dec 65' => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10/Decembrie/65 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10/Dec/65/5:30 pm' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10/Dec/65/5:30 pm GMT' => 1965121012:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10/Dec/65 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10-Dec-1965 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10-Decembrie-65 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10-Dec-65-5:30 pm' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10-Dec-65 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10 Dec 65 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10 Dec 65 5:30 pm' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10Decembrie 65 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10 Dec 1965 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10Dec 1965 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10 Dec1965 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10Dec1965 la 5:30:25' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10-Dec-1965 05:61' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10-Dec-1965 05:30:61' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
10/Decembrie => ${currY}121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10/Dec 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10/Dec la 05:30:25' => ${currY}121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10-Dec la 05:30:25 GMT' => ${currY}121000:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10-Dec 5:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10/Dec 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'10Decembrie 05:30' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Intii DeC 65' => 1965120100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Tests time only formats 5:30 => ${todaydate}05:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
5:30:02 => ${todaydate}05:30:02
|
|
Packit |
95306a |
|
|
Packit |
95306a |
15:30:00 => ${todaydate}15:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Tests TimeDate Time%Date '5:30 pm 12/10/65' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30 pm GMT 12/10/65' => 1965121012:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
5:30:25/12/10/65 => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30:25 12-10-1965' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30:25 12-10-65' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30 pm 12-10-65' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
5:30:25/12-10-65 => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30:25 12 10 65' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30 pm 12 10 65' => 1965121017:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30 pm GMT 12 10 65' => 1965121012:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30:25 12 10 1965' => 1965121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:61 12-10-1965' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30:61 12-10-1965' => ''
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30 12/10' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
05:30/12/10 => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30:25 12/10' => ${currY}121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
05:30:25/12-10 => ${currY}121005:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30:25 GMT 12/10' => ${currY}121000:30:25
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30 12/10' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30 12/10' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30 12-10' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30 12-10' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30 12 10' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Tests TimeDate
|
|
Packit |
95306a |
# Time%Date
|
|
Packit |
95306a |
# Date=mmm%dd, dd%mmm
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50 DeC 10' => ${currY}121004:50:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50 DeCembrie 10' => ${currY}121004:50:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50:40 DeC 10' => ${currY}121004:50:40
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50:42 DeCembrie 10' => ${currY}121004:50:42
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50 10 DeC' => ${currY}121004:50:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50 10 DeCembrie' => ${currY}121004:50:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50 10DeC' => ${currY}121004:50:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50 10DeCembrie' => ${currY}121004:50:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50:51 10 DeC' => ${currY}121004:50:51
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50:52 10 DeCembrie' => ${currY}121004:50:52
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50:53 10DeC' => ${currY}121004:50:53
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'4:50:54 10DeCembrie' => ${currY}121004:50:54
|
|
Packit |
95306a |
|
|
Packit |
95306a |
4:50:54DeCembrie10 => ${currY}121004:50:54
|
|
Packit |
95306a |
|
|
Packit |
95306a |
4:50:54DeCembrie10/65 => 1965121004:50:54
|
|
Packit |
95306a |
|
|
Packit |
95306a |
4:50:54DeCembrie1965 => 1965120104:50:54
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Sept 1995' => 1995090100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'1995 septembrie' => 1995090100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30 DeC 1' => ${currY}120105:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30 DeC 10' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30:11 DeC 10' => ${currY}121005:30:11
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'5:30 DeCembrie 1' => ${currY}120105:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30 DeCembrie 10' => ${currY}121005:30:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'05:30:12 DeCembrie 10' => ${currY}121005:30:12
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Test ctime formats 'DeCembrie 10 05:30:12 1996' => 1996121005:30:12
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'DeC10 05:30:12 96' => 1996121005:30:12
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# Test some tricky timezone conversions
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Febr 28 1997 23:00-0900' => 1997030103:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Febr 27 1997 23:00-0900' => 1997022803:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Febr 01 1997 01:00-0100' => 1997013121:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Febr 02 1997 01:00-0100' => 1997020121:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Febr 02 1997 01:00+0100' => 1997020119:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Febr 02 1997 01:00+01' => 1997020119:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Febr 02 1997 01:00+01:00' => 1997020119:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
19970202010000+0100 => 1997020119:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
# More tests... 'ultima zi din octombrie 1997' => 1997103100:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'epoch 400000' => 1970010510:06:40
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'19980102030405 EST' => 1998010203:04:05
|
|
Packit |
95306a |
|
|
Packit |
95306a |
19980102030405E => 1998010203:04:05
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Luni, 19 ian 1998 08:11:34 +1030' => 1998011816:41:34
|
|
Packit |
95306a |
|
|
Packit |
95306a |
'Marti, 26 Mai 1998 13:23:15 -0500 (EST)' => 1998052613:23:15
|
|
Packit |
95306a |
|
|
Packit |
95306a |
Dec101965 => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
10Dec1965 => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
101965Dec => 1965121000:00:00
|
|
Packit |
95306a |
|
|
Packit |
95306a |
";
|
|
Packit |
95306a |
|
|
Packit |
95306a |
$t->tests(func => \&ParseDate,
|
|
Packit |
95306a |
tests => $tests);
|
|
Packit |
95306a |
$t->done_testing();
|
|
Packit |
95306a |
|
|
Packit |
95306a |
#Local Variables:
|
|
Packit |
95306a |
#mode: cperl
|
|
Packit |
95306a |
#indent-tabs-mode: nil
|
|
Packit |
95306a |
#cperl-indent-level: 3
|
|
Packit |
95306a |
#cperl-continued-statement-offset: 2
|
|
Packit |
95306a |
#cperl-continued-brace-offset: 0
|
|
Packit |
95306a |
#cperl-brace-offset: 0
|
|
Packit |
95306a |
#cperl-brace-imaginary-offset: 0
|
|
Packit |
95306a |
#cperl-label-offset: 0
|
|
Packit |
95306a |
#End:
|