From 84b95ce06da6264b69e68c47a034edfd027aeee2 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Tue, 27 May 2014 16:14:32 -0400
Subject: [PATCH] Unit Tests

- Corrected assumptions in a unit test about the circumstances of file creation.
---
 test/delete.t | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/test/delete.t b/test/delete.t
index b1053875d..2313c0507 100755
--- a/test/delete.t
+++ b/test/delete.t
@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 16;
+use Test::More tests => 14;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -49,11 +49,9 @@ like ($output, qr/Status\s+Pending\n/, 'Pending');
 
 $output = qx{../src/task rc:delete.rc 1 delete 2>&1; ../src/task rc:delete.rc info 1 2>&1};
 like ($output, qr/Status\s+Deleted\n/, 'Deleted');
-ok (-r 'completed.data', 'completed.data created');
 
 $output = qx{../src/task rc:delete.rc undo 2>&1; ../src/task rc:delete.rc info 1 2>&1};
 like ($output, qr/Status\s+Pending\n/, 'Pending');
-ok (-r 'completed.data', 'completed.data created');
 
 $output = qx{../src/task rc:delete.rc 1 delete 2>&1; ../src/task rc:delete.rc list 2>&1 >/dev/null};
 like ($output, qr/No matches./, 'No matches');