use strict;
use warnings;
-use Test::More;
+
+use Test::More tests => 22;
+use Test::NoWarnings 1.04 ':early';
use Moose ();
use Moose::Meta::Class;
$meta->add_attribute('BigD', traits => ['Getopt'], isa => 'Bool',
cmd_aliases => ['D'], is => 'ro');
$meta->add_attribute('SmallD', traits => ['Getopt'], isa => 'Bool',
- cmd_aliases => ['d'], is => 'ro');
+ cmd_aliases => ['d'], is => 'ro');
$role->meta->apply($meta);
{
}
}
-done_testing;
-