#!/usr/bin/perl
use strict;
use warnings;
use FindBin '$Bin';
use lib File::Spec->catdir($Bin, 'lib');
use Hook::Modular::Test ':all';
use Test::More tests => 1;

use base 'Hook::Modular';

# Test that two plugins registering with the same hook get executed in the
# order specified in the config.


# specifying the appropriate plugin namespace for this program saves you from
# having to specify it in every config file.

use constant PLUGIN_NAMESPACE => 'My::Test::Plugin';


sub run {
    my $self = shift;
    $self->SUPER::run(@_);
    my %result;
    $self->run_hook('init.greet',   { result => \%result });
    $self->run_hook('output.print', { result => \%result });
    is($result{text}, <<EOTEXT, 'accumulated text');
My::Test::Plugin::Some::Printer says hello
My::Test::Plugin::Just::Greet says hello
****this is some printer
EOTEXT
}

my $config_filename = write_config_file(do { local $/; <DATA> });
main->bootstrap(config => $config_filename);


__DATA__
global:
  log:
    level: error
  cache:
    base: /tmp/test-hook-modular
  # plugin_namespace: My::Test::Plugin

plugins:
  - module: Some::Printer
    config:
      indent: 4
      indent_char: '*'
      text: 'this is some printer'
  - module: Just::Greet