X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F011_process_argv.t;h=aa1e7e157a9e2a616ca2e9ac13f591afd79fb2ee;hb=f2fa8dbdff63e08e2e2dc42b731e8285a3af036b;hp=d2c174081826bd2f2d0af29f05c1b9580b9f714d;hpb=55c0aed71447be5194cabb929b2301a79cfa4906;p=gitmo%2FMooseX-Getopt.git diff --git a/t/011_process_argv.t b/t/011_process_argv.t index d2c1740..aa1e7e1 100644 --- a/t/011_process_argv.t +++ b/t/011_process_argv.t @@ -1,20 +1,10 @@ -#!/usr/bin/perl - 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::Requires 'Test::Deep'; +use Test::NoWarnings 1.04 ':early'; { package Testing::Foo; @@ -47,17 +37,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');