view release on metacpan or  search on metacpan

t/merge-object.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More 0.96;
use Test::Fatal;

my $mod = 'Config::MVP::Slicer';
eval "require $mod" or die $@;

my $slicer = new_ok($mod, [{
  config => {
    opt                 => 'main config val',
    'Plug.attr'         => 'pa',
    'Mod::Name.opt'     => 'val',
    'Moose.and[]'       => 'squirrel',
    'BigMoose.and'      => 'little squirrel',
    'Hunting.season[0]' => 'duck',
    'Hunting.season[1]' => 'wabbit',
    'Hunting.season[9]' => 'fudd',
    # keys are sorted very simply (alphabetically)
    'Hunting2.season[1.09]' => 'bunny',
    'Hunting2.season[1.10]' => 'bird',
    'Hunting2.season[1.08]' => 'wabbit',
    'Hunting2.season[1.11]' => 'duck',
    'Hunting2.season[z]' => 'zombie',
    'Hunting3.season' => 'fudd',
    'BadPlug.foo'       => 'bar',
  },
}]);

# TODO: should we allow updating of non-Moose plugins?  just overwrite the blessed hash?

{ package # no_index
    Config::MVP::Slicer::Test::Role::Plugin;
  use Moose;
  has plugin_name => ( is => 'ro', isa => 'Str', init_arg => 'name' );
}
foreach my $spec (
  [qw( X::Plug    attr   Str )],
  [qw( Mod::Name  opt    Str )],
  [qw( X::Hunting season ArrayRef[Str] )],
  [qw( X::Moose   and    Any )],
){
  my ($pack, $attr, $type) = @$spec;
  eval "{ package $pack; use Moose;" .
  "has plugin_name => ( is => 'ro', isa => 'Str', init_arg => 'name' );" .
  "has $attr => ( is => 'rw', isa => '$type' ); }; 1"
    or die $@;
}

is_deeply
  $slicer->merge(X::Plug->new({name => 'Plug'})),
  X::Plug->new({name => 'Plug', attr => 'pa' }),
  'merge previously unassigned attribute into plugin based on name';

my $previous = Mod::Name->new({name => 'ModName', previous => 'config'});
my $exp = Mod::Name->new({name => 'ModName', previous => 'config', opt => 'val'});
is_deeply
  $slicer->merge($previous),
  $exp,
  'merge previously unassigned attribute into plugin based on package';

is_deeply
  $previous,
  $exp,