diff --git a/t/cp/gh-115-copy-into-dir.t b/t/cp/gh-115-copy-into-dir.t
index b3348c07..14dc021e 100644
--- a/t/cp/gh-115-copy-into-dir.t
+++ b/t/cp/gh-115-copy-into-dir.t
@@ -50,7 +50,10 @@ subtest 'same directory' => sub {
 	is $rc, 0, 'system exited with 0' or diag(
 		"system failed:\n\t$!\n\t$^E"
 		);
-	ok -e $second_filename, "$second_filename exists";
+	ok -e $second_filename, "$second_filename exists" or do {
+		my @files = glob '*';
+		diag( "Files in current working dir are <@files>" );
+		};
 	};
 
 =pod
@@ -64,7 +67,10 @@ subtest 'into directory' => sub {
 	is $rc, 0, 'system exited with 0' or diag(
 		"system failed:\n\t$!\n\t$^E"
 		);
-	ok -e catfile( $subdir, $filename ), "$subdir/$second_filename exists";
+	ok -e catfile( $subdir, $filename ), "$subdir/$second_filename exists" or do {
+		my @files = glob '*';
+		diag( "Files in current working dir are <@files>" );
+		};
 	};
 
 done_testing();