From beef03af13d706b97a7f7bf9a05e00ba75ef03c3 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Wed, 14 Jul 2010 09:13:44 -0400
Subject: [PATCH] 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     | 1 +
 src/tests/bug.417.t        | 3 ++-
 src/tests/custom.tag_ind.t | 2 +-
 src/tests/utf8.t           | 2 +-
 4 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/tests/benchmark2.t b/src/tests/benchmark2.t
index 327b8e93c..5c944270b 100755
--- a/src/tests/benchmark2.t
+++ b/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');
diff --git a/src/tests/bug.417.t b/src/tests/bug.417.t
index dc7da1541..1ef893c15 100755
--- a/src/tests/bug.417.t
+++ b/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');
 }
diff --git a/src/tests/custom.tag_ind.t b/src/tests/custom.tag_ind.t
index fbeff8425..206844d28 100755
--- a/src/tests/custom.tag_ind.t
+++ b/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');
 
diff --git a/src/tests/utf8.t b/src/tests/utf8.t
index 76fbd99cc..bf3914aac 100755
--- a/src/tests/utf8.t
+++ b/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 イロハニホヘト チリヌルヲ ワカヨタレソ ツネナラム};