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

#!perl

use FindBin;
use lib "$FindBin::Bin/../lib";

use Test::More;
use TestAppContainer;

my $applevel_config = TestAppContainer->container->resolve(service => 'config')->{applevel_config};

ok($applevel_config, 'applevel_config exists in the container');
is($applevel_config, 'foo', 'and has the correct value');

$applevel_config = TestAppContainer->config->{applevel_config};

ok($applevel_config, 'applevel_config exists in the config accessor');
is($applevel_config, 'foo', 'and has the correct value');

my $home = TestAppContainer->container->resolve(service => 'config')->{home};
ok( $home );

$home = TestAppContainer->config->{home};
ok( $home );

done_testing;
Commit	Line	Data
dcd60825	1	#!perl
	2
	3	use FindBin;
	4	use lib "$FindBin::Bin/../lib";
	5
	6	use Test::More;
	7	use TestAppContainer;
	8
	9	my $applevel_config = TestAppContainer->container->resolve(service => 'config')->{applevel_config};
	10
	11	ok($applevel_config, 'applevel_config exists in the container');
	12	is($applevel_config, 'foo', 'and has the correct value');
	13
	14	$applevel_config = TestAppContainer->config->{applevel_config};
	15
	16	ok($applevel_config, 'applevel_config exists in the config accessor');
	17	is($applevel_config, 'foo', 'and has the correct value');
	18
38957dfe	19	my $home = TestAppContainer->container->resolve(service => 'config')->{home};
	20	ok( $home );
	21
	22	$home = TestAppContainer->config->{home};
	23	ok( $home );
	24
dcd60825	25	done_testing;