From 740f09b2f1471dfe4ff3e5f3991c01170f7b3a8f Mon Sep 17 00:00:00 2001 From: Leon Timmermans Date: Thu, 25 Apr 2024 22:54:39 +0100 Subject: [PATCH] TEST --- t/sharedir.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/sharedir.t b/t/sharedir.t index 732a4d440..5beae6387 100644 --- a/t/sharedir.t +++ b/t/sharedir.t @@ -85,7 +85,9 @@ SKIP: { run_ok('make', 'install'); my $dir = catdir($install, qw/lib perl5 auto share dist TestDist share/); - ok(-d $dir, 'Sharedir has been created'); + ok(-d $dir, 'Sharedir has been created') or diag $dir; + open my $fh, '<', 'Makefile'; + diag <$fh>; ok(-e catfile($dir, 'normalfile'), 'File in sharedir has been created'); ok(-e catfile($dir, qw/dots .dotdir .dotfile/), 'A dotfile in a dotdir installed'); }