From e3209b234e7a22c2dcb2e696b03390d0a3f3ca51 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 19 Apr 2006 15:42:12 +0000
Subject: [PATCH] remove diag output

---
 t/Form/Checkbox.t       |  1 -
 t/Form/Email.t          |  1 -
 t/Form/Float.t          |  1 -
 t/Form/GetName.t        |  1 -
 t/Form/Hidden.t         |  1 -
 t/Form/Integer.t        |  1 -
 t/Form/ListEquiv.t      | 29 -----------------------------
 t/Form/Password.t       |  1 -
 t/Form/Phone.t          |  1 -
 t/Form/ProfileEnabled.t |  1 -
 t/Form/Radio.t          |  1 -
 t/Form/SelectBox.t      |  2 --
 t/Form/SelectList.t     |  2 --
 t/Form/Text.t           |  1 -
 t/Form/Textarea.t       |  1 -
 t/Form/Url.t            |  1 -
 t/Form/Zipcode.t        |  1 -
 17 files changed, 47 deletions(-)

diff --git a/t/Form/Checkbox.t b/t/Form/Checkbox.t
index 8be50ce18..de8c620c2 100644
--- a/t/Form/Checkbox.t
+++ b/t/Form/Checkbox.t
@@ -47,7 +47,6 @@ my $formType = 'Checkbox';
 
 my $numTests = 7 + scalar @{ $testBlock } + 1;
 
-diag("Planning on running $numTests tests\n");
 
 plan tests => $numTests;
 
diff --git a/t/Form/Email.t b/t/Form/Email.t
index e89d41630..08cbf6943 100644
--- a/t/Form/Email.t
+++ b/t/Form/Email.t
@@ -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;
 
diff --git a/t/Form/Float.t b/t/Form/Float.t
index d7d6253c1..4da3b0d34 100644
--- a/t/Form/Float.t
+++ b/t/Form/Float.t
@@ -90,7 +90,6 @@ my $formType = 'Float';
 
 my $numTests = 11 + scalar @{ $testBlock } + 1;
 
-diag("Planning on running $numTests tests\n");
 
 plan tests => $numTests;
 
diff --git a/t/Form/GetName.t b/t/Form/GetName.t
index e6d6dcb46..0b9c4705c 100644
--- a/t/Form/GetName.t
+++ b/t/Form/GetName.t
@@ -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);
diff --git a/t/Form/Hidden.t b/t/Form/Hidden.t
index 4f6574046..4c4bcdb90 100644
--- a/t/Form/Hidden.t
+++ b/t/Form/Hidden.t
@@ -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;
 
diff --git a/t/Form/Integer.t b/t/Form/Integer.t
index 504790819..20fbbd85e 100644
--- a/t/Form/Integer.t
+++ b/t/Form/Integer.t
@@ -65,7 +65,6 @@ my $formType = 'Integer';
 
 my $numTests = 11 + scalar @{ $testBlock } + 1;
 
-diag("Planning on running $numTests tests\n");
 
 plan tests => $numTests;
 
diff --git a/t/Form/ListEquiv.t b/t/Form/ListEquiv.t
index e5dc56b1b..4e151cd66 100644
--- a/t/Form/ListEquiv.t
+++ b/t/Form/ListEquiv.t
@@ -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,
diff --git a/t/Form/Password.t b/t/Form/Password.t
index 5f3361b1b..c2270b33b 100644
--- a/t/Form/Password.t
+++ b/t/Form/Password.t
@@ -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;
 
diff --git a/t/Form/Phone.t b/t/Form/Phone.t
index 471f6e419..fc0f8adc9 100644
--- a/t/Form/Phone.t
+++ b/t/Form/Phone.t
@@ -89,7 +89,6 @@ my $formType = 'Phone';
 
 my $numTests = 11 + scalar @{ $testBlock } + 1;
 
-diag("Planning on running $numTests tests\n");
 
 plan tests => $numTests;
 
diff --git a/t/Form/ProfileEnabled.t b/t/Form/ProfileEnabled.t
index c0e2b965d..a668e992c 100644
--- a/t/Form/ProfileEnabled.t
+++ b/t/Form/ProfileEnabled.t
@@ -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/;
 
diff --git a/t/Form/Radio.t b/t/Form/Radio.t
index d8329ff1c..0deeb66e7 100644
--- a/t/Form/Radio.t
+++ b/t/Form/Radio.t
@@ -47,7 +47,6 @@ my $formType = 'Radio';
 
 my $numTests = 7 + scalar @{ $testBlock } + 1;
 
-diag("Planning on running $numTests tests\n");
 
 plan tests => $numTests;
 
diff --git a/t/Form/SelectBox.t b/t/Form/SelectBox.t
index abeef70bc..477924dec 100644
--- a/t/Form/SelectBox.t
+++ b/t/Form/SelectBox.t
@@ -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');
 
diff --git a/t/Form/SelectList.t b/t/Form/SelectList.t
index d39fb6b54..2b0f127e1 100644
--- a/t/Form/SelectList.t
+++ b/t/Form/SelectList.t
@@ -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');
 
diff --git a/t/Form/Text.t b/t/Form/Text.t
index e66e3e348..8f7ecb098 100644
--- a/t/Form/Text.t
+++ b/t/Form/Text.t
@@ -46,7 +46,6 @@ my $formType = 'text';
 
 my $numTests = 11 + scalar @{ $testBlock } + 1;
 
-diag("Planning on running $numTests tests\n");
 
 plan tests => $numTests;
 
diff --git a/t/Form/Textarea.t b/t/Form/Textarea.t
index 8d884ebf3..f92054ffa 100644
--- a/t/Form/Textarea.t
+++ b/t/Form/Textarea.t
@@ -46,7 +46,6 @@ my $formType = 'textarea';
 
 my $numTests = 11 + scalar @{ $testBlock } + 1;
 
-diag("Planning on running $numTests tests\n");
 
 plan tests => $numTests;
 
diff --git a/t/Form/Url.t b/t/Form/Url.t
index 5a03b2952..a02203063 100644
--- a/t/Form/Url.t
+++ b/t/Form/Url.t
@@ -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;
 
diff --git a/t/Form/Zipcode.t b/t/Form/Zipcode.t
index df81e168c..c7d9c8b76 100644
--- a/t/Form/Zipcode.t
+++ b/t/Form/Zipcode.t
@@ -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;