[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;
}
TODO: {
    package Bar;
    use Moose;

    extends 'Foo';

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

    use Test::More;
    local $TODO = 'Known bug';

    ::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	}
	18	TODO: {
	19	package Bar;
	20	use Moose;
	21
	22	extends 'Foo';
	23
	24	__PACKAGE__->meta->make_immutable;
	25	__PACKAGE__->meta->make_mutable;
	26
	27	use Test::More;
	28	local $TODO = 'Known bug';
	29
	30	::stderr_unlike(
	31	sub { Bar->meta->make_immutable },
	32	qr/Not inlining a constructor/,
	33	'no warning that Bar may not have an inlined constructor'
	34	);
	35	}
	36