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
8 # +---------+ +--------------+
\r
9 # | SelfRef | | SelfRefAlias |
\r
10 # +---------+ 1-M +--------------+
\r
11 # | id |-------| self_ref | --+
\r
12 # | name | | alias | --+
\r
13 # +---------+ +--------------+ |
\r
16 # +--------------------------------+
\r
18 # see http://use.perl.org/~LTjake/journal/24876 for the
\r
23 my $item = DBICTest->class("SelfRef")->find( 1 );
\r
24 is( $item->name, 'First', 'proper start item' );
\r
26 my @aliases = $item->aliases;
\r
28 is( scalar @aliases, 1, 'proper number of aliases' );
\r
30 my $orig = $aliases[ 0 ]->self_ref;
\r
31 my $alias = $aliases[ 0 ]->alias;
\r
33 is( $orig->name, 'First', 'proper original' );
\r
34 is( $alias->name, 'Second', 'proper alias' );
\r