6 use Test::More tests => 7;
10 use_ok('MooseX::Getopt');
17 with 'MooseX::Getopt';
20 metaclass => 'MooseX::Getopt::Meta::Attribute',
23 default => 'file.dat',
28 metaclass => 'Getopt',
32 cmd_aliases => [qw/ moocow m c /],
36 metaclass => 'MooseX::Getopt::Meta::Attribute',
58 default => sub { [] },
64 default => sub { {} },
67 has '_private_stuff' => (
73 has '_private_stuff_cmdline' => (
74 metaclass => 'MooseX::Getopt::Meta::Attribute',
84 my $app = App->new_with_options(argv => [ '--verbose', '--length', 50 ]);
89 ok($app->verbose, '... verbosity is turned on as expected');
91 is($app->length, 50, '... length is 50 as expected');
93 is($app->data, 'file.dat', '... data is file.dat as expected');
95 is_deeply($app->libs, [], '... libs is [] as expected');
97 is_deeply($app->details, {}, '... details is {} as expected');