[dbsrgits/DBIx-Class.git] / t / 18self_referencial.t

use Test::More;\r
\r
# this test will check to see if you can have 2 columns\r
# in the same class pointing at the same other class\r
#\r
# example:\r
#\r
# +---------+       +--------------+\r
# | SelfRef |       | SelfRefAlias |\r
# +---------+  1-M  +--------------+\r
# | id      |-------| self_ref     | --+\r
# | name    |       | alias        | --+\r
# +---------+       +--------------+   |\r
#    /|\                               |\r
#     |                                |\r
#     +--------------------------------+\r
#\r
# see http://use.perl.org/~LTjake/journal/24876 for the\r
# issue with CDBI\r
\r
plan tests => 5;\r
\r
use lib qw( t/lib );\r
\r
use_ok( 'DBICTest' );\r
\r
my $item = DBICTest::SelfRef->find( 1 );\r
is( $item->name, 'First', 'proper start item' );\r
\r
my @aliases = $item->aliases;\r
\r
is( scalar @aliases, 1, 'proper number of aliases' );\r
\r
my $orig  = $aliases[ 0 ]->self_ref;\r
my $alias = $aliases[ 0 ]->alias;\r
\r
is( $orig->name, 'First', 'proper original' );\r
is( $alias->name, 'Second', 'proper alias' );
Commit	Line	Data
ccae0573	1	use Test::More;\r
	2	\r
	3	# this test will check to see if you can have 2 columns\r
	4	# in the same class pointing at the same other class\r
	5	#\r
	6	# example:\r
	7	#\r
	8	# +---------+ +--------------+\r
	9	# \| SelfRef \| \| SelfRefAlias \|\r
	10	# +---------+ 1-M +--------------+\r
	11	# \| id \|-------\| self_ref \| --+\r
	12	# \| name \| \| alias \| --+\r
	13	# +---------+ +--------------+ \|\r
	14	# /\|\ \|\r
	15	# \| \|\r
	16	# +--------------------------------+\r
	17	#\r
	18	# see http://use.perl.org/~LTjake/journal/24876 for the\r
	19	# issue with CDBI\r
	20	\r
	21	plan tests => 5;\r
	22	\r
	23	use lib qw( t/lib );\r
	24	\r
	25	use_ok( 'DBICTest' );\r
	26	\r
	27	my $item = DBICTest::SelfRef->find( 1 );\r
	28	is( $item->name, 'First', 'proper start item' );\r
	29	\r
	30	my @aliases = $item->aliases;\r
	31	\r
	32	is( scalar @aliases, 1, 'proper number of aliases' );\r
	33	\r
	34	my $orig = $aliases[ 0 ]->self_ref;\r
	35	my $alias = $aliases[ 0 ]->alias;\r
	36	\r
	37	is( $orig->name, 'First', 'proper original' );\r
	38	is( $alias->name, 'Second', 'proper alias' );