class SettingsTest

class SettingsTest extends UnitTestCase {

  /**
   * Simple settings array to test against.
   *
   * @var array
   */
  protected $config = [];

  /**
   * The class under test.
   *
   * @var \Drupal\Core\Site\Settings
   */
  protected $settings;

  /**
   * @covers ::__construct
   */
  protected function setUp() : void {
    parent::setUp();
    $this->config = [
      'one' => '1',
      'two' => '2',
      'hash_salt' => $this
        ->randomMachineName(),
    ];
    $this->settings = new Settings($this->config);
  }

  /**
   * @covers ::get
   */
  public function testGet() {

    // Test stored settings.
    $this
      ->assertEquals($this->config['one'], Settings::get('one'), 'The correct setting was not returned.');
    $this
      ->assertEquals($this->config['two'], Settings::get('two'), 'The correct setting was not returned.');

    // Test setting that isn't stored with default.
    $this
      ->assertEquals('3', Settings::get('three', '3'), 'Default value for a setting not properly returned.');
    $this
      ->assertNull(Settings::get('four'), 'Non-null value returned for a setting that should not exist.');
  }

  /**
   * @covers ::getAll
   */
  public function testGetAll() {
    $this
      ->assertEquals($this->config, Settings::getAll());
  }

  /**
   * @covers ::getInstance
   */
  public function testGetInstance() {
    $singleton = $this->settings
      ->getInstance();
    $this
      ->assertEquals($singleton, $this->settings);
  }

  /**
   * Tests Settings::getHashSalt().
   *
   * @covers ::getHashSalt
   */
  public function testGetHashSalt() {
    $this
      ->assertSame($this->config['hash_salt'], $this->settings
      ->getHashSalt());
  }

  /**
   * Tests Settings::getHashSalt() with no hash salt value.
   *
   * @covers ::getHashSalt
   *
   * @dataProvider providerTestGetHashSaltEmpty
   */
  public function testGetHashSaltEmpty(array $config) {

    // Re-create settings with no 'hash_salt' key.
    $settings = new Settings($config);
    $this
      ->expectException(\RuntimeException::class);
    $settings
      ->getHashSalt();
  }

  /**
   * Data provider for testGetHashSaltEmpty.
   *
   * @return array
   */
  public static function providerTestGetHashSaltEmpty() {
    return [
      [
        [],
      ],
      [
        [
          'hash_salt' => '',
        ],
      ],
      [
        [
          'hash_salt' => NULL,
        ],
      ],
    ];
  }

  /**
   * Ensures settings cannot be serialized.
   *
   * @covers ::__sleep
   */
  public function testSerialize() {
    $this
      ->expectException(\LogicException::class);
    serialize(new Settings([]));
  }

  /**
   * Tests Settings::getApcuPrefix().
   *
   * @covers ::getApcuPrefix
   */
  public function testGetApcuPrefix() {
    $settings = new Settings([
      'hash_salt' => 123,
      'apcu_ensure_unique_prefix' => TRUE,
    ]);
    $this
      ->assertNotEquals($settings::getApcuPrefix('cache_test', '/test/a'), $settings::getApcuPrefix('cache_test', '/test/b'));
    $settings = new Settings([
      'hash_salt' => 123,
      'apcu_ensure_unique_prefix' => FALSE,
    ]);
    $this
      ->assertNotEquals($settings::getApcuPrefix('cache_test', '/test/a'), $settings::getApcuPrefix('cache_test', '/test/b'));
  }

  /**
   * Tests that an exception is thrown when settings are not initialized yet.
   *
   * @covers ::getInstance
   */
  public function testGetInstanceReflection() {
    $settings = new Settings([]);
    $class = new \ReflectionClass(Settings::class);
    $instance_property = $class
      ->getProperty("instance");
    $instance_property
      ->setValue(NULL, NULL);
    $this
      ->expectException(\BadMethodCallException::class);
    $settings
      ->getInstance();
  }

  /**
   * Tests deprecation messages and values when using fake deprecated settings.
   *
   * Note: Tests for real deprecated settings should not be added to this test
   * or provider. This test is only for the general deprecated settings API
   * itself.
   *
   * @see self::testRealDeprecatedSettings()
   * @see self::providerTestRealDeprecatedSettings()
   *
   * @param string[] $settings_config
   *   Array of settings to put in the settings.php file for testing.
   * @param string $setting_name
   *   The name of the setting this case should use for Settings::get().
   * @param string $expected_value
   *   The expected value of the setting.
   * @param bool $expect_deprecation_message
   *   Should the case expect a deprecation message? Defaults to TRUE.
   *
   * @dataProvider providerTestFakeDeprecatedSettings
   *
   * @covers ::handleDeprecations
   * @covers ::initialize
   *
   * @group legacy
   */
  public function testFakeDeprecatedSettings(array $settings_config, string $setting_name, string $expected_value, bool $expect_deprecation_message = TRUE) : void {
    $settings_file_content = "<?php\n";
    foreach ($settings_config as $name => $value) {
      $settings_file_content .= "\$settings['{$name}'] = '{$value}';\n";
    }
    $class_loader = NULL;
    $vfs_root = vfsStream::setup('root');
    $sites_directory = vfsStream::newDirectory('sites')
      ->at($vfs_root);
    vfsStream::newFile('settings.php')
      ->at($sites_directory)
      ->setContent($settings_file_content);

    // This is the deprecated setting used by all cases for this test method.
    $deprecated_setting = [
      'replacement' => 'happy_replacement',
      'message' => 'The settings key "deprecated_legacy" is deprecated in drupal:9.1.0 and will be removed in drupal:10.0.0. Use "happy_replacement" instead. See https://www.drupal.org/node/3163226.',
    ];
    $class = new \ReflectionClass(Settings::class);
    $instance_property = $class
      ->getProperty('deprecatedSettings');
    $deprecated_settings = $instance_property
      ->getValue();
    $deprecated_settings['deprecated_legacy'] = $deprecated_setting;
    $instance_property
      ->setValue(NULL, $deprecated_settings);
    if ($expect_deprecation_message) {
      $this
        ->expectDeprecation($deprecated_setting['message']);
    }
    Settings::initialize(vfsStream::url('root'), 'sites', $class_loader);
    $this
      ->assertEquals($expected_value, Settings::get($setting_name));
  }

  /**
   * Provides data for testFakeDeprecatedSettings().
   *
   * Note: Tests for real deprecated settings should not be added here.
   *
   * @see self::providerTestRealDeprecatedSettings()
   */
  public static function providerTestFakeDeprecatedSettings() : array {
    $only_legacy = [
      'deprecated_legacy' => 'old',
    ];
    $only_replacement = [
      'happy_replacement' => 'new',
    ];
    $both_settings = [
      'deprecated_legacy' => 'old',
      'happy_replacement' => 'new',
    ];
    return [
      'Only legacy defined, get legacy' => [
        $only_legacy,
        'deprecated_legacy',
        'old',
      ],
      'Only legacy defined, get replacement' => [
        $only_legacy,
        'happy_replacement',
        // Since the new setting isn't yet defined, use the old value.
        'old',
      ],
      'Both legacy and replacement defined, get legacy' => [
        $both_settings,
        'deprecated_legacy',
        // Since the replacement is already defined, that should be used.
        'new',
      ],
      'Both legacy and replacement defined, get replacement' => [
        $both_settings,
        'happy_replacement',
        'new',
      ],
      'Only replacement defined, get legacy' => [
        $only_replacement,
        'deprecated_legacy',
        // Should get the new value.
        'new',
      ],
      'Only replacement defined, get replacement' => [
        $only_replacement,
        'happy_replacement',
        // Should get the new value.
        'new',
        // No deprecation since the old name is neither used nor defined.
        FALSE,
      ],
    ];
  }

  /**
   * Tests deprecation messages for real deprecated settings.
   *
   * @param string $legacy_setting
   *   The legacy name of the setting to test.
   * @param string $expected_deprecation
   *   The expected deprecation message.
   *
   * @dataProvider providerTestRealDeprecatedSettings
   * @group legacy
   */
  public function testRealDeprecatedSettings(string $legacy_setting, string $expected_deprecation) : void {
    $settings_file_content = "<?php\n\$settings['{$legacy_setting}'] = 'foo';\n";
    $class_loader = NULL;
    $vfs_root = vfsStream::setup('root');
    $sites_directory = vfsStream::newDirectory('sites')
      ->at($vfs_root);
    vfsStream::newFile('settings.php')
      ->at($sites_directory)
      ->setContent($settings_file_content);
    $this
      ->expectDeprecation($expected_deprecation);

    // Presence of the old name in settings.php is enough to trigger messages.
    Settings::initialize(vfsStream::url('root'), 'sites', $class_loader);
  }

  /**
   * Provides data for testRealDeprecatedSettings().
   */
  public static function providerTestRealDeprecatedSettings() : array {
    return [
      [
        'block_interest_cohort',
        'The "block_interest_cohort" setting is deprecated in drupal:9.5.0. This setting should be removed from the settings file, since its usage has been removed. See https://www.drupal.org/node/3320787.',
      ],
    ];
  }

  /**
   * Tests initialization performed for the $databases variable.
   *
   * @dataProvider providerTestDatabaseInfoInitialization
   */
  public function testDatabaseInfoInitialization(string $driver, ?string $namespace, ?string $autoload, string $expected_namespace, ?string $expected_autoload) : void {
    $databases['mock'][$driver] = [
      'driver' => $driver,
      'prefix' => '',
    ];
    if (!is_null($namespace)) {
      $databases['mock'][$driver]['namespace'] = $namespace;
    }
    if (!is_null($autoload)) {
      $databases['mock'][$driver]['autoload'] = $autoload;
    }
    $settings_file_content = "<?php\n\$databases = " . var_export($databases, TRUE) . ";\n";
    $vfs_root = vfsStream::setup('root');
    $sites_directory = vfsStream::newDirectory('sites')
      ->at($vfs_root);
    vfsStream::newFile('settings.php')
      ->at($sites_directory)
      ->setContent($settings_file_content);
    $class_loader = $this
      ->createMock(ClassLoader::class);
    if (!empty($expected_autoload)) {
      $class_loader
        ->expects($this
        ->once())
        ->method('addPsr4')
        ->with($expected_namespace . '\\', vfsStream::url('root') . '/' . $expected_autoload);
    }
    else {
      $class_loader
        ->expects($this
        ->never())
        ->method('addPsr4');
    }
    Settings::initialize(vfsStream::url('root'), 'sites', $class_loader);
    $expected = [
      $driver => [
        'driver' => $driver,
        'namespace' => $expected_namespace,
        'prefix' => '',
      ],
    ];
    if (!is_null($expected_autoload)) {
      $expected[$driver]['autoload'] = $expected_autoload;
    }
    $this
      ->assertEquals($expected, Database::getConnectionInfo('mock'));
  }

  /**
   * Provides data for testDatabaseInfoInitialization().
   */
  public static function providerTestDatabaseInfoInitialization() : array {
    return [
      [
        'mysql',
        NULL,
        NULL,
        'Drupal\\mysql\\Driver\\Database\\mysql',
        'core/modules/mysql/src/Driver/Database/mysql/',
      ],
      [
        'mysql',
        '',
        NULL,
        'Drupal\\mysql\\Driver\\Database\\mysql',
        'core/modules/mysql/src/Driver/Database/mysql/',
      ],
      [
        'mysql',
        'Drupal\\Core\\Database\\Driver\\mysql',
        NULL,
        'Drupal\\mysql\\Driver\\Database\\mysql',
        'core/modules/mysql/src/Driver/Database/mysql/',
      ],
      [
        'mysql',
        'Drupal\\mysql\\Driver\\Database\\mysql',
        NULL,
        'Drupal\\mysql\\Driver\\Database\\mysql',
        'core/modules/mysql/src/Driver/Database/mysql/',
      ],
      [
        'mysql',
        'Drupal\\Driver\\Database\\mysql',
        NULL,
        'Drupal\\Driver\\Database\\mysql',
        NULL,
      ],
      [
        'mysql',
        'Drupal\\mysql\\Driver\\Database\\mysql',
        'modules/custom/mysql/src/Driver/Database/mysql/',
        'Drupal\\mysql\\Driver\\Database\\mysql',
        'modules/custom/mysql/src/Driver/Database/mysql/',
      ],
      [
        'pgsql',
        NULL,
        NULL,
        'Drupal\\pgsql\\Driver\\Database\\pgsql',
        'core/modules/pgsql/src/Driver/Database/pgsql/',
      ],
      [
        'pgsql',
        '',
        NULL,
        'Drupal\\pgsql\\Driver\\Database\\pgsql',
        'core/modules/pgsql/src/Driver/Database/pgsql/',
      ],
      [
        'pgsql',
        'Drupal\\Core\\Database\\Driver\\pgsql',
        NULL,
        'Drupal\\pgsql\\Driver\\Database\\pgsql',
        'core/modules/pgsql/src/Driver/Database/pgsql/',
      ],
      [
        'pgsql',
        'Drupal\\pgsql\\Driver\\Database\\pgsql',
        NULL,
        'Drupal\\pgsql\\Driver\\Database\\pgsql',
        'core/modules/pgsql/src/Driver/Database/pgsql/',
      ],
      [
        'pgsql',
        'Drupal\\Driver\\Database\\pgsql',
        NULL,
        'Drupal\\Driver\\Database\\pgsql',
        NULL,
      ],
      [
        'pgsql',
        'Drupal\\pgsql\\Driver\\Database\\pgsql',
        'modules/custom/pgsql/src/Driver/Database/pgsql/',
        'Drupal\\pgsql\\Driver\\Database\\pgsql',
        'modules/custom/pgsql/src/Driver/Database/pgsql/',
      ],
      [
        'sqlite',
        NULL,
        NULL,
        'Drupal\\sqlite\\Driver\\Database\\sqlite',
        'core/modules/sqlite/src/Driver/Database/sqlite/',
      ],
      [
        'sqlite',
        '',
        NULL,
        'Drupal\\sqlite\\Driver\\Database\\sqlite',
        'core/modules/sqlite/src/Driver/Database/sqlite/',
      ],
      [
        'sqlite',
        'Drupal\\Core\\Database\\Driver\\sqlite',
        NULL,
        'Drupal\\sqlite\\Driver\\Database\\sqlite',
        'core/modules/sqlite/src/Driver/Database/sqlite/',
      ],
      [
        'sqlite',
        'Drupal\\sqlite\\Driver\\Database\\sqlite',
        NULL,
        'Drupal\\sqlite\\Driver\\Database\\sqlite',
        'core/modules/sqlite/src/Driver/Database/sqlite/',
      ],
      [
        'sqlite',
        'Drupal\\Driver\\Database\\sqlite',
        NULL,
        'Drupal\\Driver\\Database\\sqlite',
        NULL,
      ],
      [
        'sqlite',
        'Drupal\\sqlite\\Driver\\Database\\sqlite',
        'modules/custom/sqlite/src/Driver/Database/sqlite/',
        'Drupal\\sqlite\\Driver\\Database\\sqlite',
        'modules/custom/sqlite/src/Driver/Database/sqlite/',
      ],
    ];
  }

}