[gitmo/Moose.git] / t / immutable / constructor_is_wrapped.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use Test::Requires {
    'Test::Output' => '0.01', # skip all if not installed
};

{
    package ModdedNew;
    use Moose;

    before 'new' => sub { };
}

{
    package Foo;
    use Moose;

    extends 'ModdedNew';

    ::stderr_like(
        sub { Foo->meta->make_immutable },
        qr/\QNot inlining 'new' for Foo since it has method modifiers which would be lost if it were inlined/,
        'got a warning that Foo may not have an inlined constructor'
    );
}

done_testing;
Commit	Line	Data
81766020	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
3d659f7f	6	use Test::More;
4d438a84	7
	8	use Test::Requires {
	9	'Test::Output' => '0.01', # skip all if not installed
	10	};
81766020	11
	12	{
	13	package ModdedNew;
	14	use Moose;
	15
	16	before 'new' => sub { };
	17	}
	18
	19	{
	20	package Foo;
	21	use Moose;
	22
	23	extends 'ModdedNew';
	24
eedb62c7	25	::stderr_like(
81766020	26	sub { Foo->meta->make_immutable },
e6f3e98e	27	qr/\QNot inlining 'new' for Foo since it has method modifiers which would be lost if it were inlined/,
81766020	28	'got a warning that Foo may not have an inlined constructor'
	29	);
	30	}
a28e50e4	31
a28e50e4	32	done_testing;