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.
This commit is contained in:
Paul Beckingham 2015-01-25 16:00:43 -05:00
parent 4bdee56fa7
commit d0f74c4a80

View file

@ -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;