oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more diagnostics for remote debug

Browse source
This commit is contained in:
Colin Kuskie 2006-08-08 20:17:25 +00:00
parent 000b2fcce3
commit a5d38396a1
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/Macro/Include.t
View file

@ -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 = (
{