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

removing diag to clean up smoke test output

Browse source
This commit is contained in:
Colin Kuskie 2006-04-20 18:43:20 +00:00
parent 3803e3b2ff
commit 499981d092
3 changed files with 0 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

1
t/Group.t
View file

@ -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");

1
t/POD.t
View file

@ -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);

10
t/Session/Url.t
View file

@ -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';