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

update test to work with getStatusDescription

Browse source
This commit is contained in:
Colin Kuskie 2006-10-16 16:09:15 +00:00
parent acaa0a0e20
commit 276a2aa99d
1 changed files with 6 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
t/Session/Http.t
View file

@ -17,7 +17,7 @@ use WebGUI::Session;
use Test::More; # increment this value for each test you create use Test::More; # increment this value for each test you create
my $num_tests = 8; my $num_tests = 6;
plan tests => $num_tests; plan tests => $num_tests;
@ -31,23 +31,17 @@ isa_ok($http, 'WebGUI::Session::Http', 'session has correct object type');
$http->setStatus('123'); $http->setStatus('123');
is($http->getStatus, '123', 'getStatus: returns correct code in scalar context'); is($http->getStatus, '123', 'getStatus: returns correct code');
is($http->getStatusDescription, 'OK', 'getStatusDescription: returns default description via getStatus');
my ($status, $description) = $http->getStatus;
is($status, '123', 'getStatus: returns correct code');
is($description, 'OK', 'getStatus: default description returned');
$http->setStatus(''); $http->setStatus('');
($status, $description) = $http->getStatus; is($http->getStatusDescription, 'OK', 'getStatusDescription: returns default description via itself');
is($status, '200', 'getStatus: returns default code'); is($http->getStatus, '200', 'getStatus: returns default code');
is($description, 'OK', 'getStatus: default description returned');
$http->setStatus('', 'packets are great'); $http->setStatus('', 'packets are great');
($status, $description) = $http->getStatus; is($http->getStatusDescription, 'packets are great', 'getStatusDescription: returns correct description');
is($status, '200', 'getStatus: returns default code');
is($description, 'packets are great', 'getStatus: default description returned');
END { END {
} }