Test adding, renaming and deleting roles.
function testRoleAdministration() {
$this
->drupalLogin($this->admin_user);
// Test adding a role. (In doing so, we use a role name that happens to
// correspond to an integer, to test that the role administration pages
// correctly distinguish between role names and IDs.)
$role_name = '123';
$edit = array(
'role[name]' => $role_name,
'role[rid]' => $role_name,
);
$this
->drupalPost('admin/people/roles', $edit, t('Add role'));
$this
->assertText(t('The role has been added.'), 'The role has been added.');
$role = user_role_load($role_name);
$this
->assertTrue(is_object($role), 'The role was successfully retrieved from the database.');
// Try adding a duplicate role.
$this
->drupalPost(NULL, $edit, t('Add role'));
$this
->assertRaw(t('The machine-readable name is already in use. It must be unique.'), 'Duplicate role warning displayed.');
// Test renaming a role.
$old_name = $role_name;
$role_name = '456';
$edit = array(
'role[name]' => $role_name,
);
$this
->drupalPost("admin/people/roles/edit/{$role->rid}", $edit, t('Save role'));
$this
->assertText(t('The role has been renamed.'), 'The role has been renamed.');
$new_role = user_role_load($old_name);
$this
->assertEqual($new_role->name, $role_name, 'The role name has been successfully changed.');
// Test deleting a role.
$this
->drupalPost("admin/people/roles/edit/{$role->rid}", NULL, t('Delete role'));
$this
->drupalPost(NULL, NULL, t('Delete'));
$this
->assertText(t('The role has been deleted.'), 'The role has been deleted');
$this
->assertNoLinkByHref("admin/people/roles/edit/{$role->rid}", 'Role edit link removed.');
$this
->assertFalse(user_role_load($role_name), 'A deleted role can no longer be loaded.');
// Make sure that the system-defined roles can be edited via the user
// interface.
$this
->drupalGet('admin/people/roles/edit/' . DRUPAL_ANONYMOUS_RID);
$this
->assertResponse(200, 'Access granted when trying to edit the built-in anonymous role.');
$this
->assertNoText(t('Delete role'), 'Delete button for the anonymous role is not present.');
$this
->drupalGet('admin/people/roles/edit/' . DRUPAL_AUTHENTICATED_RID);
$this
->assertResponse(200, 'Access granted when trying to edit the built-in authenticated role.');
$this
->assertNoText(t('Delete role'), 'Delete button for the authenticated role is not present.');
}