Remove getRedirectLocation and setRedirectLocation from Session::Http

t/Asset/Asset.t

@@ -859,26 +859,26 @@ is $trashedAsset->get('state'), 'trash',     'checkView setup: trashed an asset'
 is $clippedAsset->get('state'), 'clipboard', '... clipped an asset';
 
 $session->switchAdminOff;
-$session->http->setRedirectLocation('');
+$session->response->location('');
 $session->response->status(200, 'OK');
 
 $trashedAsset->checkView();
 is $session->response->status, 410, '... status set to 410 for trashed asset';
-is $session->http->getRedirectLocation, '', '... no redirect set';
+is $session->response->location, '', '... no redirect set';
 
 $session->response->status(200, 'OK');
 $clippedAsset->checkView();
 is $session->response->status, 410, '... status set to 410 for cut asset';
-is $session->http->getRedirectLocation, '', '... no redirect set';
+is $session->response->location, '', '... no redirect set';
 
 $session->switchAdminOn;
 $session->response->status(200, 'OK');
 is $trashedAsset->checkView(), 'chunked', '... returns "chunked" when admin is on for trashed asset';
-is $session->http->getRedirectLocation, $trashedAsset->getUrl('func=manageTrash'), '... trashed asset sets redirect to manageTrash';
+is $session->response->location, $trashedAsset->getUrl('func=manageTrash'), '... trashed asset sets redirect to manageTrash';
 
-$session->http->setRedirectLocation('');
+$session->response->location('');
 is $clippedAsset->checkView(), 'chunked', 'checkView: returns "chunked" when admin is on for cut asset';
-is $session->http->getRedirectLocation, $clippedAsset->getUrl('func=manageClipboard'), '... cut asset sets redirect to manageClipboard';
+is $session->response->location, $clippedAsset->getUrl('func=manageClipboard'), '... cut asset sets redirect to manageClipboard';
 
 ##Return an array of hashrefs.  Each hashref describes a test
 

t/Asset/File.t

@@ -132,9 +132,9 @@ is( $newRev->getStorageLocation->getFileContentsAsScalar('.wgaccess'), undef, "w
 
 $session->config->set('enableStreamingUploads', '0');
 $asset->www_view;
-is($session->http->getRedirectLocation, $storage->getUrl('someScalarFile.txt'), 'www_view: sets a redirect');
+is($session->response->location, $storage->getUrl('someScalarFile.txt'), 'www_view: sets a redirect');
 
 $session->config->set('enableStreamingUploads', '1');
-$session->http->setRedirectLocation('');
+$session->response->location('');
 $asset->www_view;
-is($session->http->getRedirectLocation, '', '... redirect not set when enableStreamingUploads is set');
+is($session->response->location, '', '... redirect not set when enableStreamingUploads is set');

t/Auth.t

@@ -64,7 +64,7 @@ WebGUI::Test->addToCleanup(sub {
 });
 
 is(
-    $createAccountSession->http->getRedirectLocation, 'REDIRECT_URL',
+    $createAccountSession->response->location, 'REDIRECT_URL',
     "returnUrl field is used to set redirect after createAccountSave",
 );
 
@@ -83,7 +83,7 @@ $session->setting->set('showMessageOnLogin', 0);
 $output         = $auth->login;
 
 is(
-    $loginSession->http->getRedirectLocation, 'REDIRECT_LOGIN_URL',
+    $loginSession->response->location, 'REDIRECT_LOGIN_URL',
     "returnUrl field is used to set redirect after login",
 );
 is $output, undef, 'login returns undef when showMessageOnLogin is false';

t/Auth/Twitter.t

@@ -68,7 +68,7 @@ isa_ok( $nt, 'Net::Twitter' );
 is( $auth->www_login, "redirect", "www_login always returns redirect" );
 ok( $session->scratch->get('AuthTwitterToken'), 'auth token gets set to scratch' );
 ok( $session->scratch->get('AuthTwitterTokenSecret'), 'auth token secret gets set to scratch' );
-like( $session->http->getRedirectLocation, qr/twitter[.]com/, "redirect to twitter.com" );
+like( $session->response->location, qr/twitter[.]com/, "redirect to twitter.com" );
 
 # www_callback
 # I have no idea how to test this...

t/Session/Http.t

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

t/Session/Url.t

@@ -447,7 +447,7 @@ ok( ! $session->url->forceSecureConnection('/test/url'), 'all conditions must be
 ##Validate the HTTP object state before we start
 $session->response->status('200');
 is($session->response->status, 200, 'http status is okay, 200');
-is($session->http->getRedirectLocation, undef, 'redirect location is empty');
+is($session->response->location, undef, 'redirect location is empty');
 
 $env->{'psgi.url_scheme'} = "http";
 
@@ -456,14 +456,14 @@ $secureUrl =~ s/http:/https:/;
 
 ok($session->url->forceSecureConnection('/foo/bar/baz/buz'), 'forced secure connection');
 is($session->response->status, 302, 'http status set to redirect, 302');
-is($session->http->getRedirectLocation, $secureUrl, 'redirect location set to proper passed in URL with SSL and sitename added');
+is($session->response->location, $secureUrl, 'redirect location set to proper passed in URL with SSL and sitename added');
 
 $session->response->status('200', 'OK');
-$session->http->setRedirectLocation(undef);
+$session->response->location(undef);
 
 $secureUrl = $session->url->getSiteURL . $session->url->page();
 $secureUrl =~ s/http:/https:/;
 ok($session->url->forceSecureConnection(), 'forced secure connection with no url param');
 ok($session->http->isRedirect, '... and redirect status code was set');
-is($session->http->getRedirectLocation, $secureUrl, '... and redirect status code was set');
+is($session->response->location, $secureUrl, '... and redirect status code was set');