remove diag output

This commit is contained in:
Colin Kuskie 2006-04-19 15:42:12 +00:00
parent 9df4b8b2bd
commit e3209b234e
17 changed files with 0 additions and 47 deletions

View file

@ -50,7 +50,6 @@ my $formType = 'SelectBox';
my $numTests = 8 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;
@ -74,7 +73,6 @@ is(scalar @forms, 1, '1 form was parsed');
my $form = $forms[0];
#use Data::Dumper;
#diag(Dumper $form);
my @inputs = $form->inputs;
is(scalar @inputs, 1, 'The form has 1 input');