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

tests and such

Browse source
This commit is contained in:
Doug Bell 2010-05-11 16:05:02 -05:00
parent 5c2581850f
commit e891410075
7 changed files with 254 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
t/tests/Test/WebGUI/Asset.pm
View file

@ -340,15 +340,26 @@ sub addRevision : Tests {
$newRevision->purgeRevision;
}
sub getEditForm : Tests {
note "getEditForm";
my ( $test ) = @_;
my $session = $test->session;
my ( $tag, $asset, @parents ) = $test->getAnchoredAsset();
}
sub www_editSave : Tests {
note "www_editSave";
my ( $test ) = @_;
my $session = $test->session;
my ( $tag, $asset, @parents ) = $test->getAnchoredAsset();
my $oldGroupId = $asset->groupIdEdit;
$asset->groupIdEdit( 7 ); # Everybody! Everybody!
$tag->setWorking;
$session->request->setup_body({
title => "Newly Saved Title",
} );
});
$asset->www_editSave;
# Get the newly-created revision of the asset
@ -356,6 +367,7 @@ sub www_editSave : Tests {
ok( $newRevision->tagId, 'new revision has a tag' );
is( $newRevision->tagId, $tag->getId, 'new revision tagId is current working tag' );
$asset->groupIdEdit( $oldGroupId );
}
1;