add some more users for testing canAdd and canEdit

This commit is contained in:
Colin Kuskie 2007-12-24 01:25:10 +00:00
parent 924f09a09f
commit d0228ddbb4

View file

@ -16,6 +16,7 @@ use WebGUI::Test;
use WebGUI::Test::Maker::Permission; use WebGUI::Test::Maker::Permission;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Asset; use WebGUI::Asset;
use WebGUI::User;
use WebGUI::Asset::Wobject::Navigation; use WebGUI::Asset::Wobject::Navigation;
use WebGUI::Asset::Wobject::Folder; use WebGUI::Asset::Wobject::Folder;
use WebGUI::AssetVersioning; use WebGUI::AssetVersioning;
@ -31,13 +32,20 @@ my @fixTitleTests = getFixTitleTests($session);
my $rootAsset = WebGUI::Asset->getRoot($session); my $rootAsset = WebGUI::Asset->getRoot($session);
my %testUsers = ();
##Just a regular user
$testUsers{'regular user'} = WebGUI::User->new($session, 'new');
##Users in group 12 can add Assets
$testUsers{'canAdd turnOnAdmin'} = WebGUI::User->new($session, 'new');
$testUsers{'canAdd turnOnAdmin'}->addToGroups(['12']);
my $canAddMaker = WebGUI::Test::Maker::Permission->new(); my $canAddMaker = WebGUI::Test::Maker::Permission->new();
$canAddMaker->prepare({ $canAddMaker->prepare({
'className' => 'WebGUI::Asset', 'className' => 'WebGUI::Asset',
'session' => $session, 'session' => $session,
'method' => 'canAdd', 'method' => 'canAdd',
'pass' => [3], 'pass' => [3, $testUsers{'canAdd turnOnAdmin'}, ],
'fail' => [1], 'fail' => [1, $testUsers{'regular user'}, ],
}); });
my $properties; my $properties;
@ -54,13 +62,14 @@ my $versionTag2 = WebGUI::VersionTag->getWorking($session);
my $canEditAsset = $rootAsset->addChild($properties, $properties->{id}); my $canEditAsset = $rootAsset->addChild($properties, $properties->{id});
$versionTag2->commit; $versionTag2->commit;
$properties = {}; ##Clear out the hash so that it doesn't leak later by accident.
my $canEditMaker = WebGUI::Test::Maker::Permission->new(); my $canEditMaker = WebGUI::Test::Maker::Permission->new();
$canEditMaker->prepare({ $canEditMaker->prepare({
'object' => $canEditAsset, 'object' => $canEditAsset,
'method' => 'canEdit', 'method' => 'canEdit',
'pass' => [3], 'pass' => [3, ],
'fail' => [1], 'fail' => [1, $testUsers{'regular user'}, ],
}); });
plan tests => 56 plan tests => 56
@ -377,6 +386,9 @@ END: {
foreach my $vTag ($versionTag, $versionTag2) { foreach my $vTag ($versionTag, $versionTag2) {
$vTag->rollback; $vTag->rollback;
} }
foreach my $user (values %testUsers) {
$user->delete;
}
} }
##Return an array of hashrefs. Each hashref describes a test ##Return an array of hashrefs. Each hashref describes a test