-
Notifications
You must be signed in to change notification settings - Fork 151
/
78self_referencial.t
44 lines (32 loc) · 1.06 KB
/
78self_referencial.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use strict;
use warnings;
use Test::More;
use DBICTest;
my $schema = DBICTest->init_schema();
# this test will check to see if you can have 2 columns
# in the same class pointing at the same other class
#
# example:
#
# +---------+ +--------------+
# | SelfRef | | SelfRefAlias |
# +---------+ 1-M +--------------+
# | id |-------| self_ref | --+
# | name | | alias | --+
# +---------+ +--------------+ |
# /|\ |
# | |
# +--------------------------------+
#
# see http://use.perl.org/~LTjake/journal/24876 for the
# issue with CDBI
plan tests => 4;
my $item = $schema->resultset("SelfRef")->find( 1 );
is( $item->name, 'First', 'proper start item' );
my @aliases = $item->aliases;
is( scalar @aliases, 1, 'proper number of aliases' );
my $orig = $aliases[ 0 ]->self_ref;
my $alias = $aliases[ 0 ]->alias;
is( $orig->name, 'First', 'proper original' );
is( $alias->name, 'Second', 'proper alias' );