public function SessionLimitPreventTestCase::testSessionLimitRoles in Session Limit 6.2

Same name and namespace in other branches

1. 8 tests/session_limit.test \SessionLimitPreventTestCase::testSessionLimitRoles()
2. 7.2 tests/session_limit.test \SessionLimitPreventTestCase::testSessionLimitRoles()
3. 2.x tests/session_limit.test \SessionLimitPreventTestCase::testSessionLimitRoles()

Checks that the session limit is returned correctly by a role.

File

tests/session_limit.test, line 556

Simpletest tests for session_limit.

Class

SessionLimitPreventTestCase

Session limit functionality when behaviour is to prevent login at limit.

Code

public function testSessionLimitRoles() {

  // Create a test user.
  $user = $this
    ->drupalCreateUser();
  $roles = $this
    ->sessionLimitMakeRoles($user);

  // Set the session limits for the roles.
  variable_set('session_limit_rid_' . $roles[0]->rid, 2);
  variable_set('session_limit_rid_' . $roles[1]->rid, 4);
  variable_set('session_limit_rid_' . $roles[2]->rid, 3);

  // Set the default session limit.
  variable_set('session_limit_max', 1);

  // Check if the user has access to 4 sessions.
  $this
    ->assertSessionPrevent(4, $user);
}