test for warnings here too

[gitmo/MooseX-Getopt.git] / t / 011_process_argv.t

use strict;
use warnings;

use Test::More tests => 7;
use Test::Fatal 0.003;
use Test::Requires 'Test::Deep';
use Test::NoWarnings 1.04 ':early';

{
    package Testing::Foo;
    use Moose;

    with 'MooseX::Getopt';

    has 'bar' => (
        is       => 'ro',
        isa      => 'Int',
        required => 1,
    );

    has 'baz' => (
        is       => 'ro',
        isa      => 'Int',
        required => 1,
    );
}

@ARGV = qw(--bar 10 file.dat);

my $pa;
is(
    exception {
        $pa = Testing::Foo->process_argv(baz => 100);
    },
    undef,
    '... this should work'
);
isa_ok($pa, 'MooseX::Getopt::ProcessedArgv');

cmp_deeply($pa->argv_copy, [
    '--bar',
    '10',
    'file.dat'
], 'argv_copy');
cmp_deeply($pa->cli_params, {
    'bar' => 10
}, 'cli_params');
cmp_deeply($pa->constructor_params, {
    'baz' => 100
}, 'constructor_params');
cmp_deeply($pa->extra_argv, [
    'file.dat'
], 'extra_argv');