From 855de25e0db2d3154c35eb35725f0a0403f4e1c8 Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Sat, 14 Jun 2014 15:38:51 -0400 Subject: [PATCH] Unit Tests - Corrected test that assumed completed.data was created, which is not always the case now. --- test/undo.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/test/undo.t b/test/undo.t index f3c6909a9..5ff71e732 100755 --- a/test/undo.t +++ b/test/undo.t @@ -27,7 +27,7 @@ use strict; use warnings; -use Test::More tests => 18; +use Test::More tests => 19; # Ensure environment has no influence. delete $ENV{'TASKDATA'}; @@ -44,10 +44,11 @@ if (open my $fh, '>', 'undo.rc') # Test the add/done/undo commands. my $output = qx{../src/task rc:undo.rc add one 2>&1; ../src/task rc:undo.rc info 1 2>&1}; ok (-r 'pending.data', 'pending.data created'); +ok (! -r 'completed.data', 'completed.data not created'); like ($output, qr/Status\s+Pending\n/, 'Pending'); $output = qx{../src/task rc:undo.rc 1 done 2>&1; ../src/task rc:undo.rc info 1 2>&1}; -ok (-r 'completed.data', 'completed.data created'); +ok (! -r 'completed.data', 'completed.data created'); like ($output, qr/Status\s+Completed\n/, 'Completed'); $output = qx{../src/task rc:undo.rc undo 2>&1; ../src/task rc:undo.rc info 1 2>&1};