[catagits/Catalyst-Model-DBIC-Schema.git] / t / lib / TestAppC3Fail.pm

package TestAppC3Fail;
use strict;
use warnings;
use Class::C3; # This causes the fail, saying use MRO::Compat is fine..

our $VERSION = '0.0001';

use Catalyst::Runtime '5.70';
use Catalyst;

__PACKAGE__->config(
    name => 'TestAppC3Fail',
);

my @keys = sort keys( %{ __PACKAGE__->config } );

__PACKAGE__->setup;

my @new_keys = sort keys( %{ __PACKAGE__->config } );
use Test::More;

is_deeply(\@new_keys, \@keys, 'Config keys correct');

1;
Commit	Line	Data
924bf2b9	1	package TestAppC3Fail;
	2	use strict;
	3	use warnings;
	4	use Class::C3; # This causes the fail, saying use MRO::Compat is fine..
	5
	6	our $VERSION = '0.0001';
	7
	8	use Catalyst::Runtime '5.70';
	9	use Catalyst;
	10
	11	__PACKAGE__->config(
	12	name => 'TestAppC3Fail',
	13	);
	14
	15	my @keys = sort keys( %{ __PACKAGE__->config } );
	16
	17	__PACKAGE__->setup;
	18
	19	my @new_keys = sort keys( %{ __PACKAGE__->config } );
	20	use Test::More;
	21
	22	is_deeply(\@new_keys, \@keys, 'Config keys correct');
	23
	24	1;
	25