X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F005_strict.t;h=206cb64852ad1efc7c47effa5b97ee997685708d;hb=50b3ccff5bbcdc77495d6be259b6239527e7f08a;hp=858437bde88fa2073b860647d91acee81ff24e41;hpb=0f8232b66e0f72e35099ce203962a4efc23838cf;p=gitmo%2FMooseX-Getopt.git diff --git a/t/005_strict.t b/t/005_strict.t index 858437b..206cb64 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 { @@ -70,14 +70,6 @@ BEGIN { isa => 'Int', default => 713 ); - - has '_private_stuff_cmdline' => ( - is => 'ro', - isa => 'Int', - default => 832, - cmd_flag => 'p', - ); - } { @@ -99,3 +91,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/; +} +