Fixup of FormField macro tests and POD.

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

View file

@ -22,7 +22,7 @@ Renders an instance of a Form object.
=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.

View file

@ -72,9 +72,8 @@ $output = WebGUI::Macro::FormField::process(
sortByValue => 1,
);
warn $output;
my $numTests = 11 + scalar @{ $testBlock } + 1;
#my $numTests = 11 + scalar @{ $testBlock } + 1;
my $numTests = 8;
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');
my $form = $forms[0];
use Data::Dumper; warn Data::Dumper::Dumper $form; # XXX
my @inputs = $form->inputs;
is(scalar @inputs, 8, 'The form has 8 inputs');