Some cleanup
[dbsrgits/DBIx-Class.git] / t / 91merge_attr.t
1 use strict;
2 use warnings;  
3
4 use Test::More;
5 use lib qw(t/lib);
6 use DBICTest;
7 use Test::More;
8
9 plan tests => 15;
10
11 my $schema = DBICTest->init_schema();
12 my $rs = $schema->resultset( 'CD' );
13
14 {
15   my $a = 'artist';
16   my $b = 'cd';
17   my $expected = [ 'artist', 'cd' ];
18   my $result = $rs->_merge_attr($a, $b);
19   is_deeply( $result, $expected );
20 }
21
22 {
23   my $a = [ 'artist' ];
24   my $b = [ 'cd' ];
25   my $expected = [ 'artist', 'cd' ];
26   my $result = $rs->_merge_attr($a, $b);
27   is_deeply( $result, $expected );
28 }
29
30 {
31   my $a = [ 'artist', 'cd' ];
32   my $b = [ 'cd' ];
33   my $expected = [ 'artist', 'cd' ];
34   my $result = $rs->_merge_attr($a, $b);
35   is_deeply( $result, $expected );
36 }
37
38 {
39   my $a = [ 'artist', 'artist' ];
40   my $b = [ 'artist', 'cd' ];
41   my $expected = [ 'artist', 'artist', 'cd' ];
42   my $result = $rs->_merge_attr($a, $b);
43   is_deeply( $result, $expected );
44 }
45
46 {
47   my $a = [ 'artist', 'cd' ];
48   my $b = [ 'artist', 'artist' ];
49   my $expected = [ 'artist', 'cd', 'artist' ];
50   my $result = $rs->_merge_attr($a, $b);
51   is_deeply( $result, $expected );
52 }
53
54 {
55   my $a = [ 'twokeys' ];
56   my $b = [ 'cds', 'cds' ];
57   my $expected = [ 'twokeys', 'cds', 'cds' ];
58   my $result = $rs->_merge_attr($a, $b);
59   is_deeply( $result, $expected );
60 }
61
62 {
63   my $a = [ 'artist', 'cd', { 'artist' => 'manager' } ];
64   my $b = 'artist';
65   my $expected = [ 'artist', 'cd', { 'artist' => 'manager' } ];
66   my $result = $rs->_merge_attr($a, $b);
67   is_deeply( $result, $expected );
68 }
69
70 {
71   my $a = [ 'artist', 'cd', { 'artist' => 'manager' } ];
72   my $b = [ 'artist', 'cd' ];
73   my $expected = [ 'artist', 'cd', { 'artist' => 'manager' } ];
74   my $result = $rs->_merge_attr($a, $b);
75   is_deeply( $result, $expected );
76 }
77
78 {
79   my $a = [ 'artist', 'cd', { 'artist' => 'manager' } ];
80   my $b = { 'artist' => 'manager' };
81   my $expected = [ 'artist', 'cd', { 'artist' => [ 'manager' ] } ];
82   my $result = $rs->_merge_attr($a, $b);
83   is_deeply( $result, $expected );
84 }
85
86 {
87   my $a = [ 'artist', 'cd', { 'artist' => 'manager' } ];
88   my $b = { 'artist' => 'agent' };
89   my $expected = [ { 'artist' => 'agent' }, 'cd', { 'artist' => 'manager' } ];
90   my $result = $rs->_merge_attr($a, $b);
91   is_deeply( $result, $expected );
92 }
93
94 {
95   my $a = [ 'artist', 'cd', { 'artist' => 'manager' } ];
96   my $b = { 'artist' => { 'manager' => 'artist' } };
97   my $expected = [ 'artist', 'cd', { 'artist' => [ { 'manager' => 'artist' } ] } ];
98   my $result = $rs->_merge_attr($a, $b);
99   is_deeply( $result, $expected );
100 }
101
102 {
103   my $a = [ 'artist', 'cd', { 'artist' => 'manager' } ];
104   my $b = { 'artist' => { 'manager' => [ 'artist', 'label' ] } };
105   my $expected = [ 'artist', 'cd', { 'artist' => [ { 'manager' => [ 'artist', 'label' ] } ] } ];
106   my $result = $rs->_merge_attr($a, $b);
107   is_deeply( $result, $expected );
108 }
109
110 {
111   my $a = [ 'artist', 'cd', { 'artist' => 'manager' } ];
112   my $b = { 'artist' => { 'tour_manager' => [ 'venue', 'roadie' ] } };
113   my $expected = [ { 'artist' => { 'tour_manager' => [ 'venue', 'roadie' ] } }, 'cd', { 'artist' =>  'manager' } ];
114   my $result = $rs->_merge_attr($a, $b);
115   is_deeply( $result, $expected );
116 }
117
118 {
119   my $a = [ 'artist', 'cd' ];
120   my $b = { 'artist' => { 'tour_manager' => [ 'venue', 'roadie' ] } };
121   my $expected = [ { 'artist' => { 'tour_manager' => [ 'venue', 'roadie' ] } }, 'cd' ];
122   my $result = $rs->_merge_attr($a, $b);
123   is_deeply( $result, $expected );
124 }
125
126 {
127   my $a = [ { 'artist' => 'manager' }, 'cd' ];
128   my $b = [ 'artist', { 'artist' => 'manager' } ];
129   my $expected = [ { 'artist' => 'manager' }, 'cd', { 'artist' => 'manager' } ];
130   my $result = $rs->_merge_attr($a, $b);
131   is_deeply( $result, $expected );
132 }
133
134
135 1;