t/cdbi/22-self_referential.t

   1 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 use lib 't/cdbi/testlib';
   9 use Actor;
  10 use ActorAlias;
  11 Actor->has_many( aliases => [ 'ActorAlias' => 'alias' ] );
  12
  13 my $first  = Actor->create( { Name => 'First' } );
  14 my $second = Actor->create( { Name => 'Second' } );
  15
  16 ActorAlias->create( { actor => $first, alias => $second } );
  17
  18 my @aliases = $first->aliases;
  19
  20 is( scalar @aliases, 1, 'proper number of aliases' );
  21 is( $aliases[ 0 ]->name, 'Second', 'proper alias' );
  22
  23 done_testing;