From a799b54ad42d110908a6f3690330b93f90a29dd3 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Sat, 31 May 2014 17:24:29 -0400
Subject: [PATCH] Unit Tests
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

- Modified test to use a command that exceeded the rc.abbreviation.minuіmum
  length.
---
 test/sequence.t |  6 +++---
 test/template.t | 11 ++---------
 2 files changed, 5 insertions(+), 12 deletions(-)

diff --git a/test/sequence.t b/test/sequence.t
index 802306201..76956abad 100755
--- a/test/sequence.t
+++ b/test/sequence.t
@@ -46,11 +46,11 @@ if (open my $fh, '>', 'seq.rc')
 # Test sequences in done/undo
 qx{../src/task rc:seq.rc add one mississippi 2>&1};
 qx{../src/task rc:seq.rc add two mississippi 2>&1};
-qx{../src/task rc:seq.rc 1,2 do 2>&1};
+qx{../src/task rc:seq.rc 1,2 done 2>&1};
 my $output = qx{../src/task rc:seq.rc info 1 2>&1};
-like ($output, qr/Status\s+Completed/, 'sequence do 1');
+like ($output, qr/Status\s+Completed/, 'sequence done 1');
 $output = qx{../src/task rc:seq.rc info 2 2>&1};
-like ($output, qr/Status\s+Completed/, 'sequence do 2');
+like ($output, qr/Status\s+Completed/, 'sequence done 2');
 qx{../src/task rc:seq.rc undo 2>&1};
 qx{../src/task rc:seq.rc undo 2>&1};
 $output = qx{../src/task rc:seq.rc info 1 2>&1};
diff --git a/test/template.t b/test/template.t
index c01a42a16..61ecf99fa 100755
--- a/test/template.t
+++ b/test/template.t
@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 2;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -43,7 +43,6 @@ if (open my $fh, '>', $rc)
   print $fh "data.location=.\n",
             "confirmation=off\n";
   close $fh;
-  ok (-r $rc, "$ut: Created $rc");
 }
 
 # Note: all commands checked for $? == 0
@@ -56,12 +55,6 @@ ok ($? == 0, "$ut: add sample");
 my $output = qx{../src/task rc:$rc ls 2>&1};
 like ($output, qr/sample/ms, "$ut: sample task found");
 
-## Cleanup.
+# Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data), $rc;
-ok (! -r 'pending.data'   &&
-    ! -r 'completed.data' &&
-    ! -r 'undo.data'      &&
-    ! -r 'backlog.data'   &&
-    ! -r $rc, "$ut: Cleanup");
-
 exit 0;