Remove some debugging diag() calls

t/cp/gh-115-copy-into-dir.t

@@ -15,13 +15,10 @@ sanity_test($Program);
 
 my $starting_dir = getcwd();
 my $program_path = catfile( $starting_dir, $Program );
-diag( "Starting working dir is $starting_dir" );
-diag( "Program path is $program_path" );
 
 my $test_file = 'a.txt';
 my $dir = tempdir( CLEANUP => 1 );
 ok( chdir $dir, 'Was able to change into temporary directory' );
-diag( "Current working dir is " . getcwd() );
 
 my $subdir = 'child';
 make_path $subdir;
@@ -59,7 +56,6 @@ subtest 'same directory' => sub {
 		);
 	ok -e $second_filename, "$second_filename exists";
 	my @files = glob '*';
-	diag( "Files in current working dir are <@files>" );
 
 	unlink $second_filename;
 	ok ! -e $second_filename, "$second_filename removed at end of test";
@@ -82,7 +78,6 @@ subtest 'into directory' => sub {
 	my $target = catfile( $subdir, $filename );
 	ok -e $target, "$target exists";
 	my @files = glob '* */*';
-	diag( "Files in current working dir are <@files>" );
 
 	unlink $target;
 	ok ! -e $target, "$target removed at end of test";

t/rm/run.t

@@ -9,7 +9,6 @@ is( $class, 'PerlPowerTools::rm' );
 
 
 my $dir = File::Temp::tempdir( CLEANUP => 1 );
-diag( "temp dir is $dir" );
 chdir $dir or BAIL_OUT( "Could not change to $dir: $!" );