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

- Upgraded to use the new template.
---
 test/bug.932.t | 42 +++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 19 deletions(-)

diff --git a/test/bug.932.t b/test/bug.932.t
index f3044fcec..b963abf8c 100755
--- a/test/bug.932.t
+++ b/test/bug.932.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, '>', 'bug.rc')
+if (open my $fh, '>', $rc)
 {
   print $fh "data.location=.\n",
             "confirmation=off\n";
@@ -45,28 +49,28 @@ if (open my $fh, '>', 'bug.rc')
 # - add a recurring task with multiple child tasks
 # - modify a child task and test for propagation
 # - modify the parent task and test for propagation
-qx{../src/task rc:bug.rc add R due:yesterday recur:daily 2>&1};
-my $output = qx{../src/task rc:bug.rc list 2>&1};
-like ($output, qr/2.+R/ms, 'Found child 0');
-like ($output, qr/3.+R/ms, 'Found child 1');
-like ($output, qr/4.+R/ms, 'Found child 2');
+qx{../src/task rc:$rc add R due:yesterday recur:daily 2>&1};
+my $output = qx{../src/task rc:$rc list 2>&1};
+like ($output, qr/2.+R/ms, "$ut: Found child 0");
+like ($output, qr/3.+R/ms, "$ut: Found child 1");
+like ($output, qr/4.+R/ms, "$ut: Found child 2");
 
-qx{echo 'y' | ../src/task rc:bug.rc 2 mod project:P 2>&1};
-$output = qx{../src/task rc:bug.rc list 2>&1};
-like ($output, qr/2.+P.+R/ms, 'Found modified child 0');
-like ($output, qr/3.+P.+R/ms, 'Found modified child 1 (propagated from 0)');
-like ($output, qr/4.+P.+R/ms, 'Found modified child 2 (propagated from 0)');
+qx{echo 'y' | ../src/task rc:$rc 2 mod project:P 2>&1};
+$output = qx{../src/task rc:$rc list 2>&1};
+like ($output, qr/2.+P.+R/ms, "$ut: Found modified child 0");
+like ($output, qr/3.+P.+R/ms, "$ut: Found modified child 1 (propagated from 0)");
+like ($output, qr/4.+P.+R/ms, "$ut: Found modified child 2 (propagated from 0)");
 
-qx{echo 'y' | ../src/task rc:bug.rc 1 mod priority:H 2>&1};
-$output = qx{../src/task rc:bug.rc list 2>&1};
-like ($output, qr/2.+H.+P.+R/ms, 'Found modified child 0 (propagated from parent');
-like ($output, qr/3.+H.+P.+R/ms, 'Found modified child 1 (propagated from parent)');
-like ($output, qr/4.+H.+P.+R/ms, 'Found modified child 2 (propagated from parent)');
+qx{echo 'y' | ../src/task rc:$rc 1 mod priority:H 2>&1};
+$output = qx{../src/task rc:$rc list 2>&1};
+like ($output, qr/2.+H.+P.+R/ms, "$ut: Found modified child 0 (propagated from parent");
+like ($output, qr/3.+H.+P.+R/ms, "$ut: Found modified child 1 (propagated from parent)");
+like ($output, qr/4.+H.+P.+R/ms, "$ut: Found modified child 2 (propagated from parent)");
 
-$output = qx{../src/task rc:bug.rc diag 2>&1};
-like ($output, qr/No duplicates found/, 'No duplicate UUIDs detected');
+$output = qx{../src/task rc:$rc diag 2>&1};
+like ($output, qr/No duplicates found/, "$ut: No duplicate UUIDs detected");
 
 # Cleanup.
-unlink qw(pending.data completed.data undo.data backlog.data bug.rc);
+unlink qw(pending.data completed.data undo.data backlog.data), $rc;
 exit 0;