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