X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F005_strict.t;h=a5d82c5dcb09685efca2bf92379bcb2269266c49;hb=aabf4179f74c8607d8c9de5a1da07a5f2cb48b3b;hp=206cb64852ad1efc7c47effa5b97ee997685708d;hpb=6634c7e22aaaeeeafaf479f03c19133e7922954d;p=gitmo%2FMooseX-Getopt.git diff --git a/t/005_strict.t b/t/005_strict.t index 206cb64..a5d82c5 100644 --- a/t/005_strict.t +++ b/t/005_strict.t @@ -4,7 +4,7 @@ use strict; use warnings; use Test::More tests => 10; -use Test::Exception; +use Test::Fatal; BEGIN { use_ok('MooseX::Getopt'); @@ -34,7 +34,7 @@ BEGIN { ); has 'horse' => ( - metaclass => 'Getopt', + traits => ['Getopt'], is => 'ro', isa => 'Str', default => 'bray', @@ -89,12 +89,12 @@ 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/; } { local @ARGV = (qw/--length 100/); - throws_ok { App->new_with_options } qr/Unknown option: length/; + like exception { App->new_with_options }, qr/Unknown option: length/; }