From 03c9cc60057348eb935b0af524f0aeafbc58ba3e Mon Sep 17 00:00:00 2001
From: Federico Hernandez <ultrafredde@gmail.com>
Date: Fri, 3 Jul 2009 14:34:58 +0200
Subject: [PATCH] Fixed bug in single digit day highliting unit test

---
 src/tests/cal.t | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/tests/cal.t b/src/tests/cal.t
index 93ee9a705..93c2e5bac 100755
--- a/src/tests/cal.t
+++ b/src/tests/cal.t
@@ -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');