1use strict;
2use warnings;
3use Test::More tests => 2;
4
5{
6    package CatalystX::Something::ControllerBase::SomeController;
7    use Moose;
8    extends 'Catalyst::Controller';
9    with 'CatalystX::Component::Traits';
10
11    package My::App::Controller::AController;
12    use base 'CatalystX::Something::ControllerBase::SomeController';
13}
14
15# squash warning from catalyst
16my $instance;
17{
18    local $SIG{__WARN__} = sub {};
19
20    ok(($instance = My::App::Controller::AController->new), 'instance');
21}
22
23is_deeply [$instance->_trait_search_order('Trait', 'Foo')], [
24    'My::App::TraitFor::Controller::SomeController::Foo',
25    'CatalystX::Something::TraitFor::Controller::SomeController::Foo',
26], 'trait search order';
27