[gitmo/Mouse.git] / Moose-t-failing / 300_immutable / 011_constructor_is_wrapped.t

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

use strict;
use warnings;

use Test::More;
$TODO = q{Mouse is not yet completed};

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

{
    package ModdedNew;
    use Mouse;

    before 'new' => sub { };
}

{
    package Foo;
    use Mouse;

    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
1743c026	1	#!/usr/bin/perl
	2	# This is automatically generated by author/import-moose-test.pl.
	3	# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
	4	use t::lib::MooseCompat;
	5
	6	use strict;
	7	use warnings;
	8
	9	use Test::More;
	10	$TODO = q{Mouse is not yet completed};
	11
	12	use Test::Requires {
	13	'Test::Output' => '0.01', # skip all if not installed
	14	};
	15
	16	{
	17	package ModdedNew;
	18	use Mouse;
	19
	20	before 'new' => sub { };
	21	}
	22
	23	{
	24	package Foo;
	25	use Mouse;
	26
	27	extends 'ModdedNew';
	28
	29	::stderr_like(
	30	sub { Foo->meta->make_immutable },
	31	qr/\QNot inlining 'new' for Foo since it has method modifiers which would be lost if it were inlined/,
	32	'got a warning that Foo may not have an inlined constructor'
	33	);
	34	}
	35
	36	done_testing;