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

add wg-form-TYPE class to all form control wrappers

Browse source
This commit is contained in:
Doug Bell 2011-04-11 16:57:21 -05:00
parent 0c25620867
commit 0168cb16a4
2 changed files with 29 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/tests/Test/WebGUI/Form/Control.pm
View file

@ -40,6 +40,15 @@ sub t_00_method_check : Test(1) {
can_ok $form, qw/get set headTags toHtml prepareWrapper toHtmlAsHidden toHtmlWithWrapper isInRequest isDynamicCompatible getName/;
}
sub t_01_getPackageClassName : Test(1) {
my $test = shift;
my $session = $test->session;
my $form = $test->class->new($session);
my $package = $test->class;
$package =~ s/WebGUI::Form:://;
is $form->getPackageClassName, 'wg-form-' . lcfirst $package;
}
sub t_01_get_set : Test(3) {
my $test = shift;