class HookAlterOrderTest

class HookAlterOrderTest extends KernelTestBase {
  use HookOrderTestTrait;
  
  /**
   * {@inheritdoc}
   */
  protected static $modules = [
    'aaa_hook_order_test',
    'bbb_hook_order_test',
    'ccc_hook_order_test',
    'ddd_hook_order_test',
  ];
  
  /**
   * Tests procedural implementations of module implements alter ordering.
   */
  public function testProceduralModuleImplementsAlterOrder() : void {
    $this->assertAlterCallOrder($main_unaltered = [
      'aaa_hook_order_test_procedural_alter',
      'bbb_hook_order_test_procedural_alter',
      'ccc_hook_order_test_procedural_alter',
    ], 'procedural');
    $this->assertAlterCallOrder($sub_unaltered = [
      'aaa_hook_order_test_procedural_subtype_alter',
      'bbb_hook_order_test_procedural_subtype_alter',
      'ccc_hook_order_test_procedural_subtype_alter',
    ], 'procedural_subtype');
    $this->assertAlterCallOrder($combined_unaltered = [
      'aaa_hook_order_test_procedural_alter',
      'aaa_hook_order_test_procedural_subtype_alter',
      'bbb_hook_order_test_procedural_alter',
      'bbb_hook_order_test_procedural_subtype_alter',
      'ccc_hook_order_test_procedural_alter',
      'ccc_hook_order_test_procedural_subtype_alter',
    ], [
      'procedural',
      'procedural_subtype',
    ]);
    $move_b_down = function (array &$implementations) : void {
      // Move module bbb_hook_order_test to the end, no matter which hook.
      $group = $implementations['bbb_hook_order_test'];
      unset($implementations['bbb_hook_order_test']);
      $implementations['bbb_hook_order_test'] = $group;
    };
    $modules = [
      'aaa_hook_order_test',
      'bbb_hook_order_test',
      'ccc_hook_order_test',
    ];
    // Test with module bbb_hook_order_test moved to the end for
    // 'procedural_alter' and 'procedural_subtype_alter' hooks.
    ModuleImplementsAlter::set(function (array &$implementations, string $hook) use ($modules, $move_b_down) : void {
      if (!in_array($hook, [
        'procedural_alter',
        'procedural_subtype_alter',
      ])) {
        return;
      }
      $this->assertSame($modules, array_keys($implementations));
      $move_b_down($implementations);
    });
    \Drupal::service('kernel')->rebuildContainer();
    $this->assertAlterCallOrder($main_altered = [
      'aaa_hook_order_test_procedural_alter',
      'ccc_hook_order_test_procedural_alter',
      // The implementation in module bbb_hook_order_test has been moved.
'bbb_hook_order_test_procedural_alter',
    ], 'procedural');
    $this->assertAlterCallOrder($sub_altered = [
      'aaa_hook_order_test_procedural_subtype_alter',
      'ccc_hook_order_test_procedural_subtype_alter',
      // The implementation in module bbb_hook_order_test has been moved.
'bbb_hook_order_test_procedural_subtype_alter',
    ], 'procedural_subtype');
    $this->assertAlterCallOrder($combined_altered = [
      'aaa_hook_order_test_procedural_alter',
      'aaa_hook_order_test_procedural_subtype_alter',
      'ccc_hook_order_test_procedural_alter',
      'ccc_hook_order_test_procedural_subtype_alter',
      // The implementation in module bbb_hook_order_test has been moved.
'bbb_hook_order_test_procedural_alter',
      'bbb_hook_order_test_procedural_subtype_alter',
    ], [
      'procedural',
      'procedural_subtype',
    ]);
    // If the altered hook is not the first one, implementations are back in
    // their unaltered order.
    $this->assertAlterCallOrder($main_unaltered, [
      'other_main_type',
      'procedural',
    ]);
    $this->assertAlterCallOrder($sub_unaltered, [
      'other_main_type',
      'procedural_subtype',
    ]);
    $this->assertAlterCallOrder($combined_unaltered, [
      'other_main_type',
      'procedural',
      'procedural_subtype',
    ]);
    // Test with module bbb_hook_order_test moved to the end for the main hook.
    ModuleImplementsAlter::set(function (array &$implementations, string $hook) use ($modules, $move_b_down) : void {
      if (!in_array($hook, [
        'procedural_alter',
        'procedural_subtype_alter',
      ])) {
        return;
      }
      $this->assertSame($modules, array_keys($implementations));
      if ($hook !== 'procedural_alter') {
        return;
      }
      $move_b_down($implementations);
    });
    \Drupal::service('kernel')->rebuildContainer();
    $this->assertAlterCallOrder($main_altered, 'procedural');
    $this->assertAlterCallOrder($sub_unaltered, 'procedural_subtype');
    $this->assertAlterCallOrder($combined_altered, [
      'procedural',
      'procedural_subtype',
    ]);
    // Test with module bbb_hook_order_test moved to the end for the subtype
    // hook.
    ModuleImplementsAlter::set(function (array &$implementations, string $hook) use ($modules, $move_b_down) : void {
      if (!in_array($hook, [
        'procedural_alter',
        'procedural_subtype_alter',
      ])) {
        return;
      }
      $this->assertSameCallList($modules, array_keys($implementations));
      if ($hook !== 'procedural_subtype_alter') {
        return;
      }
      $move_b_down($implementations);
    });
    \Drupal::service('kernel')->rebuildContainer();
    $this->assertAlterCallOrder($main_unaltered, 'procedural');
    $this->assertAlterCallOrder($sub_altered, 'procedural_subtype');
    $this->assertAlterCallOrder($combined_unaltered, [
      'procedural',
      'procedural_subtype',
    ]);
  }
  
  /**
   * Test ordering alter calls.
   */
  public function testAlterOrder() : void {
    // The default ordering of test_alter hooks.
    $this->assertAlterCallOrder([
      CAlterHooks::class . '::testAlter',
      AAlterHooks::class . '::testAlterAfterC',
      DAlterHooks::class . '::testAlter',
    ], 'test');
    // The default ordering of test_subtype_alter hooks.
    $this->assertAlterCallOrder([
      AAlterHooks::class . '::testSubtypeAlter',
      BAlterHooks::class . '::testSubtypeAlter',
      CAlterHooks::class . '::testSubtypeAlter',
      DAlterHooks::class . '::testSubtypeAlter',
    ], 'test_subtype');
    // Test ordering of both test_alter and test_subtype_alter hooks.
    $this->assertAlterCallOrder([
      AAlterHooks::class . '::testSubtypeAlter',
      BAlterHooks::class . '::testSubtypeAlter',
      CAlterHooks::class . '::testAlter',
      CAlterHooks::class . '::testSubtypeAlter',
      AAlterHooks::class . '::testAlterAfterC',
      DAlterHooks::class . '::testAlter',
      DAlterHooks::class . '::testSubtypeAlter',
    ], [
      'test',
      'test_subtype',
    ]);
    $this->disableModules([
      'bbb_hook_order_test',
    ]);
    // Confirm that hooks from bbb_hook_order_test are absent.
    $this->assertAlterCallOrder([
      CAlterHooks::class . '::testAlter',
      AAlterHooks::class . '::testAlterAfterC',
      DAlterHooks::class . '::testAlter',
    ], 'test');
    $this->assertAlterCallOrder([
      AAlterHooks::class . '::testSubtypeAlter',
      CAlterHooks::class . '::testSubtypeAlter',
      DAlterHooks::class . '::testSubtypeAlter',
    ], 'test_subtype');
    $this->assertAlterCallOrder([
      AAlterHooks::class . '::testSubtypeAlter',
      CAlterHooks::class . '::testAlter',
      CAlterHooks::class . '::testSubtypeAlter',
      AAlterHooks::class . '::testAlterAfterC',
      DAlterHooks::class . '::testAlter',
      DAlterHooks::class . '::testSubtypeAlter',
    ], [
      'test',
      'test_subtype',
    ]);
  }
  
  /**
   * Tests #[ReorderHook] targeting other hooks.
   */
  public function testReorderCrossHookAlter() : void {
    $this->assertAlterCallOrder([
      // This method is reordered last only in combination with subtype hook.
ACrossHookReorderAlter::class . '::baseAlterLastIfSubtype',
      // Implementations that are not reordered appear in order of discovery.
ACrossHookReorderAlter::class . '::baseAlter',
      BCrossHookReorderAlter::class . '::baseAlter',
      // Ordering rules from #[Hook(.., order: ..)] are applied first, in
      // order of discovery.
ACrossHookReorderAlter::class . '::baseAlterLast',
      ACrossHookReorderAlter::class . '::baseAlterLastAlsoIfSubtype',
      // Ordering rules from #[ReorderHook(..)] are applied last.
BCrossHookReorderAlter::class . '::baseAlterLast',
    ], 'test_cross_hook_reorder_base');
    $this->assertAlterCallOrder([
      // This method is reordered last only in combination with base hook.
ACrossHookReorderAlter::class . '::subtypeAlterLastIfBaseHook',
      // Implementations that are not reordered appear in order of discovery.
ACrossHookReorderAlter::class . '::subtypeAlter',
      BCrossHookReorderAlter::class . '::subtypeAlter',
      // This implementation has #[Hook(.., order: Order::Last)].
ACrossHookReorderAlter::class . '::subtypeAlterLast',
    ], 'test_cross_hook_reorder_subtype');
    $this->assertAlterCallOrder([
      // Implementations that are not reordered appear in order of modules,
      // then order of hooks passed to ->alter(), then order of discovery.
      // We remove ReorderHook directives when the identifier and hook
      // targeted combination does not exist.
      // This method has a reorder targeting it, but it is using a hook that
      // does not point to this method so the reorder directive is dropped.
ACrossHookReorderAlter::class . '::baseAlterLastIfSubtype',
      ACrossHookReorderAlter::class . '::baseAlter',
      // This method has a reorder targeting it, but it is using a hook that
      // does not point to this method so the reorder directive is dropped.
ACrossHookReorderAlter::class . '::subtypeAlterLastIfBaseHook',
      ACrossHookReorderAlter::class . '::subtypeAlter',
      // These two methods appear in opposite order in the class, but appear
      // swapped, because one is for the base alter hook, the other for the
      // subtype alter hook.
BCrossHookReorderAlter::class . '::baseAlter',
      BCrossHookReorderAlter::class . '::subtypeAlter',
      // Ordering rules for the base hook are applied first.
      // At first those from #[Hook('..base..', order: ..)].
ACrossHookReorderAlter::class . '::baseAlterLast',
      // This method has a reorder targeting it, but it is using a hook that
      // does not point to this method so the reorder directive is dropped.
ACrossHookReorderAlter::class . '::baseAlterLastAlsoIfSubtype',
      BCrossHookReorderAlter::class . '::baseAlterLast',
      // Ordering rules for the subtype hook are applied last.
      // At first those from #[Hook('..subtype..', order: ..)].
ACrossHookReorderAlter::class . '::subtypeAlterLast',
    ], [
      'test_cross_hook_reorder_base',
      'test_cross_hook_reorder_subtype',
    ]);
  }
  
  /**
   * Tests #[ReorderHook] attributes with missing target.
   *
   * There are different kinds of missing target:
   *   - The target method to be reordered or removed may not exist.
   *   - The hook being targeted may have no implementations.
   *   - The target method exists, but it is registered to a different hook.
   *
   * The expected behavior in these cases is that the reorder or remove
   * attribute should have no effect, and especially not cause any errors.
   *
   * However, for alter hooks, the last case is a bit special.
   *
   * @see \Drupal\KernelTests\Core\Hook\HookOrderTest::testReorderMissingTarget()
   * @see \Drupal\xyz_hook_order_test\Hook\XyzMissingTargetAlter
   */
  public function testReorderAlterMissingTarget() : void {
    // At the beginning, the xyz_hook_order_test is not installed, so no
    // reordering is applied.
    // This verifies that all implementations for this test are correctly
    // declared and discovered.
    $this->assertAlterCallOrder([
      AMissingTargetAlter::class . '::testABAlter',
      BMissingTargetAlter::class . '::testABAlterReorderedFirstByXyz',
      BMissingTargetAlter::class . '::testABAlterRemovedByXyz',
    ], 'test_ab');
    $this->assertAlterCallOrder([
      BMissingTargetAlter::class . '::testBAlter',
      BMissingTargetAlter::class . '::testBAlterReorderedFirstByXyz',
      BMissingTargetAlter::class . '::testBAlterRemovedByXyz',
    ], 'test_b');
    $this->assertAlterCallOrder([
      AMissingTargetAlter::class . '::testASupertypeAlter',
      AMissingTargetAlter::class . '::testASupertypeAlterReorderedFirstForBSubtypeByXyz',
      AMissingTargetAlter::class . '::testASupertypeAlterRemovedForBSubtypeByXyz',
    ], 'test_a_supertype');
    $this->assertAlterCallOrder([
      BMissingTargetAlter::class . '::testBSubtypeAlter',
    ], 'test_b_subtype');
    $this->assertAlterCallOrder([
      AMissingTargetAlter::class . '::testASupertypeAlter',
      AMissingTargetAlter::class . '::testASupertypeAlterReorderedFirstForBSubtypeByXyz',
      AMissingTargetAlter::class . '::testASupertypeAlterRemovedForBSubtypeByXyz',
      BMissingTargetAlter::class . '::testBSubtypeAlter',
    ], [
      'test_a_supertype',
      'test_b_subtype',
    ]);
    // Install the module that has the reorder and remove hook attributes.
    $this->enableModules([
      'xyz_hook_order_test',
    ]);
    $this->assertAlterCallOrder([
      BMissingTargetAlter::class . '::testABAlterReorderedFirstByXyz',
      AMissingTargetAlter::class . '::testABAlter',
    ], 'test_ab');
    $this->assertAlterCallOrder([
      BMissingTargetAlter::class . '::testBAlterReorderedFirstByXyz',
      BMissingTargetAlter::class . '::testBAlter',
    ], 'test_b');
    $this->assertAlterCallOrder([
      AMissingTargetAlter::class . '::testASupertypeAlter',
      AMissingTargetAlter::class . '::testASupertypeAlterReorderedFirstForBSubtypeByXyz',
      AMissingTargetAlter::class . '::testASupertypeAlterRemovedForBSubtypeByXyz',
    ], 'test_a_supertype');
    $this->assertAlterCallOrder([
      BMissingTargetAlter::class . '::testBSubtypeAlter',
    ], 'test_b_subtype');
    $this->assertAlterCallOrder([
      AMissingTargetAlter::class . '::testASupertypeAlter',
      AMissingTargetAlter::class . '::testASupertypeAlterReorderedFirstForBSubtypeByXyz',
      AMissingTargetAlter::class . '::testASupertypeAlterRemovedForBSubtypeByXyz',
      BMissingTargetAlter::class . '::testBSubtypeAlter',
    ], [
      'test_a_supertype',
      'test_b_subtype',
    ]);
    // Uninstall the B module, which contains the reorder targets.
    // Currently this causes a TypeError.
    $this->expectException(\TypeError::class);
    $old_request = \Drupal::request();
    try {
      $this->disableModules([
        'bbb_hook_order_test',
      ]);
    } finally {
      // Restore a request and session, to avoid error during tearDown().
      /** @var \Symfony\Component\HttpFoundation\RequestStack $request_stack */
      $request_stack = $this->container
        ->get('request_stack');
      $request_stack->push($old_request);
    }
  }
  
  /**
   * Asserts the call order from an alter call.
   *
   * Also asserts additional $type argument values that are meant to produce the
   * same result.
   *
   * @param list<string> $expected
   *   Expected call list, as strings from __METHOD__ or __FUNCTION__.
   * @param string|list<string> $type
   *   First argument to pass to ->alter().
   */
  protected function assertAlterCallOrder(array $expected, string|array $type) : void {
    $this->assertSameCallList($expected, $this->alter($type));
  }
  
  /**
   * Invokes ModuleHandler->alter() and returns the altered array.
   *
   * @param string|list<string> $type
   *   Alter type or list of alter types.
   *
   * @return array
   *   The altered array.
   */
  protected function alter(string|array $type) : array {
    $data = [];
    \Drupal::moduleHandler()->alter($type, $data);
    return $data;
  }

}