From eca9729d94e4d705c3106c712d6b03625cc4f382 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 17 Sep 2008 16:18:01 +0000
Subject: [PATCH] update Session/Http to match altered code

---
 t/Session/Http.t | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/t/Session/Http.t b/t/Session/Http.t
index 78b01dae5..6c15cc770 100644
--- a/t/Session/Http.t
+++ b/t/Session/Http.t
@@ -23,7 +23,7 @@ use Data::Dumper;
 use Test::More; # increment this value for each test you create
 use Test::Deep;
 
-my $num_tests = 52;
+my $num_tests = 53;
 
 plan tests => $num_tests;
  
@@ -70,10 +70,13 @@ is($http->getStatusDescription, 'packets are great', 'getStatusDescription: retu
 ####################################################
 
 $http->setStatus('200');
-is($http->isRedirect, '', 'isRedirect: is not');
+ok(!$http->isRedirect, 'isRedirect: 200 is not');
+
+$http->setStatus('301');
+ok($http->isRedirect, 'isRedirect: 301 is');
 
 $http->setStatus('302');
-is($http->isRedirect, 1, 'isRedirect: is too');
+ok($http->isRedirect, 'isRedirect: 302 is too');
 $http->setStatus('200');
 
 ####################################################
@@ -216,7 +219,7 @@ $session->{_request} = $request;
 
 $http->setRedirect('/here/there');
 $http->sendHeader;
-is($request->status, 301, 'sendHeader as redirect: status set to 301');
+is($request->status, 302, 'sendHeader as redirect: status set to 301');
 is_deeply($request->headers_out->fetch, {'Location' => '/here/there'}, 'sendHeader as redirect: location set');
 
 ####################################################