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