Commit | Line | Data |
33ce49d6 |
1 | use Test::More tests => 2;\r |
2 | \r |
3 | use strict;\r |
4 | \r |
5 | use lib 't/testlib';\r |
6 | use Actor;\r |
7 | use ActorAlias;\r |
8 | Actor->has_many( aliases => [ 'ActorAlias' => 'alias' ] );\r |
9 | \r |
10 | my $first = Actor->create( { Name => 'First' } );\r |
11 | my $second = Actor->create( { Name => 'Second' } );\r |
12 | \r |
13 | ActorAlias->create( { actor => $first, alias => $second } );\r |
14 | \r |
15 | my @aliases = $first->aliases;\r |
16 | \r |
17 | is( scalar @aliases, 1, 'proper number of aliases' );\r |
18 | is( $aliases[ 0 ]->name, 'Second', 'proper alias' );\r |
19 | \r |
20 | \r |