diff --git a/t/Macro/Include.t b/t/Macro/Include.t
index 6ecba1190..603f0a193 100644
--- a/t/Macro/Include.t
+++ b/t/Macro/Include.t
@@ -116,6 +116,8 @@ foreach my $testSet (@testSets) {
 
 }
 
+diag(sprintf "post test mode: %o", (stat $unreadable)[2]);
+
 END {
 	$storage->delete;
 }