X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F011_process_argv.t;h=4fb220fd69c00a0ee10b809e706c5a997851dc7e;hb=0cdc0384ddb0c3be31312270a986ef74c77db300;hp=c070d5406cb3fe9b3fd32466482ae3c30393b903;hpb=da7b9880cfa75cdc3f3a4903e9ed7bfc86b534a3;p=gitmo%2FMooseX-Getopt.git diff --git a/t/011_process_argv.t b/t/011_process_argv.t index c070d54..4fb220f 100644 --- a/t/011_process_argv.t +++ b/t/011_process_argv.t @@ -1,18 +1,9 @@ use strict; use warnings; -use Test::More; +use Test::More tests => 7; use Test::Fatal 0.003; - -if ( !eval { require Test::Deep } ) -{ - plan skip_all => 'Test requires Test::Deep'; - exit; -} -else -{ - plan tests => 6; -} +use Test::NoWarnings 1.04 ':early'; { package Testing::Foo; @@ -45,17 +36,17 @@ is( ); isa_ok($pa, 'MooseX::Getopt::ProcessedArgv'); -Test::Deep::cmp_deeply($pa->argv_copy, [ +is_deeply($pa->argv_copy, [ '--bar', '10', 'file.dat' ], 'argv_copy'); -Test::Deep::cmp_deeply($pa->cli_params, { +is_deeply($pa->cli_params, { 'bar' => 10 }, 'cli_params'); -Test::Deep::cmp_deeply($pa->constructor_params, { +is_deeply($pa->constructor_params, { 'baz' => 100 }, 'constructor_params'); -Test::Deep::cmp_deeply($pa->extra_argv, [ +is_deeply($pa->extra_argv, [ 'file.dat' ], 'extra_argv');