[gitmo/MooseX-Getopt.git] / t / 006_metaclass_traits.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 291;
use Test::Moose;

BEGIN {
    use_ok('MooseX::Getopt');
}

{
    package App;
    use Moose;

    with 'MooseX::Getopt';

    has 'data' => (
        traits    => [ 'MooseX::Getopt::Meta::Attribute::Trait' ],
        is        => 'ro',
        isa       => 'Str',
        default   => 'file.dat',
        cmd_flag  => 'f',
    );

    has 'cow' => (
        traits      => [ 'Getopt' ],
        is          => 'ro',
        isa         => 'Str',
        default     => 'moo',
        cmd_aliases => [qw/ moocow m c /],
    );

    has 'horse' => (
        traits      => [ 'Getopt' ],
        is          => 'ro',
        isa         => 'Str',
        default     => 'bray',
        cmd_flag    => 'horsey',
        cmd_aliases => 'x',
    );

    has 'guinea_pig' => (
        traits      => [ 'Getopt' ],
        is          => 'ro',
        isa         => 'Str',
        default     => 'squeak',
        cmd_flag    => 'guinea-pig',
        cmd_aliases => [qw/ cavia-porcellus /],
    );

    has 'length' => (
        is      => 'ro',
        isa     => 'Int',
        default => 24
    );

    has 'verbose' => (
        is     => 'ro',
        isa    => 'Bool',
    );

    has 'libs' => (
        is      => 'ro',
        isa     => 'ArrayRef',
        default => sub { [] },
    );

    has 'details' => (
        is      => 'ro',
        isa     => 'HashRef',
        default => sub { {} },
    );

    has '_private_stuff' => (
        is      => 'ro',
        isa     => 'Int',
        default => 713
    );

    has '_private_stuff_cmdline' => (
        traits    => [ 'Getopt' ],
        is        => 'ro',
        isa       => 'Int',
        default   => 832,
        cmd_flag  => 'p',
    );

}

foreach my $attr_name (qw(data cow horse guinea_pig _private_stuff_cmdline)) {
    my $attr = App->meta->get_attribute($attr_name);
    isa_ok($attr, 'Moose::Meta::Attribute');
    does_ok($attr, 'MooseX::Getopt::Meta::Attribute::Trait');

    can_ok($attr, 'cmd_flag');
    can_ok($attr, 'cmd_aliases');
}

foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser::Descriptive MooseX::Getopt::Parser::Default)) {
    SKIP: {
        if ($parser_name eq 'MooseX::Getopt::Parser::Descriptive') {
            eval { require Getopt::Long::Descriptive };
            skip "Getopt::Long::Descriptive not installed", 90 if $@;
        }

        {
            local @ARGV = ();

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            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');
        }

        {
            local @ARGV = ('--verbose', '--length', 50);

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            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');
        }

        {
            local @ARGV = ('--verbose', '-f', 'foo.txt');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            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');
        }

        {
            local @ARGV = ('--verbose', '--libs', 'libs/', '--libs', 'includes/lib');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            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');
        }

        {
            local @ARGV = ('--details', 'os=mac', '--details', 'name=foo');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            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');
        }

        {
            # Test negation on booleans too ...
            local @ARGV = ('--noverbose');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            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');
        }

        # Test cmd_alias without cmd_flag
        {
            local @ARGV = ('--cow', '42');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->cow, 42, 'cmd_alias, but not using it');
        }
        {
            local @ARGV = ('--moocow', '88');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->cow, 88, 'cmd_alias, using long one');
        }
        {
            local @ARGV = ('-c', '99');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->cow, 99, 'cmd_alias, using short one');
        }

        # Test cmd_alias + cmd_flag
        {
            local @ARGV = ('--horsey', '123');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->horse, 123, 'cmd_alias+cmd_flag, using flag');
        }
        {
            local @ARGV = ('-x', '321');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->horse, 321, 'cmd_alias+cmd_flag, using alias');
        }

        # Test cmd_alias + cmd_flag with hyphen
        {
            local @ARGV = ();

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->guinea_pig, 'squeak', 'cmd_alias+cmd_flag with hyphen, using default');
        }
        {
            local @ARGV = ('guinea-pig', 'babe');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->guinea_pig, 'squeak', 'cmd_alias+cmd_flag with hyphen, using flag');
        }
        {
            local @ARGV = ('--cavia-porcellus', 'babe');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->guinea_pig, 'babe', 'cmd_alias+cmd_flag with hyphen, using alias');
        }

        # Test _foo + cmd_flag
        {
            local @ARGV = ('-p', '666');

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is($app->_private_stuff_cmdline, 666, '_foo + cmd_flag');
        }

        # Test ARGV support
        {
            my @args = ('-p', 12345, '-c', 99, '-');
            local @ARGV = @args;

            my $parser = $parser_name->new;
            ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');

            my $getopt = MooseX::Getopt::Session->new( parser => $parser );
            isa_ok($getopt, 'MooseX::Getopt::Session');

            my $app = App->new_with_options( getopt => $getopt );
            isa_ok($app, 'App');
            is_deeply($app->ARGV, \@args, 'ARGV accessor');
            is_deeply(\@ARGV, \@args, '@ARGV unmangled');
            is_deeply($app->extra_argv, ['-'], 'extra_argv accessor');
        }

    }
}
Commit	Line	Data
adbe3e57	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
ec05c565	6	use Test::More tests => 291;
adbe3e57	7	use Test::Moose;
	8
	9	BEGIN {
	10	use_ok('MooseX::Getopt');
	11	}
	12
	13	{
	14	package App;
	15	use Moose;
053fa19e	16
adbe3e57	17	with 'MooseX::Getopt';
	18
	19	has 'data' => (
053fa19e	20	traits => [ 'MooseX::Getopt::Meta::Attribute::Trait' ],
adbe3e57	21	is => 'ro',
	22	isa => 'Str',
	23	default => 'file.dat',
	24	cmd_flag => 'f',
	25	);
	26
	27	has 'cow' => (
053fa19e	28	traits => [ 'Getopt' ],
adbe3e57	29	is => 'ro',
	30	isa => 'Str',
	31	default => 'moo',
	32	cmd_aliases => [qw/ moocow m c /],
	33	);
	34
	35	has 'horse' => (
053fa19e	36	traits => [ 'Getopt' ],
adbe3e57	37	is => 'ro',
	38	isa => 'Str',
	39	default => 'bray',
	40	cmd_flag => 'horsey',
	41	cmd_aliases => 'x',
	42	);
	43
ec05c565	44	has 'guinea_pig' => (
	45	traits => [ 'Getopt' ],
	46	is => 'ro',
	47	isa => 'Str',
	48	default => 'squeak',
	49	cmd_flag => 'guinea-pig',
	50	cmd_aliases => [qw/ cavia-porcellus /],
	51	);
	52
adbe3e57	53	has 'length' => (
	54	is => 'ro',
	55	isa => 'Int',
	56	default => 24
	57	);
	58
	59	has 'verbose' => (
	60	is => 'ro',
053fa19e	61	isa => 'Bool',
adbe3e57	62	);
053fa19e	63
adbe3e57	64	has 'libs' => (
	65	is => 'ro',
	66	isa => 'ArrayRef',
	67	default => sub { [] },
053fa19e	68	);
053fa19e	69
adbe3e57	70	has 'details' => (
	71	is => 'ro',
	72	isa => 'HashRef',
	73	default => sub { {} },
	74	);
	75
	76	has '_private_stuff' => (
	77	is => 'ro',
	78	isa => 'Int',
	79	default => 713
	80	);
	81
	82	has '_private_stuff_cmdline' => (
053fa19e	83	traits => [ 'Getopt' ],
adbe3e57	84	is => 'ro',
	85	isa => 'Int',
	86	default => 832,
	87	cmd_flag => 'p',
	88	);
053fa19e	89
adbe3e57	90	}
adbe3e57	91
ec05c565	92	foreach my $attr_name (qw(data cow horse guinea_pig _private_stuff_cmdline)) {
adbe3e57	93	my $attr = App->meta->get_attribute($attr_name);
	94	isa_ok($attr, 'Moose::Meta::Attribute');
	95	does_ok($attr, 'MooseX::Getopt::Meta::Attribute::Trait');
053fa19e	96
adbe3e57	97	can_ok($attr, 'cmd_flag');
053fa19e	98	can_ok($attr, 'cmd_aliases');
adbe3e57	99	}
adbe3e57	100
ac2073c8	101	foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser::Descriptive MooseX::Getopt::Parser::Default)) {
053fa19e	102	SKIP: {
	103	if ($parser_name eq 'MooseX::Getopt::Parser::Descriptive') {
	104	eval { require Getopt::Long::Descriptive };
ec05c565	105	skip "Getopt::Long::Descriptive not installed", 90 if $@;
053fa19e	106	}
adbe3e57	107
053fa19e	108	{
053fa19e	109	local @ARGV = ();
adbe3e57	110
053fa19e	111	my $parser = $parser_name->new;
ac2073c8	112	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
adbe3e57	113
053fa19e	114	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
053fa19e	115	isa_ok($getopt, 'MooseX::Getopt::Session');
adbe3e57	116
053fa19e	117	my $app = App->new_with_options( getopt => $getopt );
053fa19e	118	isa_ok($app, 'App');
adbe3e57	119
053fa19e	120	ok(!$app->verbose, '... verbosity is off as expected');
	121	is($app->length, 24, '... length is 24 as expected');
	122	is($app->data, 'file.dat', '... data is file.dat as expected');
	123	is_deeply($app->libs, [], '... libs is [] as expected');
	124	is_deeply($app->details, {}, '... details is {} as expected');
	125	}
adbe3e57	126
053fa19e	127	{
053fa19e	128	local @ARGV = ('--verbose', '--length', 50);
adbe3e57	129
053fa19e	130	my $parser = $parser_name->new;
ac2073c8	131	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
adbe3e57	132
053fa19e	133	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
053fa19e	134	isa_ok($getopt, 'MooseX::Getopt::Session');
adbe3e57	135
053fa19e	136	my $app = App->new_with_options( getopt => $getopt );
053fa19e	137	isa_ok($app, 'App');
adbe3e57	138
053fa19e	139	ok($app->verbose, '... verbosity is turned on as expected');
	140	is($app->length, 50, '... length is 50 as expected');
	141	is($app->data, 'file.dat', '... data is file.dat as expected');
	142	is_deeply($app->libs, [], '... libs is [] as expected');
	143	is_deeply($app->details, {}, '... details is {} as expected');
	144	}
adbe3e57	145
053fa19e	146	{
053fa19e	147	local @ARGV = ('--verbose', '-f', 'foo.txt');
adbe3e57	148
053fa19e	149	my $parser = $parser_name->new;
ac2073c8	150	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
adbe3e57	151
053fa19e	152	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
053fa19e	153	isa_ok($getopt, 'MooseX::Getopt::Session');
adbe3e57	154
053fa19e	155	my $app = App->new_with_options( getopt => $getopt );
053fa19e	156	isa_ok($app, 'App');
adbe3e57	157
053fa19e	158	ok($app->verbose, '... verbosity is turned on as expected');
	159	is($app->length, 24, '... length is 24 as expected');
	160	is($app->data, 'foo.txt', '... data is foo.txt as expected');
	161	is_deeply($app->libs, [], '... libs is [] as expected');
	162	is_deeply($app->details, {}, '... details is {} as expected');
	163	}
adbe3e57	164
053fa19e	165	{
053fa19e	166	local @ARGV = ('--verbose', '--libs', 'libs/', '--libs', 'includes/lib');
adbe3e57	167
053fa19e	168	my $parser = $parser_name->new;
ac2073c8	169	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	170
	171	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	172	isa_ok($getopt, 'MooseX::Getopt::Session');
	173
	174	my $app = App->new_with_options( getopt => $getopt );
	175	isa_ok($app, 'App');
	176
	177	ok($app->verbose, '... verbosity is turned on as expected');
	178	is($app->length, 24, '... length is 24 as expected');
	179	is($app->data, 'file.dat', '... data is foo.txt as expected');
	180	is_deeply($app->libs,
	181	['libs/', 'includes/lib'],
	182	'... libs is [libs/, includes/lib] as expected');
	183	is_deeply($app->details, {}, '... details is {} as expected');
	184	}
	185
	186	{
	187	local @ARGV = ('--details', 'os=mac', '--details', 'name=foo');
	188
	189	my $parser = $parser_name->new;
ac2073c8	190	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	191
	192	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	193	isa_ok($getopt, 'MooseX::Getopt::Session');
	194
	195	my $app = App->new_with_options( getopt => $getopt );
	196	isa_ok($app, 'App');
	197
	198	ok(!$app->verbose, '... verbosity is turned on as expected');
	199	is($app->length, 24, '... length is 24 as expected');
	200	is($app->data, 'file.dat', '... data is foo.txt as expected');
	201	is_deeply($app->libs, [], '... libs is [] as expected');
	202	is_deeply($app->details,
	203	{ os => 'mac', name => 'foo' },
	204	'... details is { os => mac, name => foo } as expected');
	205	}
	206
	207	{
	208	# Test negation on booleans too ...
	209	local @ARGV = ('--noverbose');
	210
	211	my $parser = $parser_name->new;
ac2073c8	212	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	213
	214	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	215	isa_ok($getopt, 'MooseX::Getopt::Session');
	216
	217	my $app = App->new_with_options( getopt => $getopt );
	218	isa_ok($app, 'App');
	219
	220	ok(!$app->verbose, '... verbosity is turned off as expected');
	221	is($app->length, 24, '... length is 24 as expected');
	222	is($app->data, 'file.dat', '... file is file.dat as expected');
	223	is_deeply($app->libs, [], '... libs is [] as expected');
	224	is_deeply($app->details, {}, '... details is {} as expected');
	225	}
	226
	227	# Test cmd_alias without cmd_flag
	228	{
	229	local @ARGV = ('--cow', '42');
	230
	231	my $parser = $parser_name->new;
ac2073c8	232	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	233
	234	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	235	isa_ok($getopt, 'MooseX::Getopt::Session');
	236
	237	my $app = App->new_with_options( getopt => $getopt );
	238	isa_ok($app, 'App');
	239	is($app->cow, 42, 'cmd_alias, but not using it');
	240	}
	241	{
	242	local @ARGV = ('--moocow', '88');
	243
	244	my $parser = $parser_name->new;
ac2073c8	245	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	246
	247	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	248	isa_ok($getopt, 'MooseX::Getopt::Session');
	249
	250	my $app = App->new_with_options( getopt => $getopt );
	251	isa_ok($app, 'App');
	252	is($app->cow, 88, 'cmd_alias, using long one');
	253	}
	254	{
	255	local @ARGV = ('-c', '99');
	256
	257	my $parser = $parser_name->new;
ac2073c8	258	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	259
	260	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	261	isa_ok($getopt, 'MooseX::Getopt::Session');
	262
	263	my $app = App->new_with_options( getopt => $getopt );
	264	isa_ok($app, 'App');
	265	is($app->cow, 99, 'cmd_alias, using short one');
	266	}
	267
	268	# Test cmd_alias + cmd_flag
	269	{
	270	local @ARGV = ('--horsey', '123');
	271
	272	my $parser = $parser_name->new;
ac2073c8	273	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	274
	275	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	276	isa_ok($getopt, 'MooseX::Getopt::Session');
	277
	278	my $app = App->new_with_options( getopt => $getopt );
	279	isa_ok($app, 'App');
	280	is($app->horse, 123, 'cmd_alias+cmd_flag, using flag');
	281	}
	282	{
	283	local @ARGV = ('-x', '321');
	284
	285	my $parser = $parser_name->new;
ac2073c8	286	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	287
	288	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	289	isa_ok($getopt, 'MooseX::Getopt::Session');
	290
	291	my $app = App->new_with_options( getopt => $getopt );
	292	isa_ok($app, 'App');
	293	is($app->horse, 321, 'cmd_alias+cmd_flag, using alias');
	294	}
	295
ec05c565	296	# Test cmd_alias + cmd_flag with hyphen
	297	{
	298	local @ARGV = ();
	299
	300	my $parser = $parser_name->new;
	301	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
	302
	303	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	304	isa_ok($getopt, 'MooseX::Getopt::Session');
	305
	306	my $app = App->new_with_options( getopt => $getopt );
	307	isa_ok($app, 'App');
	308	is($app->guinea_pig, 'squeak', 'cmd_alias+cmd_flag with hyphen, using default');
	309	}
	310	{
	311	local @ARGV = ('guinea-pig', 'babe');
	312
	313	my $parser = $parser_name->new;
	314	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
	315
	316	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	317	isa_ok($getopt, 'MooseX::Getopt::Session');
	318
	319	my $app = App->new_with_options( getopt => $getopt );
	320	isa_ok($app, 'App');
	321	is($app->guinea_pig, 'squeak', 'cmd_alias+cmd_flag with hyphen, using flag');
	322	}
	323	{
	324	local @ARGV = ('--cavia-porcellus', 'babe');
	325
	326	my $parser = $parser_name->new;
	327	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
	328
	329	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	330	isa_ok($getopt, 'MooseX::Getopt::Session');
	331
	332	my $app = App->new_with_options( getopt => $getopt );
	333	isa_ok($app, 'App');
	334	is($app->guinea_pig, 'babe', 'cmd_alias+cmd_flag with hyphen, using alias');
	335	}
	336
053fa19e	337	# Test _foo + cmd_flag
	338	{
	339	local @ARGV = ('-p', '666');
	340
	341	my $parser = $parser_name->new;
ac2073c8	342	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	343
	344	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	345	isa_ok($getopt, 'MooseX::Getopt::Session');
	346
	347	my $app = App->new_with_options( getopt => $getopt );
	348	isa_ok($app, 'App');
	349	is($app->_private_stuff_cmdline, 666, '_foo + cmd_flag');
	350	}
	351
	352	# Test ARGV support
	353	{
	354	my @args = ('-p', 12345, '-c', 99, '-');
	355	local @ARGV = @args;
	356
	357	my $parser = $parser_name->new;
ac2073c8	358	ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
053fa19e	359
	360	my $getopt = MooseX::Getopt::Session->new( parser => $parser );
	361	isa_ok($getopt, 'MooseX::Getopt::Session');
	362
	363	my $app = App->new_with_options( getopt => $getopt );
	364	isa_ok($app, 'App');
	365	is_deeply($app->ARGV, \@args, 'ARGV accessor');
	366	is_deeply(\@ARGV, \@args, '@ARGV unmangled');
	367	is_deeply($app->extra_argv, ['-'], 'extra_argv accessor');
	368	}
	369
	370	}
adbe3e57	371	}