use strict;
use Params::Validate qw(validate validate_with);
use Test::More tests => 5;
my $ucfirst_normalizer = sub { return ucfirst lc $_[0] };
sub sub1
{
my %args = validate_with( params => \@_,
spec => { PaRaMkEy => 1 },
normalize_keys => $ucfirst_normalizer
);
return $args{Paramkey};
}
sub sub2
{
my %args = validate_with( params => \@_,
spec => { PaRaMkEy => 1 },
normalize_keys => $ucfirst_normalizer,
ignore_case => 1
);
return $args{Paramkey};
}
sub sub3
{
my %args = validate_with( params => \@_,
spec => { -PaRaMkEy => 1 },
normalize_keys => $ucfirst_normalizer,
strip_leading => '-'
);
return $args{-paramkey};
}
sub sub4
{
my %args = validate_with( params => \@_,
spec => { foo => 1 },
normalize_keys => sub { undef }
);
}
sub sub5
{
my %args = validate_with( params => \@_,
spec => { foo => 1 },
normalize_keys => sub { return 'a' },
);
}
ok( eval { sub1( pArAmKeY => 1 ) } );
ok( eval { sub2( pArAmKeY => 1 ) } );
ok( eval { sub3( -pArAmKeY => 1 ) } );
eval { sub4( foo => 5 ) };
like( $@, qr/normalize_keys.+a defined value/ );
eval { sub5( foo => 5, bar => 5 ) };
like( $@, qr/normalize_keys.+already exists/ );