X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F005_strict.t;h=8a8d634fdd1e7b1778fb813cbe180d158ed87698;hb=6ac028c4d869259041b7c526071cf614ffb033fa;hp=096ace939ab89b487ef91fb8aeb3bf46ef4faf3d;hpb=bff3807bb402a84be10c48d2e4d1be0628fde911;p=gitmo%2FMooseX-Getopt.git diff --git a/t/005_strict.t b/t/005_strict.t index 096ace9..8a8d634 100644 --- a/t/005_strict.t +++ b/t/005_strict.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 9; +use Test::More tests => 10; use Test::Exception; BEGIN { @@ -18,7 +18,7 @@ BEGIN { with 'MooseX::Getopt::Strict'; has 'data' => ( - metaclass => 'MooseX::Getopt::Meta::Attribute', + metaclass => 'Getopt', is => 'ro', isa => 'Str', default => 'file.dat', @@ -34,7 +34,7 @@ BEGIN { ); has 'horse' => ( - metaclass => 'MooseX::Getopt::Meta::Attribute', + metaclass => 'Getopt', is => 'ro', isa => 'Str', default => 'bray', @@ -99,3 +99,10 @@ BEGIN { throws_ok { App->new_with_options } qr/Unknown option: private_stuff/; } + +{ + local @ARGV = (qw/--length 100/); + + throws_ok { App->new_with_options } qr/Unknown option: length/; +} +