[catagits/Catalyst-Runtime.git] / t / aggregate / c3_appclass_bug.t

use strict;
use Test::More tests => 1;

{
    package TestPlugin;
    use strict;

    sub setup {
        shift->maybe::next::method(@_);
    }
}
{
    package TestAppC3ErrorUseMoose;
    use Moose;

    use Catalyst::Runtime 5.80;

    use base qw/Catalyst/;
    use Catalyst qw/
        +TestPlugin
    /;
}

use Test::Exception;
lives_ok {
    TestAppC3ErrorUseMoose->setup();
} 'No C3 error';

1;
Commit	Line	Data
1cad29ab	1	use strict;
	2	use Test::More tests => 1;
	3
	4	{
	5	package TestPlugin;
	6	use strict;
	7
	8	sub setup {
	9	shift->maybe::next::method(@_);
	10	}
	11	}
	12	{
	13	package TestAppC3ErrorUseMoose;
	14	use Moose;
	15
	16	use Catalyst::Runtime 5.80;
	17
	18	use base qw/Catalyst/;
	19	use Catalyst qw/
	20	+TestPlugin
	21	/;
	22	}
	23
	24	use Test::Exception;
	25	lives_ok {
	26	TestAppC3ErrorUseMoose->setup();
	27	} 'No C3 error';
	28
	29	1;
	30