Make sure that all Assets are created inside of capturable version tags so they
can be cleaned up at the end of the test.
This commit is contained in:
parent
8d1e47a6ce
commit
c839ab3c0a
1 changed files with 62 additions and 14 deletions
|
|
@ -24,10 +24,14 @@ use Test::More;
|
|||
# Init
|
||||
my $session = WebGUI::Test->session;
|
||||
my $node = WebGUI::Asset->getImportNode($session);
|
||||
my $versionTag = WebGUI::VersionTag->getWorking($session);
|
||||
$versionTag->set({name=>"Photo Test"});
|
||||
my ($photo);
|
||||
my @versionTags = ();
|
||||
|
||||
$session->errorHandler->warn('GOOD STUFF HERE');
|
||||
$session->user({ userId => 3 });
|
||||
push @versionTags, WebGUI::VersionTag->getWorking($session);
|
||||
$versionTags[-1]->set({name=>"Photo Test, add Gallery, Album and 1 Photo"});
|
||||
|
||||
diag $versionTags[-1]->getId;
|
||||
|
||||
my $friend = WebGUI::User->new($session, "new");
|
||||
WebGUI::Friends->new($session)->add( [ $friend->userId ] );
|
||||
|
|
@ -39,37 +43,44 @@ my $gallery
|
|||
groupIdEdit => "3",
|
||||
ownerUserId => $session->user->userId,
|
||||
});
|
||||
|
||||
my $album
|
||||
= $gallery->addChild({
|
||||
className => "WebGUI::Asset::Wobject::GalleryAlbum",
|
||||
groupIdView => "",
|
||||
groupIdEdit => "",
|
||||
ownerUserId => $session->user->userId,
|
||||
},
|
||||
'',
|
||||
0,
|
||||
{
|
||||
skipAutoCommitWorkflows => 1,
|
||||
});
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Cleanup
|
||||
END {
|
||||
WebGUI::Friends->new($session)->delete( [ $friend->userId ] );
|
||||
$friend->delete;
|
||||
$versionTag->rollback;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Tests
|
||||
plan no_plan => 1;
|
||||
plan tests => 28;
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Everyone can view, Admins can edit, Owned by current user
|
||||
$photo
|
||||
|
||||
my $photo
|
||||
= $album->addChild({
|
||||
className => "WebGUI::Asset::File::Image::Photo",
|
||||
groupIdView => "7",
|
||||
groupIdEdit => "3",
|
||||
ownerUserId => $session->user->userId,
|
||||
},
|
||||
'',
|
||||
0,
|
||||
{
|
||||
skipAutoCommitWorkflows => 1,
|
||||
});
|
||||
|
||||
diag $photo->get('tagId');
|
||||
|
||||
$versionTags[-1]->commit;
|
||||
|
||||
ok( $photo->canView(1), "Visitor can view" );
|
||||
ok( !$photo->canEdit(1), "Visitor cannot edit" );
|
||||
ok( $photo->canView(2), "Registered users can view" );
|
||||
|
|
@ -81,13 +92,21 @@ ok( $photo->canEdit, "Current user can edit" );
|
|||
# Admins can view, Admins can edit, Owned by Admin, current user is Visitor
|
||||
my $oldUser = $session->user;
|
||||
$session->user( { user => WebGUI::User->new($session, "1") } );
|
||||
push @versionTags, WebGUI::VersionTag->getWorking($session);
|
||||
$versionTags[-1]->set({name=>"Adding new photo"});
|
||||
$photo
|
||||
= $album->addChild({
|
||||
className => "WebGUI::Asset::File::Image::Photo",
|
||||
groupIdView => "3",
|
||||
groupIdEdit => "3",
|
||||
ownerUserId => "3",
|
||||
},
|
||||
'',
|
||||
0,
|
||||
{
|
||||
skipAutoCommitWorkflows => 1,
|
||||
});
|
||||
$versionTags[-1]->commit;
|
||||
|
||||
ok( !$photo->canView, "Visitors cannot view" );
|
||||
ok( !$photo->canEdit, "Visitors cannot edit" );
|
||||
|
|
@ -99,13 +118,21 @@ $session->user( { user => $oldUser } );
|
|||
|
||||
#----------------------------------------------------------------------------
|
||||
# Photo without specific view/edit inherits from gallery properties
|
||||
push @versionTags, WebGUI::VersionTag->getWorking($session);
|
||||
$versionTags[-1]->set({name=>"Adding new photo #2"});
|
||||
$photo
|
||||
= $album->addChild({
|
||||
className => "WebGUI::Asset::File::Image::Photo",
|
||||
groupIdView => "",
|
||||
groupIdEdit => "",
|
||||
ownerUserId => $session->user->userId,
|
||||
},
|
||||
'',
|
||||
0,
|
||||
{
|
||||
skipAutoCommitWorkflows => 1,
|
||||
});
|
||||
$versionTags[-1]->commit;
|
||||
|
||||
ok( $photo->canView(1), "Visitors can view" );
|
||||
ok( !$photo->canEdit(1), "Visitors cannot edit" );
|
||||
|
|
@ -118,12 +145,20 @@ ok( $photo->canEdit(3), "Admin can edit" );
|
|||
|
||||
#----------------------------------------------------------------------------
|
||||
# Friends are allowed to view friendsOnly photos
|
||||
push @versionTags, WebGUI::VersionTag->getWorking($session);
|
||||
$versionTags[-1]->set({name=>"Adding new photo #3"});
|
||||
$photo
|
||||
= $album->addChild({
|
||||
className => "WebGUI::Asset::File::Image::Photo",
|
||||
groupIdEdit => "",
|
||||
ownerUserId => $session->user->userId,
|
||||
},
|
||||
'',
|
||||
0,
|
||||
{
|
||||
skipAutoCommitWorkflows => 1,
|
||||
});
|
||||
$versionTags[-1]->commit;
|
||||
|
||||
ok( !$photo->canView(1), "Visitors cannot view" );
|
||||
ok( !$photo->canEdit(1), "Visitors cannot edit" );
|
||||
|
|
@ -133,3 +168,16 @@ ok( $photo->canView, "Owner can view" );
|
|||
ok( $photo->canEdit, "Owner can edit" );
|
||||
ok( $photo->canView(3), "Admin can view" );
|
||||
ok( $photo->canEdit(3), "Admin can edit" );
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Cleanup
|
||||
END {
|
||||
WebGUI::Friends->new($session)->delete( [ $friend->userId ] );
|
||||
$friend->delete;
|
||||
foreach my $versionTag (@versionTags) {
|
||||
$versionTag->rollback;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue