From 499981d092e7aa5a45747a60163508ff60b3a3c2 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 20 Apr 2006 18:43:20 +0000
Subject: [PATCH] removing diag to clean up smoke test output

---
 t/Group.t       |  1 -
 t/POD.t         |  1 -
 t/Session/Url.t | 10 ----------
 3 files changed, 12 deletions(-)

diff --git a/t/Group.t b/t/Group.t
index eedd7c21c..fba58fb73 100644
--- a/t/Group.t
+++ b/t/Group.t
@@ -83,7 +83,6 @@ $testCache->flush;
 
 my $g = WebGUI::Group->new($session, "new");
 
-diag("Object creation and defaults");
 is (ref $g, "WebGUI::Group", "Group object creation");
 my $gid = $g->getId;
 isnt ($gid, "new", "Group assigned new groupId, not new");
diff --git a/t/POD.t b/t/POD.t
index bbf9e6413..5ab4b6373 100644
--- a/t/POD.t
+++ b/t/POD.t
@@ -24,7 +24,6 @@ plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
 my @modules = ();
 find(\&countModules, File::Spec->catdir( WebGUI::Test->lib, 'WebGUI' ) );
 my $moduleCount = scalar(@modules);
-diag("Planning on running $moduleCount tests\n");
 plan tests => $moduleCount;
 foreach my $package (sort @modules) {
 	my $pc = Pod::Coverage->new(package=>$package);
diff --git a/t/Session/Url.t b/t/Session/Url.t
index 58bf88442..fb543e304 100644
--- a/t/Session/Url.t
+++ b/t/Session/Url.t
@@ -28,7 +28,6 @@ $session->setting->set('preventProxyCache', 0) if ($preventProxyCache);
 my $url = 'http://localhost.localdomain/foo';
 my $url2;
 
-diag("append tests");
 
 $url2 = $session->url->append($url,'a=b');
 is( $url2, $url.'?a=b', 'append first pair');
@@ -36,7 +35,6 @@ is( $url2, $url.'?a=b', 'append first pair');
 $url2 = $session->url->append($url2,'c=d');
 is( $url2, $url.'?a=b;c=d', 'append second pair');
 
-diag("gateway tests");
 
 $session->config->{_config}->{'gateway'} = '/';
 
@@ -69,8 +67,6 @@ is( $url2, '/home?a=b', 'append one pair via gateway');
 #Restore original proxy cache setting so downstream tests work with no surprises
 $session->setting->set(preventProxyCache => $preventProxyCache );
 
-diag("site URL tests");
-
 my $sitename = $session->config->get('sitename')->[0];
 is ( $session->url->getSiteURL, 'http://'.$sitename, 'getSiteURL from config');
 
@@ -80,15 +76,11 @@ is ( $session->url->getSiteURL, 'http://webgui.org', 'override config setting wi
 $session->url->setSiteURL('http://'.$sitename);
 is ( $session->url->getSiteURL, 'http://'.$sitename, 'restore config setting');
 
-diag("compliancy tests");
-
 $url  = 'level1 /level2/level3   ';
 $url2 = 'level1-/level2/level3';
 
 is ( $session->url->makeCompliant($url), $url2, 'language specific URL compliance');
 
-diag("getRequestedUrl tests");
-
 my $originalRequest = $session->request;  ##Save the original request
 
 my $newRequest = Test::MockObject->new;
@@ -109,8 +101,6 @@ is ($session->url->getRequestedUrl, 'path1/file1', 'getRequestedUrl, fetch');
 $requestedUrl = '/path2/file2';
 is ($session->url->getRequestedUrl, 'path1/file1', 'getRequestedUrl, check cache of previous result');
 
-diag("page tests");
-
 is ($session->url->page, '/path1/file1', 'page with no args returns getRequestedUrl through gateway');
 
 $url2 = 'http://'.$session->config->get('sitename')->[0].'/path1/file1';