1use Test::More;
2
3BEGIN {
4  eval "use DBIx::Class::CDBICompat;";
5  plan $@ ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required') : (tests=> 2);
6}
7
8use strict;
9
10use lib 't/cdbi/testlib';
11use Actor;
12use ActorAlias;
13Actor->has_many( aliases => [ 'ActorAlias' => 'alias' ] );
14
15my $first  = Actor->create( { Name => 'First' } );
16my $second = Actor->create( { Name => 'Second' } );
17
18ActorAlias->create( { actor => $first, alias => $second } );
19
20my @aliases = $first->aliases;
21
22is( scalar @aliases, 1, 'proper number of aliases' );
23is( $aliases[ 0 ]->name, 'Second', 'proper alias' );
24
25
26