Fixed 2 unit tests that behaved wrong at the end/beginning of a year.

This commit is contained in:
Federico Hernandez
2010-01-01 22:11:10 +01:00
parent 28377502f6
commit 8d8f7ddb40
2 changed files with 9 additions and 1 deletions

View File

@@ -47,7 +47,7 @@ qx{../task rc:bug.rc 2 due:};
# Result: Somehow the due date is incremented and wraps around to 12/31/1969,
# then keeps going back to today.
my $output = qx{../task rc:bug.rc li};
like ($output, qr/^1 task$/ms, 'Should only be one task');
unlike ($output, qr/1969/ms, 'Should not display 12/31/1969');
# Cleanup.
unlink 'pending.data';

View File

@@ -68,7 +68,15 @@ $output = qx{../task rc:cal.rc rc.weekstart:Monday cal};
like ($output, qr/Fr Sa Su/, 'Week starts on Monday');
$output = qx{../task rc:cal.rc cal y};
like ($output, qr/$month\w+?\s+?$year/, 'Current month and year are displayed');
if ( $month eq "Jan")
{
$nextyear = $nextyear - 1;
}
like ($output, qr/$prevmonth\w+?\s+?$nextyear/, 'Month and year one year ahead are displayed');
if ( $month eq "Jan")
{
$nextyear = $nextyear + 1;
}
unlike ($output, qr/$month\w+?\s+?$nextyear/, 'Current month and year ahead are not displayed');
# task cal due and task cal due y