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

fix getEditForm

Browse source
This commit is contained in:
Doug Bell 2010-06-16 11:40:56 -05:00
parent 1caef590cc
commit 3934a6704c
27 changed files with 357 additions and 809 deletions
Download patch file Download diff file Expand all files Collapse all files

15
t/tests/Test/WebGUI/Asset/File/Image.pm
View file

@ -21,4 +21,19 @@ sub list_of_tables {
return [qw/assetData FileAsset ImageAsset/];
}
sub t_11_getEditForm : Tests( 2 ) {
my $test = shift;
$test->SUPER::getEditForm( @_ );
my $session = $test->session;
my ( $tag, $asset, @parents ) = $test->getAnchoredAsset();
# Test extra fields
my $f = $asset->getEditForm;
isa_ok( $f->getTab("properties")->getField("thumbnail"), "WebGUI::Form::ReadOnly" );
isa_ok( $f->getTab("properties")->getField("imageSize"), "WebGUI::Form::ReadOnly" );
# TODO: Test overrides for extra fields
}
1;

5
t/tests/Test/WebGUI/Asset/MatrixListing.pm
View file

@ -24,4 +24,9 @@ sub parent_list {
return ['WebGUI::Asset::Wobject::Matrix'];
}
sub t_11_getEditForm : Tests {
ok(1); # TODO: Test MatrixListing getEditForm
# Do not extend other test
}
1;

5
t/tests/Test/WebGUI/Asset/Story.pm
View file

@ -24,4 +24,9 @@ sub parent_list {
return ['WebGUI::Asset::Wobject::StoryArchive'];
}
sub t_11_getEditForm : Tests {
# Override because getEditForm returns straight HTML
ok(1);
}
1;

5
t/tests/Test/WebGUI/Asset/WikiPage.pm
View file

@ -24,4 +24,9 @@ sub parent_list {
return ['WebGUI::Asset::Wobject::WikiMaster'];
}
sub t_11_getEditForm : Tests {
ok(1);
# Override, getEditForm returns HTML
}
1;