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

remove diag output

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

1
t/Form/Checkbox.t
View file

@ -47,7 +47,6 @@ my $formType = 'Checkbox';
my $numTests = 7 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/Email.t
View file

@ -48,7 +48,6 @@ my $formClass = 'WebGUI::Form::Email';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/Float.t
View file

@ -90,7 +90,6 @@ my $formType = 'Float';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/GetName.t
View file

@ -41,7 +41,6 @@ $numTests = (2 * scalar @formTypes) + 1;
plan tests => $numTests;
diag("Planning on running $numTests tests\n");
foreach my $formType (@formTypes) {
my $form = WebGUI::Form::DynamicField->new($session, fieldType => $formType);

1
t/Form/Hidden.t
View file

@ -65,7 +65,6 @@ my $formClass = 'WebGUI::Form::Hidden';
my $numTests = 5 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/Integer.t
View file

@ -65,7 +65,6 @@ my $formType = 'Integer';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

29
t/Form/ListEquiv.t
View file

@ -39,11 +39,9 @@ my $i18n = WebGUI::International->new($session);
# put your tests here
diag("Planning on running $numTests tests\n");
plan tests => $numTests;
diag("SelectList, simple equivalency with size");
my ($direct, $dynamic);
@ -75,7 +73,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching SelectList output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching SelectList output, toHtmlAsHidden");
diag("CheckList, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -103,7 +100,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching CheckList output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching CheckList output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching CheckList output, toHtmlAsHidden");
diag("RadioList, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -131,7 +127,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching RadioList output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching RadioList output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching RadioList output, toHtmlAsHidden");
diag("SelectBox, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -159,7 +154,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching SelectBox output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching SelectBox output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching SelectBox output, toHtmlAsHidden");
diag("HiddenList, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -174,8 +168,6 @@ $direct = WebGUI::Form::HiddenList->new($session,{
sortByValue => 1,
});
#diag("direct" . Dumper($direct));
#diag("dynamic" . Dumper($dynamic));
is(ref $dynamic, "WebGUI::Form::HiddenList", 'checking dynamic HiddenList');
is(ref $direct, "WebGUI::Form::HiddenList", 'checking direct HiddenList');
@ -186,7 +178,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching HiddenList output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching HiddenList output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching HiddenList output, toHtmlAsHidden");
diag("Group, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -201,8 +192,6 @@ $direct = WebGUI::Form::Group->new($session,{
sortByValue => 1,
});
#diag("direct" . Dumper($direct));
#diag("dynamic" . Dumper($dynamic));
is(ref $dynamic, "WebGUI::Form::Group", 'checking dynamic Group');
is(ref $direct, "WebGUI::Form::Group", 'checking direct Group');
@ -213,7 +202,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching Group output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching Group output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching Group output, toHtmlAsHidden");
diag("Group, simple equivalency, no default values");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -230,8 +218,6 @@ $direct = WebGUI::Form::Group->new($session,{
value => '',
});
#diag("direct" . Dumper($direct));
#diag("dynamic" . Dumper($dynamic));
is(ref $dynamic, "WebGUI::Form::Group", 'checking dynamic Group');
is(ref $direct, "WebGUI::Form::Group", 'checking direct Group');
@ -243,7 +229,6 @@ is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching Group outp
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching Group output, toHtmlAsHidden");
diag("TimeZone, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -258,8 +243,6 @@ $direct = WebGUI::Form::TimeZone->new($session,{
sortByValue => 1,
});
#diag("direct" . Dumper($direct));
#diag("dynamic" . Dumper($dynamic));
is(ref $dynamic, "WebGUI::Form::TimeZone", 'checking dynamic TimeZone');
is(ref $direct, "WebGUI::Form::TimeZone", 'checking direct TimeZone');
@ -270,7 +253,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching TimeZone output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching TimeZone output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching TimeZone output, toHtmlAsHidden");
diag("ContentType, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -294,7 +276,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching ContentType output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching ContentType output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching ContentType output, toHtmlAsHidden");
diag("FilterContent, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -318,7 +299,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching FilterContent output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching FilterContent output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching FilterContent output, toHtmlAsHidden");
diag("LdapLink, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -333,8 +313,6 @@ $direct = WebGUI::Form::LdapLink->new($session,{
sortByValue => 1,
});
#diag("direct" . Dumper($direct));
#diag("dynamic" . Dumper($dynamic));
is(ref $dynamic, "WebGUI::Form::LdapLink", 'checking dynamic LdapLink');
is(ref $direct, "WebGUI::Form::LdapLink", 'checking direct LdapLink');
@ -345,7 +323,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching LdapLink output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching LdapLink output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching LdapLink output, toHtmlAsHidden");
diag("Template, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -360,8 +337,6 @@ $direct = WebGUI::Form::Template->new($session,{
sortByValue => 1,
});
#diag("direct" . Dumper($direct));
#diag("dynamic" . Dumper($dynamic));
is(ref $dynamic, "WebGUI::Form::Template", 'checking dynamic Template');
is(ref $direct, "WebGUI::Form::Template", 'checking direct Template');
@ -372,7 +347,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching Template output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching Template output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching Template output, toHtmlAsHidden");
diag("WhatNext, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,
@ -387,8 +361,6 @@ $direct = WebGUI::Form::WhatNext->new($session,{
sortByValue => 1,
});
#diag("direct" . Dumper($direct));
#diag("dynamic" . Dumper($dynamic));
is(ref $dynamic, "WebGUI::Form::WhatNext", 'checking dynamic WhatNext');
is(ref $direct, "WebGUI::Form::WhatNext", 'checking direct WhatNext');
@ -399,7 +371,6 @@ is($dynamic->toHtml, $direct->toHtml, "matching WhatNext output, toHtml");
is($dynamic->toHtmlWithWrapper, $direct->toHtmlWithWrapper, "matching WhatNext output, toHtmlWithWrapper");
is($dynamic->toHtmlAsHidden, $direct->toHtmlAsHidden, "matching WhatNext output, toHtmlAsHidden");
diag("DatabaseLink, simple equivalency");
$dynamic = WebGUI::Form::DynamicField->new(
$session,

1
t/Form/Password.t
View file

@ -47,7 +47,6 @@ my $formClass = 'WebGUI::Form::Password';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/Phone.t
View file

@ -89,7 +89,6 @@ my $formType = 'Phone';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/ProfileEnabled.t
View file

@ -39,7 +39,6 @@ $numTests = scalar @formTypes + 1;
plan tests => $numTests;
diag("Planning on running $numTests tests\n");
my @notEnabled = qw/Asset Button Captcha Color Control List MimeType Submit/;

1
t/Form/Radio.t
View file

@ -47,7 +47,6 @@ my $formType = 'Radio';
my $numTests = 7 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

2
t/Form/SelectBox.t
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');

2
t/Form/SelectList.t
View file

@ -65,7 +65,6 @@ my $formType = 'SelectList';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;
@ -89,7 +88,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, 6, 'The form has 6 inputs');

1
t/Form/Text.t
View file

@ -46,7 +46,6 @@ my $formType = 'text';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/Textarea.t
View file

@ -46,7 +46,6 @@ my $formType = 'textarea';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/Url.t
View file

@ -76,7 +76,6 @@ my $formClass = 'WebGUI::Form::Url';
my $numTests = 11 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;

1
t/Form/Zipcode.t
View file

@ -64,7 +64,6 @@ my $formClass = 'WebGUI::Form::Zipcode';
my $numTests = 12 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;