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

begin guardbanding the test to survive being run by root

Browse source
This commit is contained in:
Colin Kuskie 2008-10-07 23:21:35 +00:00
parent c0b9bdcc43
commit a167731a93
1 changed files with 29 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

53
t/Asset/AssetExportHtml.t
View file

@ -102,32 +102,37 @@ cmp_deeply(
my $tempDirectory = tempdir('webguiXXXXX', CLEANUP => 1);
my $inaccessibleDirectory = Path::Class::Dir->new($tempDirectory, 'unwritable');
chmod 0000, $tempDirectory;
$config->set('exportPath', $inaccessibleDirectory->stringify);
eval { WebGUI::Asset->exportCheckPath($session) };
$e = Exception::Class->caught();
isa_ok($e, 'WebGUI::Error', "exportCheckPath throws if it can't create the directory it needs");
cmp_deeply(
$e,
methods(
error => "can't create exportPath $inaccessibleDirectory",
),
"exportCheckPath throws if it can't create the directory it needs"
);
SKIP: {
skip 'Root will cause this test to fail since it does not obey file permissions', 4
if $< == 0;
chmod 0000, $tempDirectory;
$config->set('exportPath', $inaccessibleDirectory->stringify);
chmod 0444, $tempDirectory;
$config->set('exportPath', $tempDirectory);
eval { WebGUI::Asset->exportCheckPath($session) };
$e = Exception::Class->caught();
isa_ok($e, 'WebGUI::Error', "exportCheckPath throws if it can't access the exportPath for writing");
cmp_deeply(
$e,
methods(
error => "can't access $tempDirectory",
),
"exportCheckPath throws if we can't access the exportPath"
);
eval { WebGUI::Asset->exportCheckPath($session) };
$e = Exception::Class->caught();
isa_ok($e, 'WebGUI::Error', "exportCheckPath throws if it can't create the directory it needs");
cmp_deeply(
$e,
methods(
error => "can't create exportPath $inaccessibleDirectory",
),
"exportCheckPath throws if it can't create the directory it needs"
);
chmod 0444, $tempDirectory;
$config->set('exportPath', $tempDirectory);
eval { WebGUI::Asset->exportCheckPath($session) };
$e = Exception::Class->caught();
isa_ok($e, 'WebGUI::Error', "exportCheckPath throws if it can't access the exportPath for writing");
cmp_deeply(
$e,
methods(
error => "can't access $tempDirectory",
),
"exportCheckPath throws if we can't access the exportPath"
);
}
# we're finished making sure that the code explodes on bad stuff, so let's make
# sure that it really works when it's really supposed to.