fixed _get_component_type's regexp's

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

use strict;
use warnings;

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

use Test::More tests => 5;

use Catalyst::Test 'TestAppContainer';

{
    my $response;
    ok( $response = request( 'http://localhost/config/' ), 'request ok' );
    is( $response->content, 'foo', 'config ok' );

    $response = request( 'http://localhost/appconfig/cache' );
    ok( $response->content && $response->content !~ /^__HOME__/,
        'home dir substituted in config var'
    );

    $response = request( 'http://localhost/appconfig/foo' );
    is( $response->content, 'bar', 'app finalize_config works' );

    $response = request( 'http://localhost/appconfig/multi' );
    my $home = TestAppContainer->config->{ home };
    my $path = join( ',',
        $home, TestAppContainer->path_to( 'x' ),
        $home, TestAppContainer->path_to( 'y' ) );
    is( $response->content, $path, 'vars substituted in config var, twice' );
}