More test hackage, some cleanup in ResultSet

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

sub run_tests {
my $schema = shift;\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 => 4;\r
\r
my $item = $schema->resultset("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' );\r
\r
}\r
\r
1;\r