Fixed bug in single digit day highliting unit test

This commit is contained in:
Federico Hernandez 2009-07-03 14:34:58 +02:00
parent 543fc1727d
commit 03c9cc6005

View file

@ -50,6 +50,11 @@ my $prevmonth = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","
my $nextyear = $nyear + 1901;
my $year = $nyear + 1900;
if ( $day <= 9)
{
$day = " ".$day;
}
# task cal and task cal y
my $output = qx{../task rc:cal.rc rc._forcecolor:on cal};
like ($output, qr/\[36m$day/, 'Current day is highlighted');