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

Update test to work with XSS fix.

Browse source
This commit is contained in:
Colin Kuskie 2008-10-07 21:30:27 +00:00
parent 3fcdee6094
commit 334ce4791f
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Session/Http.pm
View file

@ -501,7 +501,8 @@ Sets the necessary information in the HTTP header to redirect to another URL.
=head3 url
The URL to redirect to.
The URL to redirect to. To prevent infinite loops, no redirect will be set if
url is the same as the current page, as found through $session->url->page.
=head3 type

14
t/Session/Http.t
View file

@ -181,11 +181,17 @@ cmp_bag(\@metas, $expectedMetas, 'setRedirect:sets meta tags in the style object
$request->uri('/here/now');
$session->url->{_requestedUrl} = '';
is($http->setRedirect('/here/now'), undef, 'setRedirect: returns undef if returning to self and no params');
my $sessionAsset = $session->asset;
$session->{_asset} = WebGUI::Asset->getDefault($session);
my $defaultAssetUrl = $session->asset->getUrl;
is($http->setRedirect($defaultAssetUrl), undef, 'setRedirect: returns undef if returning to self and no params');
$request->setup_body({ param1 => 'value1' });
isnt($http->setRedirect('/here/now'), undef, 'setRedirect: does not return undef if returning to self but there are params');
$session->{_asset} = $sessionAsset;
####################################################
#
# setNoHeader and sendHeader
@ -307,9 +313,9 @@ $http->setFilename('');
$request->protocol('HTTP 1.0');
$http->setCacheControl(500);
$http->sendHeader();
my $headers_out = $request->headers_out->fetch;
my $expire_header = delete $headers_out->{Expires};
my $delta = deltaHttpTimes($session->datetime->epochToHttp(time+500), $expire_header);
$headers_out = $request->headers_out->fetch;
$expire_header = delete $headers_out->{Expires};
$delta = deltaHttpTimes($session->datetime->epochToHttp(time+500), $expire_header);
cmp_ok($delta->seconds, '<=', 2, 'sendHeader, old HTTP protocol, cacheControl=500: adds extra cache header field');
is_deeply(
$request->headers_out->fetch,