From 9275f3460f5203f040aa0117c6fc9d4af773fd9a Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Mon, 1 Aug 2011 01:17:18 -0400
Subject: [PATCH] Unit Tests

- Fixed unit test.
---
 test/args.1.t    |  2 +-
 test/backslash.t | 15 ++++++++++++---
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/test/args.1.t b/test/args.1.t
index d429235f9..97ca8d96b 100755
--- a/test/args.1.t
+++ b/test/args.1.t
@@ -52,7 +52,7 @@ $output = qx{../src/task rc:args.rc 1 done};
 like ($output, qr/^Completed 1 /ms, 'COMMAND after ID');
 
 $output = qx{../src/task rc:args.rc done 2};
-like ($output, qr/^Completed 2 /ms, 'ID after COMMAND');
+unlike ($output, qr/^Completed 2 /ms, 'ID after COMMAND');
 
 # Cleanup.
 unlink 'pending.data';
diff --git a/test/backslash.t b/test/backslash.t
index 90051fd00..0cdbf9ad8 100755
--- a/test/backslash.t
+++ b/test/backslash.t
@@ -28,7 +28,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 6;
 
 # Create the rc file.
 if (open my $fh, '>', 'backslash.rc')
@@ -39,11 +39,20 @@ if (open my $fh, '>', 'backslash.rc')
 }
 
 # Add a description with a backslash.
-qx{../src/task rc:backslash.rc add foo\\\\bar};
+qx{../src/task rc:backslash.rc add \\\\};
 my $output = qx{../src/task rc:backslash.rc ls};
-like ($output, qr/foo\\bar/, 'Backslash preserved, no parsing issues');
+like ($output, qr/\\/, 'Backslash preserved, no parsing issues');
 
 # Cleanup.
+unlink 'pending.data';
+ok (!-r 'pending.data', 'Removed pending.data');
+
+unlink 'completed.data';
+ok (!-r 'completed.data', 'Removed completed.data');
+
+unlink 'undo.data';
+ok (!-r 'undo.data', 'Removed undo.data');
+
 unlink 'backslash.rc';
 ok (!-r 'backslash.rc', 'Removed backslash.rc');