Unit Tests

- Removed useless setup/teardown tests, improving the signal to noise ratio.

test/label.t

@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 7;
+use Test::More tests => 5;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -43,7 +43,6 @@ if (open my $fh, '>', 'custom.rc')
             "report.foo.sort=id+\n",
             "report.foo.filter=project:A\n";
   close $fh;
-  ok (-r 'custom.rc', 'Created custom.rc');
 }
 
 # Generate the help screen, and locate the custom report on it.
@@ -60,11 +59,5 @@ unlike ($output, qr/two/,         'custom filter excluded');
 
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data  custom.rc);
-ok (! -r 'pending.data'   &&
-    ! -r 'completed.data' &&
-    ! -r 'undo.data'      &&
-    ! -r 'backlog.data'   &&
-    ! -r 'custom.rc', 'Cleanup');
-
 exit 0;
 

test/limit.t

@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 6;
+use Test::More tests => 4;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -39,7 +39,6 @@ if (open my $fh, '>', 'limit.rc')
   print $fh "data.location=.\n",
             "verbose=affected\n";
   close $fh;
-  ok (-r 'limit.rc', 'Created limit.rc');
 }
 
 # Add a large number of tasks (> 25).
@@ -99,11 +98,5 @@ like ($output, qr/^30 tasks, truncated to 22 lines$/ms, 'limited to page');
 
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data limit.rc);
-ok (! -r 'pending.data'   &&
-    ! -r 'completed.data' &&
-    ! -r 'undo.data'      &&
-    ! -r 'backlog.data'   &&
-    ! -r 'limit.rc', 'Cleanup');
-
 exit 0;
 

test/list.all.projects.t

@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 6;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -38,7 +38,6 @@ if (open my $fh, '>', 'projects.rc')
 {
   print $fh "data.location=.\n";
   close $fh;
-  ok (-r 'projects.rc', 'Created projects.rc');
 }
 
 # Create a data set of two tasks, with unique project names, one
@@ -61,11 +60,5 @@ like ($output, qr/p2/, 'p2 listed');
 
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data  projects.rc);
-ok (! -r 'pending.data'   &&
-    ! -r 'completed.data' &&
-    ! -r 'undo.data'      &&
-    ! -r 'backlog.data'   &&
-    ! -r 'projects.rc', 'Cleanup');
-
 exit 0;
 

test/list.all.tags.t

@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 6;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -39,7 +39,6 @@ if (open my $fh, '>', 'tags.rc')
   print $fh "data.location=.\n",
             "defaultwidth=100\n";
   close $fh;
-  ok (-r 'tags.rc', 'Created tags.rc');
 }
 
 # Create a data set of two tasks, with unique project names, one
@@ -61,11 +60,5 @@ like ($output, qr/t2/, 't2 listed');
 
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data  tags.rc);
-ok (! -r 'pending.data'   &&
-    ! -r 'completed.data' &&
-    ! -r 'undo.data'      &&
-    ! -r 'backlog.data'   &&
-    ! -r 'tags.rc', 'Cleanup');
-
 exit 0;
 

test/log.t

@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 1;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -39,7 +39,6 @@ if (open my $fh, '>', 'log.rc')
   print $fh "data.location=.\n",
             "confirmation=off\n";
   close $fh;
-  ok (-r 'log.rc', 'Created log.rc');
 }
 
 # Test the log command.
@@ -49,11 +48,5 @@ like ($output, qr/This is a test/, 'log description');
 
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data  log.rc);
-ok (! -r 'pending.data'   &&
-    ! -r 'completed.data' &&
-    ! -r 'undo.data'      &&
-    ! -r 'backlog.data'   &&
-    ! -r 'log.rc', 'Cleanup');
-
 exit 0;
 

test/next.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'};
@@ -39,7 +39,6 @@ if (open my $fh, '>', 'next.rc')
   print $fh "data.location=.\n",
             "next=1\n";
   close $fh;
-  ok (-r 'next.rc', 'Created next.rc');
 }
 
 # Add two tasks for each of two projects, then run next.  There should be only
@@ -55,11 +54,5 @@ like ($output, qr/BH/, 'BH shown');
 
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data next.rc);
-ok (! -r 'pending.data'   &&
-    ! -r 'completed.data' &&
-    ! -r 'undo.data'      &&
-    ! -r 'backlog.data'   &&
-    ! -r 'next.rc', 'Cleanup');
-
 exit 0;