Ready for 7.10.29 development.

2013-03-20 21:38:23 -07:00 · 2013-03-20 21:38:23 -07:00 · c806f99b7b
commit c806f99b7b
4236 changed files with 1217679 additions and 0 deletions
--- a/t/Session/Privilege.t
+++ b/t/Session/Privilege.t
@ -0,0 +1,149 @@
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2009 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 WebGUI::International;
+
+use Test::More; # increment this value for each test you create
+use Test::Deep;
+
+my @simpleTests = (
+	{
+		method => 'adminOnly',
+		status => 401,
+		description => 'Admin Only',
+		titleCode => 35,
+	},
+	{
+		method => 'insufficient',
+		status => 401,
+		description => 'Insufficient Privileges',
+		titleCode => 37,
+	},
+	{
+		method => 'locked',
+		status => 401,
+		description => 'Insufficient Privileges',
+		titleCode => 37,
+	},
+	{
+		method => 'notMember',
+		status => 400,
+		description => 'Not A Member',
+		titleCode => 345,
+	},
+	{
+		method => 'vitalComponent',
+		status => 403,
+		description => 'Vital Component',
+		titleCode => 40,
+	},
+	{
+		method => 'noAccess',
+		status => 401,
+		description => 'No Access',
+		titleCode => 37,
+	},
+
+);
+
+my $num_tests = 1;
+$num_tests += 4 * scalar @simpleTests; ##For each simple privilege validation
+$num_tests += 3; ##For noAccess as Visitor tests
+$num_tests += 4; ##For insufficient with noStyle=1
+
+plan tests => $num_tests;
+ 
+my $session = WebGUI::Test->session;
+ 
+# put your tests here
+
+my $privilege = $session->privilege;
+
+my ($versionTag, $userTemplate) = setup_assets($session);
+WebGUI::Test->addToCleanup($versionTag);
+
+isa_ok($privilege, 'WebGUI::Session::Privilege', 'session has correct object type');
+
+##Override the original user style template to make verification easier
+$session->setting->set('userFunctionStyleId', $userTemplate->getId);
+
+#One of the tests has different behavior depending on how it is called.
+#If the user is visitor, it passes them to the login screen. We'll set
+#the user to a different user to do simple testing on that method, then
+#we'll come back and do the specialized testing.
+$session->user({userId=>3});
+
+my $i18n = WebGUI::International->new($session);
+
+foreach my $test (@simpleTests) {
+	my $method = $test->{method};
+	my $output = $privilege->$method;
+	is($session->http->getStatus(), $test->{status}, "$method: status code");
+	is($session->http->getStatusDescription(), $test->{description}, "$method: description");
+	my $title = $i18n->get($test->{titleCode});
+	like($output, qr{<h1>$title</h1>}, "$method: correct title");
+	like($output, qr{^USERSTYLE}, "$method: renders in WebGUI User Style");
+}
+
+
+####################################################
+#
+# insufficient with empty style
+#
+####################################################
+
+my $output = $privilege->insufficient(1);
+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);
+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");
+
+####################################################
+#
+# noAccess when the user is the Visitor
+#
+####################################################
+
+$session->user({userId=>1});
+
+my $output = $privilege->noAccess;
+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($output, WebGUI::Operation::Auth::www_auth($session, "init"), 'noAccess: visitor sees auth screen');
+
+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',
+		parser    => 'WebGUI::Asset::Template::HTMLTemplate',
+		url => 'user_style_printable',
+		namespace => 'Style',
+		##Note, at this point 
+		template => "USERSTYLE:<tmpl_var body.content>",
+		id => 'printableUser0Template',
+		#     '1234567890123456789012'
+	};
+	my $userTemplate = $importNode->addChild($properties, $properties->{id});
+	return ($versionTag, $userTemplate);
+}
+
+#vim:ft=perl