show the files in the dir after the operation

briandfoy · Jun 22, 2023 · dabdd9a · dabdd9a
1 parent 746d690
commit dabdd9a
Showing 1 changed file with 8 additions and 2 deletions.
diff --git 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();