From d0f74c4a80c2e905ce600824ab3f41f3e2f7f02c Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Sun, 25 Jan 2015 16:00:43 -0500
Subject: [PATCH] Unit Tests

- Fixed a broken test that returns different values are different times of the
  year/month.
- Removed silly tests that were looking at color values, which is a bad idea.
---
 test/cal.t | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

diff --git a/test/cal.t b/test/cal.t
index 92ab7a842..f77da843f 100755
--- a/test/cal.t
+++ b/test/cal.t
@@ -29,7 +29,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 81;
+use Test::More tests => 78;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -181,6 +181,7 @@ if (open my $fh, '>', $rc)
             "calendar.details.report=list\n",
             "calendar.holidays=full\n",
             "color=on\n",
+            "_forcecolor=on\n",
             "color.alternate=\n",
             "color.calendar.weekend=\n",
             "color.calendar.holiday=black on bright yellow\n",
@@ -240,9 +241,7 @@ qx{../src/task rc:$rc add due:$duedate nine 2>&1};
 $output = qx{../src/task rc:$rc calendar rc.monthsperline:1 2>&1};
 like   ($output, qr/$month\S*?\s+?$year/, "$ut: Current month and year are displayed");
 like   ($output, qr/$duedate/,            "$ut: Due date on current day is displayed");
-
-# TODO: This test fails on 2015-01-01.
-like   ($output, qr/[12] task/,           "$ut: 1/2 due task(s) are displayed");
+like   ($output, qr/[123] task/,          "$ut: 1/2/3 due task(s) are displayed");
 
 $output = qx{../src/task rc:$rc calendar rc.monthsperline:1 1 2015 2>&1};
 like   ($output, qr/Date/,         "$ut: Word Date is displayed");
@@ -258,12 +257,6 @@ $output = qx{../src/task rc:$rc calendar rc._forcecolor:on rc.monthsperline:1 rc
 unlike ($output, qr/Date/,         "$ut: Word Date is not displayed");
 unlike ($output, qr/Holiday/,      "$ut: Word Holiday is not displayed");
 
-# TODO: This test fails on 2015-01-01.
-like   ($output, qr/30;103m 1/,    "$ut: Holiday AAAA is color-coded");
-
-like   ($output, qr/30;103m15/,    "$ut: Holiday BBBBBB is color-coded");  # 80
-like   ($output, qr/30;103m25/,    "$ut: Holiday åäö is color-coded");
-
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data), $rc;
 exit 0;