1use strict;
2use warnings;
3use Test::More tests => 2;
4
5{
6    package Catalyst::Model::CatModel;
7    use Moose;
8    extends 'Catalyst::Model';
9    with 'CatalystX::Component::Traits';
10
11    package My::App::Model::AModel;
12    use base 'Catalyst::Model::CatModel';
13}
14
15ok((my $instance = My::App::Model::AModel->new), 'instance');
16
17is_deeply [$instance->_trait_search_order('Trait', 'Foo')], [
18    'My::App::TraitFor::Model::CatModel::Foo',
19    'Catalyst::TraitFor::Model::CatModel::Foo',
20], 'trait search order';
21