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