[gitmo/Mouse.git] / t / 900_bug / 004_RT53286.t

#!perl -w
# reported by Christine Spang (RT #53286)
package Foo;
use Mouse;

has app_handle => (
    is       => 'rw',
    isa      => 'Baz',
    required => 1,
);

has handle => (
    is       => 'rw',
    isa      => 'Int',
    # app_handle should not be undef here!
    default  => sub { shift->app_handle->handle() },
);

no Mouse;

1;

package Bar;
use Mouse;

has app_handle => (
    is       => 'rw',
    isa      => 'Baz',
    required => 1,
);

sub do_something {
    my $self = shift;
    my $foo = Foo->new( app_handle => $self->app_handle );
    return $foo->handle;
}

no Mouse;

1;

package Baz;
use Mouse;

sub handle {
    # print "This works correctly.\n";
    return 1;
}

no Mouse;

1;

package main;
use strict;
use warnings;
use Test::More tests => 2;
use Test::Exception;

my $bar = Bar->new( app_handle => Baz->new() );
ok($bar, "Test class Bar instantiated w/attribute app_handle Baz");

# Trigger the default sub of baz's handle attribute, which tries to call
# a method on an attribute which was set to an object passed in via the
# constructor.
lives_and { is($bar->do_something(), 1, "attribute was passed in okay") };
Commit	Line	Data
de821fdf	1	#!perl -w
	2	# reported by Christine Spang (RT #53286)
	3	package Foo;
	4	use Mouse;
	5
	6	has app_handle => (
	7	is => 'rw',
	8	isa => 'Baz',
	9	required => 1,
	10	);
	11
	12	has handle => (
	13	is => 'rw',
	14	isa => 'Int',
	15	# app_handle should not be undef here!
	16	default => sub { shift->app_handle->handle() },
	17	);
	18
	19	no Mouse;
	20
	21	1;
	22
	23	package Bar;
	24	use Mouse;
	25
	26	has app_handle => (
	27	is => 'rw',
	28	isa => 'Baz',
	29	required => 1,
	30	);
	31
	32	sub do_something {
	33	my $self = shift;
	34	my $foo = Foo->new( app_handle => $self->app_handle );
	35	return $foo->handle;
	36	}
	37
	38	no Mouse;
	39
	40	1;
	41
	42	package Baz;
	43	use Mouse;
	44
	45	sub handle {
	46	# print "This works correctly.\n";
	47	return 1;
	48	}
	49
	50	no Mouse;
	51
	52	1;
	53
	54	package main;
	55	use strict;
	56	use warnings;
	57	use Test::More tests => 2;
	58	use Test::Exception;
	59
	60	my $bar = Bar->new( app_handle => Baz->new() );
	61	ok($bar, "Test class Bar instantiated w/attribute app_handle Baz");
	62
	63	# Trigger the default sub of baz's handle attribute, which tries to call
	64	# a method on an attribute which was set to an object passed in via the
65	# constructor.
66	lives_and { is($bar->do_something(), 1, "attribute was passed in okay") };