[catagits/CatalystX-DynamicComponent.git] / t / 06_dynamicmodel_interface.t

use strict;
use warnings;

use FindBin qw/$Bin/;
use lib "$Bin/lib";

use Test::More tests => 2;

BEGIN { use_ok('ModelsFromConfigInterfaceApp'); }

my $config = ModelsFromConfigInterfaceApp->config;
delete $config->{'CatalystX::DynamicComponent::ModelToControllerReflector'};

is_deeply($config, {
    name => 'ModelsFromConfigInterfaceApp',
    'Model::One' => {
        class => 'SomeModelClass',
        interface_roles => [qw/ SomeModelClassInterface /],
    },
}, 'Config is not munged');
Commit	Line	Data
1fe9ba78	1	use strict;
	2	use warnings;
	3
	4	use FindBin qw/$Bin/;
	5	use lib "$Bin/lib";
	6
bfbaf28f	7	use Test::More tests => 2;
1fe9ba78	8
	9	BEGIN { use_ok('ModelsFromConfigInterfaceApp'); }
	10
d0fd9aa1	11	my $config = ModelsFromConfigInterfaceApp->config;
	12	delete $config->{'CatalystX::DynamicComponent::ModelToControllerReflector'};
	13
	14	is_deeply($config, {
bfbaf28f	15	name => 'ModelsFromConfigInterfaceApp',
	16	'Model::One' => {
	17	class => 'SomeModelClass',
	18	interface_roles => [qw/ SomeModelClassInterface /],
	19	},
	20	}, 'Config is not munged');
	21