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

use warnings;
use strict;
use Test::More;
use Moose::Meta::Class;
use Data::Dumper;

Moose::Meta::Class->create( MyModel => (
    superclasses => ['Catalyst::Model'],
));

Moose::Meta::Class->create( TestAppComponent => (
    superclasses => ['Catalyst'],
));
TestAppComponent->setup_log;
TestAppComponent->setup_config;

ok(TestAppComponent->components({ Test => 'MyModel' }));

# no warnings, and no components dumped
diag(Dumper(TestAppComponent->components()));

done_testing;
Commit	Line	Data
499d8ef4	1	use warnings;
	2	use strict;
	3	use Test::More;
	4	use Moose::Meta::Class;
	5	use Data::Dumper;
	6
	7	Moose::Meta::Class->create( MyModel => (
	8	superclasses => ['Catalyst::Model'],
	9	));
	10
	11	Moose::Meta::Class->create( TestAppComponent => (
	12	superclasses => ['Catalyst'],
	13	));
	14	TestAppComponent->setup_log;
	15	TestAppComponent->setup_config;
	16
	17	ok(TestAppComponent->components({ Test => 'MyModel' }));
	18
	19	# no warnings, and no components dumped
	20	diag(Dumper(TestAppComponent->components()));
	21
	22	done_testing;