From 7fda01b291e516b52e660f63cd728e1ce6d437d5 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 11 Jul 2011 17:22:25 -0700 Subject: [PATCH] Fixup of FormField macro tests and POD. --- lib/WebGUI/Macro/FormField.pm | 2 +- t/Macro/FormField.t | 6 ++---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/lib/WebGUI/Macro/FormField.pm b/lib/WebGUI/Macro/FormField.pm index ed8080c00..1410ba29b 100644 --- a/lib/WebGUI/Macro/FormField.pm +++ b/lib/WebGUI/Macro/FormField.pm @@ -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 subclasses in L. +C<$type> is one of the L subclasses in L. C<$field_name> is the name the field will be given in the HTML "name" attribute. diff --git a/t/Macro/FormField.t b/t/Macro/FormField.t index bdcc66073..689c252d0 100644 --- a/t/Macro/FormField.t +++ b/t/Macro/FormField.t @@ -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');