From a5d38396a1d66822756e8984c81914c583e1c410 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 8 Aug 2006 20:17:25 +0000
Subject: [PATCH] more diagnostics for remote debug

---
 t/Macro/Include.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/Macro/Include.t b/t/Macro/Include.t
index 05118591c..6ecba1190 100644
--- a/t/Macro/Include.t
+++ b/t/Macro/Include.t
@@ -32,8 +32,11 @@ my $storage = WebGUI::Storage->createTemp($session);
 $storage->addFileFromScalar('goodFile', $goodFile);
 $storage->addFileFromScalar('twoLines', $twoLines);
 $storage->addFileFromScalar('unreadableFile', 'The contents of this file are not readable');
-chmod(0111, $storage->getPath('unreadableFile')) or
+my $unreadable = $storage->getPath('unreadableFile');
+diag(sprintf "original mode: %o", (stat $unreadable)[2]);
+chmod(0111, $unreadable) or
 	diag("Unable to chmod file.");
+diag(sprintf "modified mode: %o", (stat $unreadable)[2]);
 
 my @testSets = (
 	{