[dbsrgits/DBIx-Class.git] / t / cdbi-t / 22-self_referential.t

use Test::More;\r
\r
BEGIN {\r
  eval "use DBIx::Class::CDBICompat;";\r
  plan $@ ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required') : (tests=> 2);\r
}\r
\r
use strict;\r
\r
use lib 't/testlib';\r
use Actor;\r
use ActorAlias;\r
Actor->has_many( aliases => [ 'ActorAlias' => 'alias' ] );\r
\r
my $first  = Actor->create( { Name => 'First' } );\r
my $second = Actor->create( { Name => 'Second' } );\r
\r
ActorAlias->create( { actor => $first, alias => $second } );\r
\r
my @aliases = $first->aliases;\r
\r
is( scalar @aliases, 1, 'proper number of aliases' );\r
is( $aliases[ 0 ]->name, 'Second', 'proper alias' );\r
\r
\r
Commit	Line	Data
289ba852	1	use Test::More;\r
	2	\r
	3	BEGIN {\r
	4	eval "use DBIx::Class::CDBICompat;";\r
48e8a885	5	plan $@ ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required') : (tests=> 2);\r
289ba852	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