From f7b436720541a41af8f6eefb7a510563d273d04d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 29 Jul 2006 22:28:04 +0000
Subject: [PATCH] remote debug of smoke-test setup

---
 t/Macro/Include.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/Macro/Include.t b/t/Macro/Include.t
index 87916d180..7a248468d 100644
--- a/t/Macro/Include.t
+++ b/t/Macro/Include.t
@@ -33,7 +33,8 @@ 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');
+chmod 0111, $storage->getPath('unreadableFile')
+	or diag($!);
 
 my @testSets = (
 	{
@@ -99,7 +100,7 @@ plan tests => $numTests;
 
 foreach my $testSet (@testSets) {
 	my $output = WebGUI::Macro::Include::process($session, $testSet->{file});
-	is($output, $testSet->{output}, $testSet->{comment} );
+	my $passed = is($output, $testSet->{output}, $testSet->{comment} . ":" .$testSet->{file});
 }
 
 END {