X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F102_basic_basic.t;h=daf32f3a0baf2e8dc6dde65a3d63914b96476aff;hb=81b19ed83c9e345f960ccefbcd639dd0e3c2de06;hp=b5fbcbd31f75c57e5ea1ca11040e47c227f4bd42;hpb=30ed85f7fc94f619d46a7430aff840b334c0ebce;p=gitmo%2FMooseX-Getopt.git diff --git a/t/102_basic_basic.t b/t/102_basic_basic.t index b5fbcbd..daf32f3 100644 --- a/t/102_basic_basic.t +++ b/t/102_basic_basic.t @@ -12,11 +12,11 @@ BEGIN { { package App; use Moose; - + with 'MooseX::Getopt::Basic'; has 'data' => ( - metaclass => 'MooseX::Getopt::Meta::Attribute', + metaclass => 'MooseX::Getopt::Meta::Attribute', is => 'ro', isa => 'Str', default => 'file.dat', @@ -24,7 +24,7 @@ BEGIN { ); has 'cow' => ( - metaclass => 'Getopt', + metaclass => 'Getopt', is => 'ro', isa => 'Str', default => 'moo', @@ -32,7 +32,7 @@ BEGIN { ); has 'horse' => ( - metaclass => 'MooseX::Getopt::Meta::Attribute', + metaclass => 'MooseX::Getopt::Meta::Attribute', is => 'ro', isa => 'Str', default => 'bray', @@ -48,15 +48,15 @@ BEGIN { has 'verbose' => ( is => 'ro', - isa => 'Bool', + isa => 'Bool', ); - + has 'libs' => ( is => 'ro', isa => 'ArrayRef', default => sub { [] }, - ); - + ); + has 'details' => ( is => 'ro', isa => 'HashRef', @@ -70,13 +70,13 @@ BEGIN { ); has '_private_stuff_cmdline' => ( - metaclass => 'MooseX::Getopt::Meta::Attribute', + metaclass => 'MooseX::Getopt::Meta::Attribute', is => 'ro', isa => 'Int', default => 832, cmd_flag => 'p', ); - + } foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) { @@ -84,7 +84,7 @@ foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) { isa_ok($attr, 'Moose::Meta::Attribute'); isa_ok($attr, 'MooseX::Getopt::Meta::Attribute'); can_ok($attr, 'cmd_flag'); - can_ok($attr, 'cmd_aliases'); + can_ok($attr, 'cmd_aliases'); } { @@ -94,10 +94,10 @@ foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) { isa_ok($app, 'App'); ok(!$app->verbose, '... verbosity is off as expected'); - is($app->length, 24, '... length is 24 as expected'); - is($app->data, 'file.dat', '... data is file.dat as expected'); - is_deeply($app->libs, [], '... libs is [] as expected'); - is_deeply($app->details, {}, '... details is {} as expected'); + is($app->length, 24, '... length is 24 as expected'); + is($app->data, 'file.dat', '... data is file.dat as expected'); + is_deeply($app->libs, [], '... libs is [] as expected'); + is_deeply($app->details, {}, '... details is {} as expected'); } { @@ -107,10 +107,10 @@ foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) { isa_ok($app, 'App'); ok($app->verbose, '... verbosity is turned on as expected'); - is($app->length, 50, '... length is 50 as expected'); - is($app->data, 'file.dat', '... data is file.dat as expected'); - is_deeply($app->libs, [], '... libs is [] as expected'); - is_deeply($app->details, {}, '... details is {} as expected'); + is($app->length, 50, '... length is 50 as expected'); + is($app->data, 'file.dat', '... data is file.dat as expected'); + is_deeply($app->libs, [], '... libs is [] as expected'); + is_deeply($app->details, {}, '... details is {} as expected'); } { @@ -120,10 +120,10 @@ foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) { isa_ok($app, 'App'); ok($app->verbose, '... verbosity is turned on as expected'); - is($app->length, 24, '... length is 24 as expected'); - is($app->data, 'foo.txt', '... data is foo.txt as expected'); - is_deeply($app->libs, [], '... libs is [] as expected'); - is_deeply($app->details, {}, '... details is {} as expected'); + is($app->length, 24, '... length is 24 as expected'); + is($app->data, 'foo.txt', '... data is foo.txt as expected'); + is_deeply($app->libs, [], '... libs is [] as expected'); + is_deeply($app->details, {}, '... details is {} as expected'); } { @@ -133,12 +133,12 @@ foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) { isa_ok($app, 'App'); ok($app->verbose, '... verbosity is turned on as expected'); - is($app->length, 24, '... length is 24 as expected'); - is($app->data, 'file.dat', '... data is foo.txt as expected'); - is_deeply($app->libs, - ['libs/', 'includes/lib'], - '... libs is [libs/, includes/lib] as expected'); - is_deeply($app->details, {}, '... details is {} as expected'); + is($app->length, 24, '... length is 24 as expected'); + is($app->data, 'file.dat', '... data is foo.txt as expected'); + is_deeply($app->libs, + ['libs/', 'includes/lib'], + '... libs is [libs/, includes/lib] as expected'); + is_deeply($app->details, {}, '... details is {} as expected'); } { @@ -148,12 +148,12 @@ foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) { isa_ok($app, 'App'); ok(!$app->verbose, '... verbosity is turned on as expected'); - is($app->length, 24, '... length is 24 as expected'); - is($app->data, 'file.dat', '... data is foo.txt as expected'); - is_deeply($app->libs, [], '... libs is [] as expected'); - is_deeply($app->details, - { os => 'mac', name => 'foo' }, - '... details is { os => mac, name => foo } as expected'); + is($app->length, 24, '... length is 24 as expected'); + is($app->data, 'file.dat', '... data is foo.txt as expected'); + is_deeply($app->libs, [], '... libs is [] as expected'); + is_deeply($app->details, + { os => 'mac', name => 'foo' }, + '... details is { os => mac, name => foo } as expected'); } { @@ -164,10 +164,10 @@ foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) { isa_ok($app, 'App'); ok(!$app->verbose, '... verbosity is turned off as expected'); - is($app->length, 24, '... length is 24 as expected'); - is($app->data, 'file.dat', '... file is file.dat as expected'); - is_deeply($app->libs, [], '... libs is [] as expected'); - is_deeply($app->details, {}, '... details is {} as expected'); + is($app->length, 24, '... length is 24 as expected'); + is($app->data, 'file.dat', '... file is file.dat as expected'); + is_deeply($app->libs, [], '... libs is [] as expected'); + is_deeply($app->details, {}, '... details is {} as expected'); } # Test cmd_alias without cmd_flag