t/run/18self_referencial.tl

   1 sub run_tests {\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 => 4;\r
  22 \r
  23 my $item = DBICTest::SelfRef->find( 1 );\r
  24 is( $item->name, 'First', 'proper start item' );\r
  25 \r
  26 my @aliases = $item->aliases;\r
  27 \r
  28 is( scalar @aliases, 1, 'proper number of aliases' );\r
  29 \r
  30 my $orig  = $aliases[ 0 ]->self_ref;\r
  31 my $alias = $aliases[ 0 ]->alias;\r
  32 \r
  33 is( $orig->name, 'First', 'proper original' );\r
  34 is( $alias->name, 'Second', 'proper alias' );\r
  35 \r
  36 }\r
  37 \r
  38 1;\r