X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F004_nogetop.t;h=118f18ad3e06a92c03b2a31c5828ec506b10af96;hb=ede2de16018159d8e1d70f53aedece5ae2d4f299;hp=a4c4455fb18f37ae80c0802109a0f00b06a01842;hpb=da7b9880cfa75cdc3f3a4903e9ed7bfc86b534a3;p=gitmo%2FMooseX-Getopt.git diff --git a/t/004_nogetop.t b/t/004_nogetop.t index a4c4455..118f18a 100644 --- a/t/004_nogetop.t +++ b/t/004_nogetop.t @@ -1,8 +1,9 @@ use strict; -use warnings; +use warnings FATAL => 'all'; -use Test::More tests => 9; +use Test::More tests => 10; use Test::Fatal 0.003; +use Test::Warnings; BEGIN { use_ok('MooseX::Getopt'); @@ -15,7 +16,7 @@ BEGIN { with 'MooseX::Getopt'; has 'data' => ( - metaclass => 'Getopt', + traits => ['Getopt'], is => 'ro', isa => 'Str', default => 'file.dat', @@ -23,7 +24,7 @@ BEGIN { ); has 'cow' => ( - metaclass => 'Getopt', + traits => ['Getopt'], is => 'ro', isa => 'Str', default => 'moo', @@ -31,7 +32,7 @@ BEGIN { ); has 'horse' => ( - metaclass => 'Getopt', + traits => ['Getopt'], is => 'ro', isa => 'Str', default => 'bray', @@ -63,20 +64,19 @@ BEGIN { ); has 'private_stuff' => ( - metaclass => 'NoGetopt', + traits => ['NoGetopt'], is => 'ro', isa => 'Int', default => 713 ); has '_private_stuff_cmdline' => ( - metaclass => 'Getopt', + traits => ['Getopt'], is => 'ro', isa => 'Int', default => 832, cmd_flag => 'p', ); - } {