X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Getopt.git;a=blobdiff_plain;f=t%2F011_process_argv.t;h=fdd8136dadd0888a4f3da7553f1b55d56a251d4a;hp=d2c174081826bd2f2d0af29f05c1b9580b9f714d;hb=25eb430dc9dc0e223b0a8cddf555e0dc3bbd26aa;hpb=55c0aed71447be5194cabb929b2301a79cfa4906 diff --git a/t/011_process_argv.t b/t/011_process_argv.t index d2c1740..fdd8136 100644 --- a/t/011_process_argv.t +++ b/t/011_process_argv.t @@ -1,20 +1,9 @@ -#!/usr/bin/perl - use strict; -use warnings; +use warnings FATAL => 'all'; -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::Warnings; { package Testing::Foo; @@ -47,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');