Commit | Line | Data |
0567538f |
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 |