<?php

namespace Drupal\Tests\porterstemmer\Functional;

use Drupal\search\Tests\SearchTestBase;
use Drupal\Core\Language\LanguageInterface;
use Drupal\field\Entity\FieldStorageConfig;
use Drupal\language\Entity\ConfigurableLanguage;

/**
 * Tests that EN language search terms are stemmed and return stemmed content.
 *
 * @group porterstemmer
 */
class LangCodeTest extends SearchTestBase {

  /**
   * Modules to install.
   *
   * @var array
   */
  public static $modules = array('search', 'porterstemmer', 'language');

  /**
   * A user with permission to administer nodes.
   *
   * @var \Drupal\user\UserInterface
   */
  protected $testUser;

  /**
   * An array of content for testing purposes.
   *
   * @var string[]
   */
  protected $test_data = array(
    'First Page' => 'I walk through the streets, looking around for trouble.',
    'Second Page' => 'I walked home from work today.',
    'Third Page' => 'I am always walking everywhere.',
  );

  /**
   * An array of search terms.
   *
   * @var string[]
   */
  protected $searches = array(
    'walk',
    'walked',
    'walking',
  );

  /**
   * An array of nodes created for testing purposes.
   *
   * @var \Drupal\node\NodeInterface[]
   */
  protected $nodes;

  /**
   * {@inheritdoc}
   */
  protected function setUp() {
    parent::setUp();

    $this->testUser = $this->drupalCreateUser(array(
      'search content',
      'access content',
      'administer nodes',
      'access site reports',
      'use advanced search',
      'administer languages',
      'access administration pages',
      'administer site configuration',
    ));
    $this->drupalLogin($this->testUser);

    // Add a new language.
    ConfigurableLanguage::createFromLangcode('fr')->save();

    // Make the body field translatable. The title is already translatable by
    // definition.
    $field_storage = FieldStorageConfig::loadByName('node', 'body');
    $field_storage->setTranslatable(TRUE);
    $field_storage->save();

    // Create EN language nodes.
    foreach ($this->test_data as $title => $body) {
      $info = array(
        'title' => $title . ' (EN)',
        'body' => array(array('value' => $body)),
        'type' => 'page',
        'langcode' => 'en',
      );
      $this->nodes[$title] = $this->drupalCreateNode($info);
    }

    // Create non-EN nodes.
    foreach ($this->test_data as $title => $body) {
      $info = array(
        'title' => $title . ' (FR)',
        'body' => array(array('value' => $body)),
        'type' => 'page',
        'langcode' => 'fr',
      );
      $this->nodes[$title] = $this->drupalCreateNode($info);
    }

    // Create language-unspecified nodes.
    foreach ($this->test_data as $title => $body) {
      $info = array(
        'title' => $title . ' (UND)',
        'body' => array(array('value' => $body)),
        'type' => 'page',
        'langcode' => LanguageInterface::LANGCODE_NOT_SPECIFIED,
      );
      $this->nodes[$title] = $this->drupalCreateNode($info);
    }

    // Run cron to ensure the content is indexed.
    $this->cronRun();
    $this->drupalGet('admin/reports/dblog');
    $this->assertText(t('Cron run completed'), 'Log shows cron run completed');
  }

  /**
   * Test that search variations return English language results.
   */
  protected function testStemSearching() {

    foreach ($this->searches as $search) {
      $this->drupalPostForm('search/node', array('keys' => $search), t('Search'));

      // Verify that all English-language test node variants show up in results.
      foreach ($this->test_data as $title => $body) {
        $this->assertText($title . ' (EN)', format_string('Search for %search returns English-language node with body %body', array('%search' => $search, '%body' => $body)));
      }

      // Check for results by language.
      switch ($search) {
        case 'walk':
          $this->assertNoText('Second Page (FR)', format_string('Search for %search does not show stemmed non-English results.', array('%search' => $search)));
          $this->assertNoText('Second Page (UND)', format_string('Search for %search does show stemmed language-unspecified results.', array('%search' => $search)));
          break;

        case 'walked':
          $this->assertNoText('Second Page (FR)', format_string('Search for %search does not show stemmed non-English results.', array('%search' => $search)));
          $this->assertNoText('Second Page (UND)', format_string('Search for %search does not show stemmed language-unspecified results.', array('%search' => $search)));
          break;

        case 'walking':
          $this->assertText('First Page (FR)', format_string('Search for %search does show matching non-English results.', array('%search' => $search)));
          $this->assertText('First Page (UND)', format_string('Search for %search does show matching language-unspecified results.', array('%search' => $search)));
          break;

      }
    }
  }

}