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

use base 'Hook::Modular';

# Test that we can't rewrite a password that didn't come from a config file.


# 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('output.print', { result => \%result });
    is($result{text}, "****this is some printer\n",
        'Some::Printer output.print');
}

my $config_scalar = do { local $/; <DATA> };
my $self = main->bootstrap(config => \$config_scalar);
is($self->{rewrite_tasks}[0][0], 'password',
    'scalar ref: has rewrite task for password');
is($self->{trace}{ignored_rewrite_config}, 1,
    'scalar ref: ignored rewrite tasks');

my $config_hash = Load $config_scalar;
$self = main->bootstrap(config => $config_hash);
is($self->{rewrite_tasks}[0][0], 'password',
    'hash ref: has rewrite task for password');
is($self->{trace}{ignored_rewrite_config}, 1,
    'hash ref: ignored rewrite tasks');


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

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