[gitmo/Moose.git] / t / 300_immutable / 005_multiple_demolish_inline.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 5;
use Test::Exception;


{
    package Foo;
    use Moose;

    has 'foo' => (is => 'rw', isa => 'Int');

    sub DEMOLISH { }
}

{
    package Bar;
    use Moose;

    extends qw(Foo);
    has 'bar' => (is => 'rw', isa => 'Int');

    sub DEMOLISH { }
}

lives_ok {
    Bar->new();
} 'Bar->new()';

lives_ok {
    Bar->meta->make_immutable;
} 'Bar->meta->make_immutable';

is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
    'Bar has a DESTROY method in the Bar class (not inherited)' );

lives_ok {
    Foo->meta->make_immutable;
} 'Foo->meta->make_immutable';

is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
    'Foo has a DESTROY method in the Bar class (not inherited)' );
Commit	Line	Data
ee7f68b6	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
9f79e616	6	use Test::More tests => 5;
ee7f68b6	7	use Test::Exception;
ee7f68b6	8
7ff56534	9
ee7f68b6	10
	11	{
	12	package Foo;
	13	use Moose;
	14
	15	has 'foo' => (is => 'rw', isa => 'Int');
	16
	17	sub DEMOLISH { }
	18	}
	19
	20	{
	21	package Bar;
	22	use Moose;
	23
	24	extends qw(Foo);
	25	has 'bar' => (is => 'rw', isa => 'Int');
	26
	27	sub DEMOLISH { }
	28	}
	29
	30	lives_ok {
	31	Bar->new();
	32	} 'Bar->new()';
	33
	34	lives_ok {
a63e370d	35	Bar->meta->make_immutable;
	36	} 'Bar->meta->make_immutable';
	37
	38	is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
	39	'Bar has a DESTROY method in the Bar class (not inherited)' );
8756d34f	40
	41	lives_ok {
	42	Foo->meta->make_immutable;
	43	} 'Foo->meta->make_immutable';
	44
	45	is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
	46	'Foo has a DESTROY method in the Bar class (not inherited)' );