X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Getopt.git;a=blobdiff_plain;f=t%2F001_basic.t;fp=t%2F001_basic.t;h=b7bea2d273e26ac8b40e3b33db06b9c410aa96d9;hp=6c1c1fa4e1fd0b814267f4dab93b1fb8fba9c3a2;hb=2557b52647dda5b9e090b324d950d4a55db74bae;hpb=d03999d67f2821eaeb230268318be45d3fb11c59 diff --git a/t/001_basic.t b/t/001_basic.t index 6c1c1fa..b7bea2d 100644 --- a/t/001_basic.t +++ b/t/001_basic.t @@ -12,11 +12,11 @@ BEGIN { { package App; use Moose; - + with 'MooseX::Getopt'; 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