X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F011_process_argv.t;h=e104d3b94baf229bbdbd23af02e1303ffc66bcc1;hb=66ee5b17ce7666667d3a4bd9d0a4026e57d4a4da;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..e104d3b 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 => 6; use Test::Fatal 0.003; - -if ( !eval { require Test::Deep } ) -{ - plan skip_all => 'Test requires Test::Deep'; - exit; -} -else -{ - plan tests => 6; -} +use Test::Requires 'Test::Deep'; { package Testing::Foo; @@ -45,17 +36,17 @@ is( ); isa_ok($pa, 'MooseX::Getopt::ProcessedArgv'); -Test::Deep::cmp_deeply($pa->argv_copy, [ +cmp_deeply($pa->argv_copy, [ '--bar', '10', 'file.dat' ], 'argv_copy'); -Test::Deep::cmp_deeply($pa->cli_params, { +cmp_deeply($pa->cli_params, { 'bar' => 10 }, 'cli_params'); -Test::Deep::cmp_deeply($pa->constructor_params, { +cmp_deeply($pa->constructor_params, { 'baz' => 100 }, 'constructor_params'); -Test::Deep::cmp_deeply($pa->extra_argv, [ +cmp_deeply($pa->extra_argv, [ 'file.dat' ], 'extra_argv');