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

Remove getRedirectLocation and setRedirectLocation from Session::Http

Browse source
This commit is contained in:
Colin Kuskie 2010-11-22 09:28:14 -08:00
parent 8b6bbdb9f7
commit 995b04e7de
8 changed files with 33 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/Session/Http.t
View file

@ -20,8 +20,6 @@ use Data::Dumper;
use Test::More; # increment this value for each test you create
use Test::Deep;
plan tests => 40;
my $session = WebGUI::Test->session;
my $http = $session->http;
@ -100,7 +98,7 @@ $http->setCacheControl(undef);
####################################################
#
# setRedirect, getRedirectLocation
# setRedirect
#
####################################################
@ -108,7 +106,7 @@ $session->request->uri('/here/later');
$http->setRedirect('/here/now');
is($response->status, 302, 'setRedirect: sets HTTP status');
is($http->getRedirectLocation, '/here/now', 'setRedirect: redirect location');
is($response->location, '/here/now', 'setRedirect: redirect location');
$session->style->useEmptyStyle(1);
my $styled = $session->style->generateAdditionalHeadTags();
@ -414,6 +412,8 @@ is($http->sendHeader, undef, 'sendHeader returns undef when no request object is
ok $session->http->ifModifiedSince(WebGUI::Test->webguiBirthday - 5, 3600), '... epoch check, made true by maxCacheTimeout';
}
done_testing;
####################################################
#
# Utility functions