6 use Test::More no_plan => 1;
9 use_ok('MooseX::Getopt');
16 with 'MooseX::Getopt';
19 metaclass => 'MooseX::Getopt::Meta::Attribute',
22 default => 'file.dat',
42 my $app = App->new_with_options;
45 ok(!$app->verbose, '... verbosity is off as expected');
46 is($app->length, 24, '... length is 24 as expected');
47 is($app->data, 'file.dat', '... data is file.dat as expected');
51 local @ARGV = ('-verbose', '-length', 50);
53 my $app = App->new_with_options;
56 ok($app->verbose, '... verbosity is turned on as expected');
57 is($app->length, 50, '... length is 50 as expected');
58 is($app->data, 'file.dat', '... data is file.dat as expected');
62 local @ARGV = ('-verbose', '-f', 'foo.txt');
64 my $app = App->new_with_options;
67 ok($app->verbose, '... verbosity is turned on as expected');
68 is($app->length, 24, '... length is 24 as expected');
69 is($app->data, 'foo.txt', '... data is foo.txt as expected');
73 local @ARGV = ('-noverbose');
75 my $app = App->new_with_options;
78 ok(!$app->verbose, '... verbosity is turned off as expected');
79 is($app->length, 24, '... length is 24 as expected');
80 is($app->data, 'file.dat', '... file is file.dat as expected');