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

Fixup of FormField macro tests and POD.

Browse source
This commit is contained in:
Colin Kuskie 2011-07-11 17:22:25 -07:00
parent 9985d24ea2
commit 7fda01b291
2 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Macro/FormField.pm
View file

@ -22,7 +22,7 @@ Renders an instance of a Form object.
=head2 process( $session, $type, $field_name [, $default_value, @form_constructor_arguments ] ) =head2 process( $session, $type, $field_name [, $default_value, @form_constructor_arguments ] )
C<$type> is one of the L<WebGUI::Form::Control> subclasses in L<WebGUI::Form::>. C<$type> is one of the L<WebGUI::Form::Control> subclasses in L<WebGUI::Form>.
C<$field_name> is the name the field will be given in the HTML "name" attribute. C<$field_name> is the name the field will be given in the HTML "name" attribute.

6
t/Macro/FormField.t
View file

@ -72,9 +72,8 @@ $output = WebGUI::Macro::FormField::process(
sortByValue => 1, sortByValue => 1,
); );
warn $output; #my $numTests = 11 + scalar @{ $testBlock } + 1;
my $numTests = 8;
my $numTests = 11 + scalar @{ $testBlock } + 1;
plan tests => $numTests; plan tests => $numTests;
@ -89,7 +88,6 @@ my @forms = HTML::Form->parse($html, 'http://www.webgui.org');
is(scalar @forms, 1, '1 form was parsed'); is(scalar @forms, 1, '1 form was parsed');
my $form = $forms[0]; my $form = $forms[0];
use Data::Dumper; warn Data::Dumper::Dumper $form; # XXX
my @inputs = $form->inputs; my @inputs = $form->inputs;
is(scalar @inputs, 8, 'The form has 8 inputs'); is(scalar @inputs, 8, 'The form has 8 inputs');