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

beginning of Privilege test

Browse source
This commit is contained in:
Colin Kuskie 2006-10-18 03:32:40 +00:00
parent e396eb9e31
commit eef214ebb6
1 changed files with 68 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

68
t/Session/Privilege.t Normal file
View file

@ -0,0 +1,68 @@
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use FindBin;
use strict;
use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Session;
use Test::More; # increment this value for each test you create
use Test::Deep;
my $num_tests = 3;
plan tests => $num_tests;
my $session = WebGUI::Test->session;
# put your tests here
my $privilege = $session->privilege;
my ($versionTag, $userTemplate) = setup_assets($session);
isa_ok($privilege, 'WebGUI::Session::Privilege', 'session has correct object type');
##Override the original user style template to make verification easier
my $origUserStyle = $session->setting->get('userFunctionStyleId');
$session->setting->set('userFunctionStyleId', $userTemplate->getId);
my $adminOnly = $privilege->adminOnly;
is($session->http->getStatus(), '401', 'adminOnly: status set to 401');
is($session->http->getStatusDescription(), 'Admin Only', 'adminOnly: description set to Admin Only');
sub setup_assets {
my $session = shift;
my $importNode = WebGUI::Asset->getImportNode($session);
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Session Style test"});
my $properties = {
title => 'user template for printing',
className => 'WebGUI::Asset::Template',
url => 'user_style_printable',
namespace => 'Style',
##Note, at this point
template => "<tmpl_var body.content>",
id => 'printableUser0Template',
# '1234567890123456789012'
};
my $userTemplate = $importNode->addChild($properties, $properties->{id});
return ($versionTag, $userTemplate);
}
END {
$session->setting->set('userFunctionStyleId', $origUserStyle);
if (defined $versionTag and ref $versionTag eq 'WebGUI::VersionTag') {
$versionTag->rollback;
}
}