Fixed bug in single digit day highliting unit test
This commit is contained in:
@@ -50,6 +50,11 @@ my $prevmonth = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","
|
|||||||
my $nextyear = $nyear + 1901;
|
my $nextyear = $nyear + 1901;
|
||||||
my $year = $nyear + 1900;
|
my $year = $nyear + 1900;
|
||||||
|
|
||||||
|
if ( $day <= 9)
|
||||||
|
{
|
||||||
|
$day = " ".$day;
|
||||||
|
}
|
||||||
|
|
||||||
# task cal and task cal y
|
# task cal and task cal y
|
||||||
my $output = qx{../task rc:cal.rc rc._forcecolor:on cal};
|
my $output = qx{../task rc:cal.rc rc._forcecolor:on cal};
|
||||||
like ($output, qr/\[36m$day/, 'Current day is highlighted');
|
like ($output, qr/\[36m$day/, 'Current day is highlighted');
|
||||||
|
|||||||
Reference in New Issue
Block a user