function PathAliasTest::testAdminAlias in Zircon Profile 8

Same name and namespace in other branches

1. 8.0 core/modules/path/src/Tests/PathAliasTest.php \Drupal\path\Tests\PathAliasTest::testAdminAlias()

Tests alias functionality through the admin interfaces.

File

core/modules/path/src/Tests/PathAliasTest.php, line 73

Contains \Drupal\path\Tests\PathAliasTest.

Class

PathAliasTest

Add, edit, delete, and change alias and verify its consistency in the database.

Namespace

Drupal\path\Tests

Code

function testAdminAlias() {

  // Create test node.
  $node1 = $this
    ->drupalCreateNode();

  // Create alias.
  $edit = array();
  $edit['source'] = '/node/' . $node1
    ->id();
  $edit['alias'] = '/' . $this
    ->getRandomGenerator()
    ->word(8);
  $this
    ->drupalPostForm('admin/config/search/path/add', $edit, t('Save'));

  // Confirm that the alias works.
  $this
    ->drupalGet($edit['alias']);
  $this
    ->assertText($node1
    ->label(), 'Alias works.');
  $this
    ->assertResponse(200);

  // Confirm that the alias works in a case-insensitive way.
  $this
    ->assertTrue(ctype_lower(ltrim($edit['alias'], '/')));
  $this
    ->drupalGet($edit['alias']);
  $this
    ->assertText($node1
    ->label(), 'Alias works lower case.');
  $this
    ->assertResponse(200);
  $this
    ->drupalGet(Unicode::strtoupper($edit['alias']));
  $this
    ->assertText($node1
    ->label(), 'Alias works upper case.');
  $this
    ->assertResponse(200);

  // Change alias to one containing "exotic" characters.
  $pid = $this
    ->getPID($edit['alias']);
  $previous = $edit['alias'];
  $edit['alias'] = '/alias' . "- ._~!\$'\"()*@[]?&+%#,;=:" . "%23%25%26%2B%2F%3F" . "中國書۞";
  $connection = Database::getConnection();
  if ($connection
    ->databaseType() != 'sqlite') {

    // When using LIKE for case-insensitivity, the SQLite driver is
    // currently unable to find the upper-case versions of non-ASCII
    // characters.
    // @todo fix this in https://www.drupal.org/node/2607432
    $edit['alias'] .= "ïвβéø";
  }
  $this
    ->drupalPostForm('admin/config/search/path/edit/' . $pid, $edit, t('Save'));

  // Confirm that the alias works.
  $this
    ->drupalGet(Unicode::strtoupper($edit['alias']));
  $this
    ->assertText($node1
    ->label(), 'Changed alias works.');
  $this
    ->assertResponse(200);
  $this->container
    ->get('path.alias_manager')
    ->cacheClear();

  // Confirm that previous alias no longer works.
  $this
    ->drupalGet($previous);
  $this
    ->assertNoText($node1
    ->label(), 'Previous alias no longer works.');
  $this
    ->assertResponse(404);

  // Create second test node.
  $node2 = $this
    ->drupalCreateNode();

  // Set alias to second test node.
  $edit['source'] = '/node/' . $node2
    ->id();

  // leave $edit['alias'] the same
  $this
    ->drupalPostForm('admin/config/search/path/add', $edit, t('Save'));

  // Confirm no duplicate was created.
  $this
    ->assertRaw(t('The alias %alias is already in use in this language.', array(
    '%alias' => $edit['alias'],
  )), 'Attempt to move alias was rejected.');
  $edit_upper = $edit;
  $edit_upper['alias'] = Unicode::strtoupper($edit['alias']);
  $this
    ->drupalPostForm('admin/config/search/path/add', $edit_upper, t('Save'));
  $this
    ->assertRaw(t('The alias %alias could not be added because it is already in use in this language with different capitalization: %stored_alias.', [
    '%alias' => $edit_upper['alias'],
    '%stored_alias' => $edit['alias'],
  ]), 'Attempt to move upper-case alias was rejected.');

  // Delete alias.
  $this
    ->drupalPostForm('admin/config/search/path/edit/' . $pid, array(), t('Delete'));
  $this
    ->drupalPostForm(NULL, array(), t('Confirm'));

  // Confirm that the alias no longer works.
  $this
    ->drupalGet($edit['alias']);
  $this
    ->assertNoText($node1
    ->label(), 'Alias was successfully deleted.');
  $this
    ->assertResponse(404);

  // Create a really long alias.
  $edit = array();
  $edit['source'] = '/node/' . $node1
    ->id();
  $alias = '/' . $this
    ->randomMachineName(128);
  $edit['alias'] = $alias;

  // The alias is shortened to 50 characters counting the ellipsis.
  $truncated_alias = substr($alias, 0, 47);
  $this
    ->drupalPostForm('admin/config/search/path/add', $edit, t('Save'));
  $this
    ->assertNoText($alias, 'The untruncated alias was not found.');

  // The 'truncated' alias will always be found.
  $this
    ->assertText($truncated_alias, 'The truncated alias was found.');

  // Create third test node.
  $node3 = $this
    ->drupalCreateNode();

  // Create absolute path alias.
  $edit = array();
  $edit['source'] = '/node/' . $node3
    ->id();
  $node3_alias = '/' . $this
    ->randomMachineName(8);
  $edit['alias'] = $node3_alias;
  $this
    ->drupalPostForm('admin/config/search/path/add', $edit, t('Save'));

  // Create fourth test node.
  $node4 = $this
    ->drupalCreateNode();

  // Create alias with trailing slash.
  $edit = array();
  $edit['source'] = '/node/' . $node4
    ->id();
  $node4_alias = '/' . $this
    ->randomMachineName(8);
  $edit['alias'] = $node4_alias . '/';
  $this
    ->drupalPostForm('admin/config/search/path/add', $edit, t('Save'));

  // Confirm that the alias with trailing slash is not found.
  $this
    ->assertNoText($edit['alias'], 'The absolute alias was not found.');

  // The alias without trailing flash is found.
  $this
    ->assertText(trim($edit['alias'], '/'), 'The alias without trailing slash was found.');

  // Update an existing alias to point to a different source.
  $pid = $this
    ->getPID($node4_alias);
  $edit = [];
  $edit['alias'] = $node4_alias;
  $edit['source'] = '/node/' . $node2
    ->id();
  $this
    ->drupalPostForm('admin/config/search/path/edit/' . $pid, $edit, t('Save'));
  $this
    ->assertText('The alias has been saved.');
  $this
    ->drupalGet($edit['alias']);
  $this
    ->assertNoText($node4
    ->label(), 'Previous alias no longer works.');
  $this
    ->assertText($node2
    ->label(), 'Alias works.');
  $this
    ->assertResponse(200);

  // Update an existing alias to use a duplicate alias.
  $pid = $this
    ->getPID($node3_alias);
  $edit = [];
  $edit['alias'] = $node4_alias;
  $edit['source'] = '/node/' . $node3
    ->id();
  $this
    ->drupalPostForm('admin/config/search/path/edit/' . $pid, $edit, t('Save'));
  $this
    ->assertRaw(t('The alias %alias is already in use in this language.', array(
    '%alias' => $edit['alias'],
  )));

  // Create an alias without a starting slash.
  $node5 = $this
    ->drupalCreateNode();
  $edit = array();
  $edit['source'] = 'node/' . $node5
    ->id();
  $node5_alias = $this
    ->randomMachineName(8);
  $edit['alias'] = $node5_alias . '/';
  $this
    ->drupalPostForm('admin/config/search/path/add', $edit, t('Save'));
  $this
    ->assertUrl('admin/config/search/path/add');
  $this
    ->assertText('The source path has to start with a slash.');
  $this
    ->assertText('The alias path has to start with a slash.');
}