public function PathAliasTest::testAdminAlias in Drupal 9

Same name and namespace in other branches

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

Tests alias functionality through the admin interfaces.

File

core/modules/path/tests/src/Functional/PathAliasTest.php, line 80

Class

PathAliasTest

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

Namespace

Drupal\Tests\path\Functional

Code

public function testAdminAlias() {

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

  // Create alias.
  $edit = [];
  $edit['path[0][value]'] = '/node/' . $node1
    ->id();
  $edit['alias[0][value]'] = '/' . $this
    ->getRandomGenerator()
    ->word(8);
  $this
    ->drupalGet('admin/config/search/path/add');
  $this
    ->submitForm($edit, 'Save');

  // Confirm that the alias works.
  $this
    ->drupalGet($edit['alias[0][value]']);
  $this
    ->assertSession()
    ->pageTextContains($node1
    ->label());
  $this
    ->assertSession()
    ->statusCodeEquals(200);

  // Confirm that the alias works in a case-insensitive way.
  $this
    ->assertTrue(ctype_lower(ltrim($edit['alias[0][value]'], '/')));
  $this
    ->drupalGet($edit['alias[0][value]']);

  // Lower case.
  $this
    ->assertSession()
    ->pageTextContains($node1
    ->label());
  $this
    ->assertSession()
    ->statusCodeEquals(200);
  $this
    ->drupalGet(mb_strtoupper($edit['alias[0][value]']));

  // Upper case.
  $this
    ->assertSession()
    ->pageTextContains($node1
    ->label());
  $this
    ->assertSession()
    ->statusCodeEquals(200);

  // Change alias to one containing "exotic" characters.
  $pid = $this
    ->getPID($edit['alias[0][value]']);
  $previous = $edit['alias[0][value]'];

  // Lower-case letters.
  $edit['alias[0][value]'] = '/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
    // cSpell:disable-next-line
    $edit['alias[0][value]'] .= "ïвβéø";
  }
  $this
    ->drupalGet('admin/config/search/path/edit/' . $pid);
  $this
    ->submitForm($edit, 'Save');

  // Confirm that the alias works.
  $this
    ->drupalGet(mb_strtoupper($edit['alias[0][value]']));
  $this
    ->assertSession()
    ->pageTextContains($node1
    ->label());
  $this
    ->assertSession()
    ->statusCodeEquals(200);
  $this->container
    ->get('path_alias.manager')
    ->cacheClear();

  // Confirm that previous alias no longer works.
  $this
    ->drupalGet($previous);
  $this
    ->assertSession()
    ->pageTextNotContains($node1
    ->label());
  $this
    ->assertSession()
    ->statusCodeEquals(404);

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

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

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

  // Confirm no duplicate was created.
  $this
    ->assertSession()
    ->pageTextContains("The alias {$edit['alias[0][value]']} is already in use in this language.");
  $edit_upper = $edit;
  $edit_upper['alias[0][value]'] = mb_strtoupper($edit['alias[0][value]']);
  $this
    ->drupalGet('admin/config/search/path/add');
  $this
    ->submitForm($edit_upper, 'Save');
  $this
    ->assertSession()
    ->pageTextContains("The alias {$edit_upper['alias[0][value]']} could not be added because it is already in use in this language with different capitalization: {$edit['alias[0][value]']}.");

  // Delete alias.
  $this
    ->drupalGet('admin/config/search/path/edit/' . $pid);
  $this
    ->clickLink('Delete');
  $this
    ->assertSession()
    ->pageTextContains("Are you sure you want to delete the URL alias {$edit['alias[0][value]']}?");
  $this
    ->submitForm([], 'Delete');

  // Confirm that the alias no longer works.
  $this
    ->drupalGet($edit['alias[0][value]']);
  $this
    ->assertSession()
    ->pageTextNotContains($node1
    ->label());
  $this
    ->assertSession()
    ->statusCodeEquals(404);

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

  // The alias is shortened to 50 characters counting the ellipsis.
  $truncated_alias = substr($alias, 0, 47);
  $this
    ->drupalGet('admin/config/search/path/add');
  $this
    ->submitForm($edit, 'Save');

  // The untruncated alias should not be found.
  $this
    ->assertSession()
    ->pageTextNotContains($alias);

  // The 'truncated' alias will always be found.
  $this
    ->assertSession()
    ->pageTextContains($truncated_alias);

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

  // Create absolute path alias.
  $edit = [];
  $edit['path[0][value]'] = '/node/' . $node3
    ->id();
  $node3_alias = '/' . $this
    ->randomMachineName(8);
  $edit['alias[0][value]'] = $node3_alias;
  $this
    ->drupalGet('admin/config/search/path/add');
  $this
    ->submitForm($edit, 'Save');

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

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

  // Confirm that the alias with trailing slash is not found.
  $this
    ->assertSession()
    ->pageTextNotContains($edit['alias[0][value]']);

  // The alias without trailing flash is found.
  $this
    ->assertSession()
    ->pageTextContains(trim($edit['alias[0][value]'], '/'));

  // Update an existing alias to point to a different source.
  $pid = $this
    ->getPID($node4_alias);
  $edit = [];
  $edit['alias[0][value]'] = $node4_alias;
  $edit['path[0][value]'] = '/node/' . $node2
    ->id();
  $this
    ->drupalGet('admin/config/search/path/edit/' . $pid);
  $this
    ->submitForm($edit, 'Save');
  $this
    ->assertSession()
    ->pageTextContains('The alias has been saved.');
  $this
    ->drupalGet($edit['alias[0][value]']);

  // Previous alias should no longer work.
  $this
    ->assertSession()
    ->pageTextNotContains($node4
    ->label());

  // Alias should work.
  $this
    ->assertSession()
    ->pageTextContains($node2
    ->label());
  $this
    ->assertSession()
    ->statusCodeEquals(200);

  // Update an existing alias to use a duplicate alias.
  $pid = $this
    ->getPID($node3_alias);
  $edit = [];
  $edit['alias[0][value]'] = $node4_alias;
  $edit['path[0][value]'] = '/node/' . $node3
    ->id();
  $this
    ->drupalGet('admin/config/search/path/edit/' . $pid);
  $this
    ->submitForm($edit, 'Save');
  $this
    ->assertSession()
    ->pageTextContains("The alias {$edit['alias[0][value]']} is already in use in this language.");

  // Create an alias without a starting slash.
  $node5 = $this
    ->drupalCreateNode();
  $edit = [];
  $edit['path[0][value]'] = 'node/' . $node5
    ->id();
  $node5_alias = $this
    ->randomMachineName(8);
  $edit['alias[0][value]'] = $node5_alias . '/';
  $this
    ->drupalGet('admin/config/search/path/add');
  $this
    ->submitForm($edit, 'Save');
  $this
    ->assertSession()
    ->addressEquals('admin/config/search/path/add');
  $this
    ->assertSession()
    ->pageTextContains('The source path has to start with a slash.');
  $this
    ->assertSession()
    ->pageTextContains('The alias path has to start with a slash.');
}