From 10d41796ab61aa9060d9761cd4dcd92c9d6f469f Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Sun, 24 Aug 2014 21:47:46 -0400
Subject: [PATCH] Unit Tests

- Upgraded to use the new template.
---
 test/bug.bulk.t | 50 ++++++++++++++++++++++++++-----------------------
 1 file changed, 27 insertions(+), 23 deletions(-)

diff --git a/test/bug.bulk.t b/test/bug.bulk.t
index 07333867a..83073446c 100755
--- a/test/bug.bulk.t
+++ b/test/bug.bulk.t
@@ -33,8 +33,12 @@ use Test::More tests => 10;
 delete $ENV{'TASKDATA'};
 delete $ENV{'TASKRC'};
 
+use File::Basename;
+my $ut = basename ($0);
+my $rc = $ut . '.rc';
+
 # Create the rc file.
-if (open my $fh, '>', 'bulk.rc')
+if (open my $fh, '>', $rc)
 {
   print $fh "data.location=.\n",
             "confirmation=yes\n",
@@ -44,34 +48,34 @@ if (open my $fh, '>', 'bulk.rc')
 
 # Add some tasks with project, prioriy and due date, some with only due date.
 # Bulk add a project and priority to the tasks that were without.
-qx{../src/task rc:bulk.rc add t1 pro:p1 pri:H due:monday 2>&1};
-qx{../src/task rc:bulk.rc add t2 pro:p1 pri:M due:tuesday 2>&1};
-qx{../src/task rc:bulk.rc add t3 pro:p1 pri:L due:wednesday 2>&1};
-qx{../src/task rc:bulk.rc add t4              due:thursday 2>&1};
-qx{../src/task rc:bulk.rc add t5              due:friday 2>&1};
-qx{../src/task rc:bulk.rc add t6              due:saturday 2>&1};
+qx{../src/task rc:$rc add t1 pro:p1 pri:H due:monday 2>&1};
+qx{../src/task rc:$rc add t2 pro:p1 pri:M due:tuesday 2>&1};
+qx{../src/task rc:$rc add t3 pro:p1 pri:L due:wednesday 2>&1};
+qx{../src/task rc:$rc add t4              due:thursday 2>&1};
+qx{../src/task rc:$rc add t5              due:friday 2>&1};
+qx{../src/task rc:$rc add t6              due:saturday 2>&1};
 
-my $output = qx{echo "quit"|../src/task rc:bulk.rc 4 5 6  modify pro:p1 pri:M 2>&1};
-like ($output, qr/Modified 0 tasks/, '"quit" prevents any further modifications');
+my $output = qx{echo "quit"|../src/task rc:$rc 4 5 6  modify pro:p1 pri:M 2>&1};
+like ($output, qr/Modified 0 tasks/, "$ut: 'quit' prevents any further modifications");
 
-$output = qx{echo "All"|../src/task rc:bulk.rc 4 5 6  mod pro:p1 pri:M 2>&1};
-unlike ($output, qr/Task 4 "t4"\n  - No changes were made/, 'Task 4 modified');
-unlike ($output, qr/Task 5 "t5"\n  - No changes were made/, 'Task 5 modified');
-unlike ($output, qr/Task 6 "t6"\n  - No changes were made/, 'Task 6 modified');
+$output = qx{echo "All"|../src/task rc:$rc 4 5 6  mod pro:p1 pri:M 2>&1};
+unlike ($output, qr/Task 4 "t4"\n  - No changes were made/, "$ut: Task 4 modified");
+unlike ($output, qr/Task 5 "t5"\n  - No changes were made/, "$ut: Task 5 modified");
+unlike ($output, qr/Task 6 "t6"\n  - No changes were made/, "$ut: Task 6 modified");
 
-$output = qx{../src/task rc:bulk.rc info 4 2>&1};
-like ($output, qr/Project\s+p1/, 'project applied to 4');
-like ($output, qr/Priority\s+M/, 'priority applied to 4');
+$output = qx{../src/task rc:$rc info 4 2>&1};
+like ($output, qr/Project\s+p1/, "$ut: project applied to 4");
+like ($output, qr/Priority\s+M/, "$ut: priority applied to 4");
 
-$output = qx{../src/task rc:bulk.rc info 5 2>&1};
-like ($output, qr/Project\s+p1/, 'project applied to 5');
-like ($output, qr/Priority\s+M/, 'priority applied to 5');
+$output = qx{../src/task rc:$rc info 5 2>&1};
+like ($output, qr/Project\s+p1/, "$ut: project applied to 5");
+like ($output, qr/Priority\s+M/, "$ut: priority applied to 5");
 
-$output = qx{../src/task rc:bulk.rc info 6 2>&1};
-like ($output, qr/Project\s+p1/, 'project applied to 6');
-like ($output, qr/Priority\s+M/, 'priority applied to 6');
+$output = qx{../src/task rc:$rc info 6 2>&1};
+like ($output, qr/Project\s+p1/, "$ut: project applied to 6");
+like ($output, qr/Priority\s+M/, "$ut: priority applied to 6");
 
 # Cleanup.
-unlink qw(pending.data completed.data undo.data backlog.data bulk.rc);
+unlink qw(pending.data completed.data undo.data backlog.data), $rc;
 exit 0;