4 # this test will check to see if you can have 2 columns
\r
5 # in the same class pointing at the same other class
\r
9 # +---------+ +--------------+
\r
10 # | SelfRef | | SelfRefAlias |
\r
11 # +---------+ 1-M +--------------+
\r
12 # | id |-------| self_ref | --+
\r
13 # | name | | alias | --+
\r
14 # +---------+ +--------------+ |
\r
17 # +--------------------------------+
\r
19 # see http://use.perl.org/~LTjake/journal/24876 for the
\r
24 my $item = $schema->resultset("SelfRef")->find( 1 );
\r
25 is( $item->name, 'First', 'proper start item' );
\r
27 my @aliases = $item->aliases;
\r
29 is( scalar @aliases, 1, 'proper number of aliases' );
\r
31 my $orig = $aliases[ 0 ]->self_ref;
\r
32 my $alias = $aliases[ 0 ]->alias;
\r
34 is( $orig->name, 'First', 'proper original' );
\r
35 is( $alias->name, 'Second', 'proper alias' );
\r