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

more test work

Browse source
This commit is contained in:
Doug Bell 2010-05-24 11:34:45 -05:00
parent e891410075
commit eec0780893
7 changed files with 31 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -346,6 +346,23 @@ sub getEditForm : Tests {
my $session = $test->session;
my ( $tag, $asset, @parents ) = $test->getAnchoredAsset();
my $f = $asset->getEditForm;
isa_ok( $f, 'WebGUI::FormBuilder' );
# assetId, className, keywords
isa_ok( $f->getField('assetId'), 'WebGUI::Form::Guid' );
isa_ok( $f->getField('className'), 'WebGUI::Form::ClassName' );
isa_ok( $f->getField('keywords'), 'WebGUI::Form::Keywords' );
# Properties
# Metadata
# Property overrides
not_ok( $f->getField('func'), 'form must not contain "func"' );
}
sub www_editSave : Tests {
@ -353,6 +370,8 @@ sub www_editSave : Tests {
my ( $test ) = @_;
my $session = $test->session;
my ( $tag, $asset, @parents ) = $test->getAnchoredAsset();
# Alter permissions so www_editSave works
my $oldGroupId = $asset->groupIdEdit;
$asset->groupIdEdit( 7 ); # Everybody! Everybody!
@ -367,6 +386,11 @@ sub www_editSave : Tests {
ok( $newRevision->tagId, 'new revision has a tag' );
is( $newRevision->tagId, $tag->getId, 'new revision tagId is current working tag' );
# Alter permissions so it does not work
# Set locked so it does not work
$asset->groupIdEdit( $oldGroupId );
}