[gitmo/Moose.git] / t / 300_immutable / 013_immutable_roundtrip.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

eval "use Test::Output";
plan skip_all => "Test::Output is required for this test" if $@;

plan tests => 1;

{
    package Foo;
    use Moose;
    __PACKAGE__->meta->make_immutable;
}

{
    package Bar;
    use Moose;

    extends 'Foo';

    __PACKAGE__->meta->make_immutable;
    __PACKAGE__->meta->make_mutable;

    ::stderr_unlike(
        sub { Bar->meta->make_immutable },
        qr/Not inlining a constructor/,
        'no warning that Bar may not have an inlined constructor'
    );
}
Commit	Line	Data
43d2935a	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
	8	eval "use Test::Output";
	9	plan skip_all => "Test::Output is required for this test" if $@;
	10
	11	plan tests => 1;
	12
	13	{
	14	package Foo;
	15	use Moose;
	16	__PACKAGE__->meta->make_immutable;
	17	}
c4022d38	18
c4022d38	19	{
43d2935a	20	package Bar;
	21	use Moose;
	22
	23	extends 'Foo';
	24
	25	__PACKAGE__->meta->make_immutable;
	26	__PACKAGE__->meta->make_mutable;
	27
43d2935a	28	::stderr_unlike(
	29	sub { Bar->meta->make_immutable },
	30	qr/Not inlining a constructor/,
	31	'no warning that Bar may not have an inlined constructor'
	32	);
	33	}
	34