Unit Tests

- Correcting more unit tests that made color assumptions that are no
  longer valid.
This commit is contained in:
Paul Beckingham 2010-07-09 00:30:47 -04:00
parent bc46888bcd
commit 8a930653a4
5 changed files with 7 additions and 0 deletions

View file

@ -42,6 +42,7 @@ if (open my $fh, '>', 'cal.rc')
"color.calendar.due=black on green\n", "color.calendar.due=black on green\n",
"color.calendar.weeknumber=black on white\n", "color.calendar.weeknumber=black on white\n",
"color.calendar.overdue=black on red\n", "color.calendar.overdue=black on red\n",
"color.calendar.weekend=white on bright black\n",
"confirmation=no\n"; "confirmation=no\n";
close $fh; close $fh;
ok (-r 'cal.rc', 'Created cal.rc'); ok (-r 'cal.rc', 'Created cal.rc');

View file

@ -34,6 +34,7 @@ use Test::More tests => 7;
if (open my $fh, '>', 'color.rc') if (open my $fh, '>', 'color.rc')
{ {
print $fh "data.location=.\n", print $fh "data.location=.\n",
"color.alternate=\n",
"color.keyword.red=red\n", "color.keyword.red=red\n",
"color.keyword.green=green\n", "color.keyword.green=green\n",
"_forcecolor=1\n"; "_forcecolor=1\n";

View file

@ -35,6 +35,7 @@ if (open my $fh, '>', 'color.rc')
{ {
print $fh "data.location=.\n", print $fh "data.location=.\n",
"color.project.x=red\n", "color.project.x=red\n",
"color.alternate=\n",
"_forcecolor=1\n"; "_forcecolor=1\n";
close $fh; close $fh;
ok (-r 'color.rc', 'Created color.rc'); ok (-r 'color.rc', 'Created color.rc');

View file

@ -35,6 +35,7 @@ if (open my $fh, '>', 'color.rc')
{ {
print $fh "data.location=.\n", print $fh "data.location=.\n",
"color.tagged=red\n", "color.tagged=red\n",
"color.alternate=\n",
"_forcecolor=1\n"; "_forcecolor=1\n";
close $fh; close $fh;
ok (-r 'color.rc', 'Created color.rc'); ok (-r 'color.rc', 'Created color.rc');

View file

@ -35,6 +35,9 @@ if (open my $fh, '>', 'special.rc')
{ {
print $fh "data.location=.\n", print $fh "data.location=.\n",
"color.keyword.red=red\n", "color.keyword.red=red\n",
"color.alternate=\n",
"color.tagged=\n",
"color.pri.H=\n",
"nag=NAG\n", "nag=NAG\n",
"_forcecolor=1\n"; "_forcecolor=1\n";
close $fh; close $fh;