X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F007_nogetopt_trait.t;h=75a5c8821b5f65a6e60dd41d50fc4e1181d41b5c;hb=986fb4690bc00c860b1f728b986e39b412100854;hp=5ccef57799186df4ac985ea2c9888cee3ef93e93;hpb=adbe3e57810b57a425b78c327cc08ec3ab602a97;p=gitmo%2FMooseX-Getopt.git diff --git a/t/007_nogetopt_trait.t b/t/007_nogetopt_trait.t index 5ccef57..75a5c88 100644 --- a/t/007_nogetopt_trait.t +++ b/t/007_nogetopt_trait.t @@ -1,10 +1,9 @@ -#!/usr/bin/perl - use strict; -use warnings; +use warnings FATAL => 'all'; -use Test::More tests => 9; -use Test::Exception; +use Test::More tests => 10; +use Test::Fatal; +use Test::Warnings; BEGIN { use_ok('MooseX::Getopt'); @@ -78,7 +77,6 @@ BEGIN { default => 832, cmd_flag => 'p', ); - } { @@ -98,5 +96,5 @@ BEGIN { { local @ARGV = (qw/--private_stuff 317/); - throws_ok { App->new_with_options } qr/Unknown option: private_stuff/; + like exception { App->new_with_options }, qr/Unknown option: private_stuff/; }