upgrade.locale.test

<?php

/**
 * Upgrade test for locale.module.
 */
class LocaleUpgradePathTestCase extends UpgradePathTestCase {
  public static function getInfo() {
    return array(
      'name' => 'Locale upgrade path',
      'description' => 'Upgrade path tests for the Locale module.',
      'group' => 'Upgrade path',
    );
  }
  public function setUp() {

    // Path to the database dump files.
    $this->databaseDumpFiles = array(
      drupal_get_path('module', 'simpletest') . '/tests/upgrade/drupal-6.filled.database.php',
      drupal_get_path('module', 'simpletest') . '/tests/upgrade/drupal-6.locale.database.php',
    );
    parent::setUp();
    $this
      ->uninstallModulesExcept(array(
      'locale',
      'comment',
    ));
  }

  /**
   * Test a successful upgrade (no negotiation).
   */
  public function testLocaleUpgrade() {
    $this
      ->assertTrue($this
      ->performUpgrade(), 'The upgrade was completed successfully.');

    // The home page should be in French.
    $this
      ->assertPageInLanguage('', 'fr');

    // No prefixed page should exist.
    $this
      ->drupalGet('en');
    $this
      ->assertResponse(404);
    $this
      ->drupalGet('fr');
    $this
      ->assertResponse(404);
  }

  /**
   * Test an upgrade with path-based negotiation.
   */
  public function testLocaleUpgradePathDefault() {

    // LANGUAGE_NEGOTIATION_PATH_DEFAULT.
    $this
      ->variable_set('language_negotiation', 1);
    $this
      ->assertTrue($this
      ->performUpgrade(), 'The upgrade was completed successfully.');

    // The home page should be in French.
    $this
      ->assertPageInLanguage('', 'fr');

    // The language switcher block should be displayed.
    $this
      ->assertRaw('block-locale-language', 'The language switcher block is displayed.');

    // The French prefix should not be active because French is the default language.
    $this
      ->drupalGet('fr');
    $this
      ->assertResponse(404);

    // The English prefix should be active.
    $this
      ->assertPageInLanguage('en', 'en');
  }

  /**
   * Test an upgrade with path-based (with fallback) negotiation.
   */
  public function testLocaleUpgradePathFallback() {

    // LANGUAGE_NEGOTIATION_PATH.
    $this
      ->variable_set('language_negotiation', 2);

    // Set the language of the admin user to English.
    db_update('users')
      ->fields(array(
      'language' => 'en',
    ))
      ->condition('uid', 1)
      ->execute();
    $this
      ->assertTrue($this
      ->performUpgrade(), 'The upgrade was completed successfully.');

    // Both prefixes should be active.
    $this
      ->assertPageInLanguage('fr', 'fr');
    $this
      ->assertPageInLanguage('en', 'en');

    // The home page should be in the admin user language.
    $this
      ->assertPageInLanguage('', 'en');

    // The language switcher block should be displayed.
    $this
      ->assertRaw('block-locale-language', 'The language switcher block is displayed.');
  }

  /**
   * Test an upgrade with domain-based negotiation.
   */
  public function testLocaleUpgradeDomain() {

    // LANGUAGE_NEGOTIATION_DOMAIN.
    $this
      ->variable_set('language_negotiation', 3);
    $this
      ->assertTrue($this
      ->performUpgrade(), 'The upgrade was completed successfully.');

    // The home page should be in French.
    $this
      ->assertPageInLanguage('', 'fr');

    // The language switcher block should be displayed.
    $this
      ->assertRaw('block-locale-language', 'The language switcher block is displayed.');

    // The language switcher block should point to http://en.example.com.
    $language_links = $this
      ->xpath('//ul[contains(@class, :class)]/li/a', array(
      ':class' => 'language-switcher-locale-url',
    ));
    $found_english_link = FALSE;
    foreach ($language_links as $link) {
      if ((string) $link['href'] == 'http://en.example.com/') {
        $found_english_link = TRUE;
      }
    }
    $this
      ->assertTrue($found_english_link, 'The English link points to the correct domain.');

    // Both prefixes should be inactive.
    $this
      ->drupalGet('en');
    $this
      ->assertResponse(404);
    $this
      ->drupalGet('fr');
    $this
      ->assertResponse(404);
  }

  /**
   * Asserts that a page exists and is in the specified language.
   */
  public function assertPageInLanguage($path = NULL, $langcode) {
    if (isset($path)) {
      $this
        ->drupalGet($path);
    }
    if (!$this
      ->assertResponse(200)) {
      return FALSE;
    }
    if ($this
      ->parse()) {
      return $this
        ->assertIdentical($langcode, (string) $this->elements['xml:lang']);
    }
    else {
      return FALSE;
    }
  }

}