Bug #1251

- #1251 tests should sanitize TASKDATA and TASKRC env vars (thanks to Jakub
  Wilk).

test/abbreviation.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 21;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'abbrev.rc')
 {

test/add.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 9;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'add.rc')
 {

test/alias.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'alias.rc')
 {

test/annotate.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 25;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'annotate.rc')
 {

test/append.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'append.rc')
 {

test/args.1.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 8;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'args.rc')
 {

test/args.2.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 7;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'args.rc')
 {

test/args.3.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 7;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'args.rc')
 {

test/args.4.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 7;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'args.rc')
 {

test/args.5.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 7;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'args.rc')
 {

test/args.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 7;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'args.rc')
 {

test/autocomplete.t.cpp

@@ -27,6 +27,7 @@
 
 #include <cmake.h>
 #include <iostream>
+#include <stdlib.h>
 #include <test.h>
 #include <util.h>
 #include <main.h>
@@ -38,6 +39,10 @@ int main (int argc, char** argv)
 {
   UnitTest t (8);
 
+  // Ensure environment has no influence.
+  unsetenv ("TASKDATA");
+  unsetenv ("TASKRC");
+
   std::vector <std::string> options;
   options.push_back ("abc");
   options.push_back ("abcd");

test/backslash.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'backslash.rc')
 {

test/bash_completion.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 18;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/basic.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 7;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'basic.rc')
 {

test/bug.1006.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.1023.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 11;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.1031.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.1036.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.1043.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 7;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.1044.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.1056.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 9;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.1056')
 {

test/bug.1063.t

@@ -31,6 +31,10 @@ use warnings;
 use Test::More tests => 8;
 use File::Basename;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 my $ut = basename ($0);
 my $rc = $ut . '.rc';
 

test/bug.1065.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 14;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.1104.t

@@ -32,6 +32,10 @@ use File::Copy;
 use File::Path;
 use Test::More tests => 33;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 mkdir("1",       0755);
 mkdir("2",       0755);
 mkdir("3",       0755);

test/bug.1110.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.1117.t

@@ -32,6 +32,10 @@ use File::Copy;
 use File::Path;
 use Test::More tests => 13;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 mkdir("1",       0755);
 mkdir("2",       0755);
 mkdir("merge",   0755);

test/bug.1192.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.299.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.327.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.360.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 10;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.368.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.414.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 7;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.417.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.418.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 20;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.425.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', '425.rc')
 {

test/bug.434.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.438.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 8;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.440.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', '440.rc')
 {

test/bug.441.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', '441.rc')
 {

test/bug.455.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', '455.rc')
 {

test/bug.480.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 40;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.489.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.495.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.555.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.580.t

@@ -31,6 +31,10 @@ use warnings;
 use Test::More tests => 11;
 use File::Copy;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 use constant false => 0;
 use constant true => 1;
 

test/bug.605.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.628.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.634.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.635.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.649.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.656.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.674.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.694.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.703.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 10;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.708.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.804.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.818.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 10;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.819.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.835.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.837.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.839.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.851.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 8;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.856.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 8;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.860.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.879.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 8;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.884.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.886.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.899.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.906.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 17;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.917.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.924.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.932.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 12;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.954.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.955.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.956.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 14;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.972.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.986.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.990.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'color.rc')
 {

test/bug.991.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.annotate.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.annual.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 13;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'annual.rc')
 {

test/bug.before.t

@@ -31,6 +31,10 @@ use warnings;
 use Time::Local;
 use Test::More tests => 17;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'before.rc')
 {

test/bug.bulk.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 12;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bulk.rc')
 {

test/bug.c001.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.cal.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 29;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'cal.rc')
 {

test/bug.concat.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug.rc')
 {

test/bug.hang.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'hang.rc')
 {

test/bug.hasnt.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 16;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'hasnt.rc')
 {

test/bug.period.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 41;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'period.rc')
 {

test/bug.range.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'range.rc')
 {

test/bug.recur.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 3;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'recur.rc')
 {

test/bug.sort.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bug_sort.rc')
 {

test/bug.start.extra.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 6;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'extra.rc')
 {

test/bug.summary.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'summary.rc')
 {

test/bug.uuid.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 5;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'uuid.rc')
 {

test/bulk.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 44;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'bulk.rc')
 {

test/cal.t

@@ -32,6 +32,10 @@ use strict;
 use warnings;
 use Test::More tests => 84;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'cal.rc')
 {

test/caseless.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 18;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'caseless.rc')
 {

test/color.active.t

@@ -30,6 +30,10 @@ use strict;
 use warnings;
 use Test::More tests => 4;
 
+# Ensure environment has no influence.
+delete $ENV{'TASKDATA'};
+delete $ENV{'TASKRC'};
+
 # Create the rc file.
 if (open my $fh, '>', 'color.rc')
 {