Switch to catalyst_component_name

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

use strict;
use warnings;

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

use Test::More tests => 6;
use Catalyst::Test 'TestApp';

{
    my $response = request('http://localhost/anon/test');
    ok($response->is_success);
    is($response->header('X-Component-Name-Action'),
        'TestApp::Controller::Anon', 'Action can see correct catalyst_component_name');
    isnt($response->header('X-Component-Instance-Name-Action'),
        'TestApp::Controller::Anon', 'ref($controller) ne catalyst_component_name');
    is($response->header('X-Component-Name-Controller'),
        'TestApp::Controller::Anon', 'Controller can see correct catalyst_component_name');
    is($response->header('X-Class-In-Action'),
        'TestApp::Controller::Anon', '$action->class is catalyst_component_name');
    is($response->header('X-Anon-Trait-Applied'),
        '1', 'Anon controller class has trait applied correctly');
}