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

Update privilege test for the removal of status description.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-17 09:40:33 -07:00
parent f0e0ed328b
commit faf04f724c
1 changed files with 3 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
t/Session/Privilege.t
View file

@ -23,46 +23,40 @@ my @simpleTests = (
{ {
method => 'adminOnly', method => 'adminOnly',
status => 401, status => 401,
description => 'Admin Only',
titleCode => 35, titleCode => 35,
}, },
{ {
method => 'insufficient', method => 'insufficient',
status => 401, status => 401,
description => 'Insufficient Privileges',
titleCode => 37, titleCode => 37,
}, },
{ {
method => 'locked', method => 'locked',
status => 401, status => 401,
description => 'Insufficient Privileges',
titleCode => 37, titleCode => 37,
}, },
{ {
method => 'notMember', method => 'notMember',
status => 400, status => 400,
description => 'Not A Member',
titleCode => 345, titleCode => 345,
}, },
{ {
method => 'vitalComponent', method => 'vitalComponent',
status => 403, status => 403,
description => 'Vital Component',
titleCode => 40, titleCode => 40,
}, },
{ {
method => 'noAccess', method => 'noAccess',
status => 401, status => 401,
description => 'No Access',
titleCode => 37, titleCode => 37,
}, },
); );
my $num_tests = 1; my $num_tests = 1;
$num_tests += 4 * scalar @simpleTests; ##For each simple privilege validation $num_tests += 3 * scalar @simpleTests; ##For each simple privilege validation
$num_tests += 3; ##For noAccess as Visitor tests $num_tests += 2; ##For noAccess as Visitor tests
$num_tests += 4; ##For insufficient with noStyle=1 $num_tests += 3; ##For insufficient with noStyle=1
plan tests => $num_tests; plan tests => $num_tests;
@ -91,7 +85,6 @@ foreach my $test (@simpleTests) {
my $method = $test->{method}; my $method = $test->{method};
my $output = $privilege->$method; my $output = $privilege->$method;
is($session->http->getStatus(), $test->{status}, "$method: status code"); is($session->http->getStatus(), $test->{status}, "$method: status code");
is($session->http->getStatusDescription(), $test->{description}, "$method: description");
my $title = $i18n->get($test->{titleCode}); my $title = $i18n->get($test->{titleCode});
like($output, qr{<h1>$title</h1>}, "$method: correct title"); like($output, qr{<h1>$title</h1>}, "$method: correct title");
like($output, qr{^USERSTYLE}, "$method: renders in WebGUI User Style"); like($output, qr{^USERSTYLE}, "$method: renders in WebGUI User Style");
@ -106,7 +99,6 @@ foreach my $test (@simpleTests) {
my $output = $privilege->insufficient(1); my $output = $privilege->insufficient(1);
is($session->http->getStatus(), '401', 'insufficient: status code with Visitor'); is($session->http->getStatus(), '401', 'insufficient: status code with Visitor');
is($session->http->getStatusDescription(), 'Insufficient Privileges', 'insufficient: description with Visitor');
my $title = $i18n->get(37); my $title = $i18n->get(37);
unlike($output, qr{^USERSTYLE}, "insufficient: when noStyle is true the user style is not used"); unlike($output, qr{^USERSTYLE}, "insufficient: when noStyle is true the user style is not used");
like($output, qr{<h1>$title</h1>}, "insufficient: when noStyle is true the title is still okay"); like($output, qr{<h1>$title</h1>}, "insufficient: when noStyle is true the title is still okay");
@ -121,7 +113,6 @@ $session->user({userId=>1});
my $output = $privilege->noAccess; my $output = $privilege->noAccess;
is($session->http->getStatus(), '401', 'noAccess: status code with Visitor'); is($session->http->getStatus(), '401', 'noAccess: status code with Visitor');
is($session->http->getStatusDescription(), 'No Access', 'noAccess: description with Visitor');
##Is the auth screen returned, not validating the auth screen ##Is the auth screen returned, not validating the auth screen
is($output, WebGUI::Operation::Auth::www_auth($session, "init"), 'noAccess: visitor sees auth screen'); is($output, WebGUI::Operation::Auth::www_auth($session, "init"), 'noAccess: visitor sees auth screen');