From dabdd9a55d4fb73386cabda2bab15d9857b5ed4c Mon Sep 17 00:00:00 2001 From: brian d foy Date: Wed, 21 Jun 2023 22:20:44 -0400 Subject: [PATCH] show the files in the dir after the operation --- t/cp/gh-115-copy-into-dir.t | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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();