Unit Tests

- Fixed several tests that were broken, and generated diagnostic output,
  but didn't fail in the traditional sense.  This was found by looking
  through the tinderbox data file.

src/tests/benchmark2.t

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

src/tests/bug.417.t

@@ -33,7 +33,8 @@ use Test::More tests => 7;
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {
-  print $fh "data.location=.\n";
+  print $fh "data.location=.\n",
+            "defaultwidth=100\n";
   close $fh;
   ok (-r 'bug.rc', 'Created bug.rc');
 }

src/tests/custom.tag_ind.t

@@ -50,7 +50,7 @@ like ($output,   qr/ID T/,   'Tag indicator heading');
 like ($output,   qr/1\s+\+/, 'Tag indicator t1');
 unlike ($output, qr/2\s+\+/, 'No tag indicator t2');
 
-my $output = qx{../task rc:custom.rc foo rc.tag.indicator=TAG 2>&1};
+$output = qx{../task rc:custom.rc foo rc.tag.indicator=TAG 2>&1};
 like ($output,   qr/1\s+TAG/, 'Custom ag indicator t1');
 unlike ($output, qr/2\s+TAG/, 'No custom tag indicator t2');
 

src/tests/utf8.t

@@ -41,7 +41,7 @@ if (open my $fh, '>', 'utf8.rc')
 # Add a task with UTF8 in the description.
 qx{../task rc:utf8.rc add Çirçös};
 qx{../task rc:utf8.rc add Hello world ☺};
-qx{../task rc:utf8.rc add ¥£€$¢₡₢₣₤₥₦₧₨₩₪₫₭₮₯};
+qx{../task rc:utf8.rc add ¥£€\$¢₡₢₣₤₥₦₧₨₩₪₫₭₮₯};
 qx{../task rc:utf8.rc add Pchnąć w tę łódź jeża lub ośm skrzyń fig};
 qx{../task rc:utf8.rc add ๏ เป็นมนุษย์สุดประเสริฐเลิศคุณค่า};
 qx{../task rc:utf8.rc add イロハニホヘト チリヌルヲ ワカヨタレソ ツネナラム};