Commit | Line | Data |
93cec8c3 |
1 | # vim: filetype=perl |
70350518 |
2 | use strict; |
3 | use warnings; |
93cec8c3 |
4 | |
70350518 |
5 | use Test::More; |
6 | use lib qw(t/lib); |
7 | use DBICTest; |
93cec8c3 |
8 | |
1d941d67 |
9 | use POSIX qw(ceil); |
10 | |
a47e1233 |
11 | my $schema = DBICTest->init_schema(); |
93cec8c3 |
12 | |
70350518 |
13 | my $employees = $schema->resultset('Employee'); |
14 | $employees->delete(); |
169bb185 |
15 | |
70350518 |
16 | foreach (1..5) { |
17 | $employees->create({ name=>'temp' }); |
18 | } |
19 | $employees = $employees->search(undef,{order_by=>'position'}); |
20 | ok( check_rs($employees), "intial positions" ); |
b1c66eea |
21 | |
70350518 |
22 | hammer_rs( $employees ); |
169bb185 |
23 | |
70350518 |
24 | DBICTest::Employee->grouping_column('group_id'); |
25 | $employees->delete(); |
79dc353a |
26 | foreach my $group_id (1..4) { |
70350518 |
27 | foreach (1..6) { |
28 | $employees->create({ name=>'temp', group_id=>$group_id }); |
169bb185 |
29 | } |
70350518 |
30 | } |
31 | $employees = $employees->search(undef,{order_by=>'group_id,position'}); |
169bb185 |
32 | |
79dc353a |
33 | foreach my $group_id (1..4) { |
70350518 |
34 | my $group_employees = $employees->search({group_id=>$group_id}); |
35 | $group_employees->all(); |
36 | ok( check_rs($group_employees), "group intial positions" ); |
37 | hammer_rs( $group_employees ); |
169bb185 |
38 | } |
39 | |
79dc353a |
40 | my $group_3 = $employees->search({group_id=>3}); |
41 | my $to_group = 1; |
42 | my $to_pos = undef; |
8f535707 |
43 | { |
44 | my @empl = $group_3->all; |
45 | while (my $employee = shift @empl) { |
8f535707 |
46 | $employee->move_to_group($to_group, $to_pos); |
47 | $to_pos++; |
48 | $to_group = $to_group==1 ? 2 : 1; |
49 | } |
79dc353a |
50 | } |
51 | foreach my $group_id (1..4) { |
52 | my $group_employees = $employees->search({group_id=>$group_id}); |
79dc353a |
53 | ok( check_rs($group_employees), "group positions after move_to_group" ); |
54 | } |
55 | |
56 | my $employee = $employees->search({group_id=>4})->first; |
57 | $employee->position(2); |
58 | $employee->update; |
59 | ok( check_rs($employees->search_rs({group_id=>4})), "overloaded update 1" ); |
60 | $employee = $employees->search({group_id=>4})->first; |
61 | $employee->update({position=>3}); |
62 | ok( check_rs($employees->search_rs({group_id=>4})), "overloaded update 2" ); |
63 | $employee = $employees->search({group_id=>4})->first; |
64 | $employee->group_id(1); |
65 | $employee->update; |
66 | ok( |
67 | check_rs($employees->search_rs({group_id=>1})) && check_rs($employees->search_rs({group_id=>4})), |
68 | "overloaded update 3" |
69 | ); |
70 | $employee = $employees->search({group_id=>4})->first; |
71 | $employee->update({group_id=>2}); |
72 | ok( |
73 | check_rs($employees->search_rs({group_id=>2})) && check_rs($employees->search_rs({group_id=>4})), |
74 | "overloaded update 4" |
75 | ); |
76 | $employee = $employees->search({group_id=>4})->first; |
77 | $employee->group_id(1); |
78 | $employee->position(3); |
79 | $employee->update; |
80 | ok( |
81 | check_rs($employees->search_rs({group_id=>1})) && check_rs($employees->search_rs({group_id=>4})), |
82 | "overloaded update 5" |
83 | ); |
84 | $employee = $employees->search({group_id=>4})->first; |
85 | $employee->group_id(2); |
86 | $employee->position(undef); |
87 | $employee->update; |
88 | ok( |
89 | check_rs($employees->search_rs({group_id=>2})) && check_rs($employees->search_rs({group_id=>4})), |
90 | "overloaded update 6" |
91 | ); |
92 | $employee = $employees->search({group_id=>4})->first; |
93 | $employee->update({group_id=>1,position=>undef}); |
94 | ok( |
95 | check_rs($employees->search_rs({group_id=>1})) && check_rs($employees->search_rs({group_id=>4})), |
96 | "overloaded update 7" |
97 | ); |
98 | |
1d941d67 |
99 | # multicol tests begin here |
9beded8a |
100 | DBICTest::Employee->grouping_column(['group_id_2', 'group_id_3']); |
1d941d67 |
101 | $employees->delete(); |
9beded8a |
102 | foreach my $group_id_2 (1..4) { |
103 | foreach my $group_id_3 (1..4) { |
1d941d67 |
104 | foreach (1..4) { |
9beded8a |
105 | $employees->create({ name=>'temp', group_id_2=>$group_id_2, group_id_3=>$group_id_3 }); |
1d941d67 |
106 | } |
107 | } |
108 | } |
9beded8a |
109 | $employees = $employees->search(undef,{order_by=>[qw/group_id_2 group_id_3 position/]}); |
1d941d67 |
110 | |
9beded8a |
111 | foreach my $group_id_2 (1..3) { |
112 | foreach my $group_id_3 (1..3) { |
113 | my $group_employees = $employees->search({group_id_2=>$group_id_2, group_id_3=>$group_id_3}); |
1d941d67 |
114 | $group_employees->all(); |
115 | ok( check_rs($group_employees), "group intial positions" ); |
116 | hammer_rs( $group_employees ); |
117 | } |
118 | } |
119 | |
120 | # move_to_group, specifying group by hash |
9beded8a |
121 | my $group_4 = $employees->search({group_id_2=>4}); |
1d941d67 |
122 | $to_group = 1; |
123 | my $to_group_2_base = 7; |
124 | my $to_group_2 = 1; |
125 | $to_pos = undef; |
8f535707 |
126 | |
8f535707 |
127 | { |
128 | my @empl = $group_3->all; |
129 | while (my $employee = shift @empl) { |
130 | $employee->move_to_group({group_id_2=>$to_group, group_id_3=>$to_group_2}, $to_pos); |
131 | $to_pos++; |
1d941d67 |
132 | $to_group = ($to_group % 3) + 1; |
133 | $to_group_2_base++; |
134 | $to_group_2 = (ceil($to_group_2_base/3.0) %3) +1 |
8f535707 |
135 | } |
1d941d67 |
136 | } |
9beded8a |
137 | foreach my $group_id_2 (1..4) { |
138 | foreach my $group_id_3 (1..4) { |
139 | my $group_employees = $employees->search({group_id_2=>$group_id_2,group_id_3=>$group_id_3}); |
1d941d67 |
140 | ok( check_rs($group_employees), "group positions after move_to_group" ); |
141 | } |
142 | } |
143 | |
144 | $employees->delete(); |
9beded8a |
145 | foreach my $group_id_2 (1..4) { |
146 | foreach my $group_id_3 (1..4) { |
1d941d67 |
147 | foreach (1..4) { |
9beded8a |
148 | $employees->create({ name=>'temp', group_id_2=>$group_id_2, group_id_3=>$group_id_3 }); |
1d941d67 |
149 | } |
150 | } |
151 | } |
9beded8a |
152 | $employees = $employees->search(undef,{order_by=>[qw/group_id_2 group_id_3 position/]}); |
1d941d67 |
153 | |
9beded8a |
154 | $employee = $employees->search({group_id_2=>4, group_id_3=>1})->first; |
155 | $employee->group_id_2(1); |
1d941d67 |
156 | $employee->update; |
157 | ok( |
9beded8a |
158 | check_rs($employees->search_rs({group_id_2=>4, group_id_3=>1})) |
159 | && check_rs($employees->search_rs({group_id_2=>1, group_id_3=>1})), |
1d941d67 |
160 | "overloaded multicol update 1" |
161 | ); |
162 | |
9beded8a |
163 | $employee = $employees->search({group_id_2=>4, group_id_3=>1})->first; |
164 | $employee->update({group_id_2=>2}); |
165 | ok( check_rs($employees->search_rs({group_id_2=>4, group_id_3=>1})) |
166 | && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>1})), |
167 | "overloaded multicol update 2" |
1d941d67 |
168 | ); |
169 | |
9beded8a |
170 | $employee = $employees->search({group_id_2=>3, group_id_3=>1})->first; |
171 | $employee->group_id_2(1); |
172 | $employee->group_id_3(3); |
1d941d67 |
173 | $employee->update(); |
9beded8a |
174 | ok( check_rs($employees->search_rs({group_id_2=>3, group_id_3=>1})) |
175 | && check_rs($employees->search_rs({group_id_2=>1, group_id_3=>3})), |
1d941d67 |
176 | "overloaded multicol update 3" |
177 | ); |
178 | |
9beded8a |
179 | $employee = $employees->search({group_id_2=>3, group_id_3=>1})->first; |
180 | $employee->update({group_id_2=>2, group_id_3=>3}); |
181 | ok( check_rs($employees->search_rs({group_id_2=>3, group_id_3=>1})) |
182 | && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>3})), |
1d941d67 |
183 | "overloaded multicol update 4" |
184 | ); |
185 | |
9beded8a |
186 | $employee = $employees->search({group_id_2=>3, group_id_3=>2})->first; |
187 | $employee->update({group_id_2=>2, group_id_3=>4, position=>2}); |
188 | ok( check_rs($employees->search_rs({group_id_2=>3, group_id_3=>2})) |
189 | && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>4})), |
1d941d67 |
190 | "overloaded multicol update 5" |
191 | ); |
192 | |
169bb185 |
193 | sub hammer_rs { |
194 | my $rs = shift; |
707cbb2d |
195 | my $employee; |
169bb185 |
196 | my $count = $rs->count(); |
197 | my $position_column = $rs->result_class->position_column(); |
58d387fe |
198 | my $row; |
80010e2b |
199 | |
169bb185 |
200 | foreach my $position (1..$count) { |
80010e2b |
201 | |
dc66dea1 |
202 | ($row) = $rs->search({ $position_column=>$position })->all(); |
169bb185 |
203 | $row->move_previous(); |
204 | ok( check_rs($rs), "move_previous( $position )" ); |
80010e2b |
205 | |
dc66dea1 |
206 | ($row) = $rs->search({ $position_column=>$position })->all(); |
169bb185 |
207 | $row->move_next(); |
208 | ok( check_rs($rs), "move_next( $position )" ); |
80010e2b |
209 | |
dc66dea1 |
210 | ($row) = $rs->search({ $position_column=>$position })->all(); |
169bb185 |
211 | $row->move_first(); |
212 | ok( check_rs($rs), "move_first( $position )" ); |
80010e2b |
213 | |
dc66dea1 |
214 | ($row) = $rs->search({ $position_column=>$position })->all(); |
169bb185 |
215 | $row->move_last(); |
216 | ok( check_rs($rs), "move_last( $position )" ); |
80010e2b |
217 | |
169bb185 |
218 | foreach my $to_position (1..$count) { |
dc66dea1 |
219 | ($row) = $rs->search({ $position_column=>$position })->all(); |
169bb185 |
220 | $row->move_to($to_position); |
221 | ok( check_rs($rs), "move_to( $position => $to_position )" ); |
707cbb2d |
222 | } |
80021def |
223 | |
97bfce50 |
224 | $row = $rs->find({ position => $position }); |
707cbb2d |
225 | if ($position==1) { |
169bb185 |
226 | ok( !$row->previous_sibling(), 'no previous sibling' ); |
227 | ok( !$row->first_sibling(), 'no first sibling' ); |
97bfce50 |
228 | ok( $row->next_sibling->position > $position, 'next sibling position > than us'); |
229 | is( $row->next_sibling->previous_sibling->position, $position, 'next-prev sibling is us'); |
230 | ok( $row->last_sibling->position > $position, 'last sibling position > than us'); |
169bb185 |
231 | } |
232 | else { |
233 | ok( $row->previous_sibling(), 'previous sibling' ); |
234 | ok( $row->first_sibling(), 'first sibling' ); |
97bfce50 |
235 | ok( $row->previous_sibling->position < $position, 'prev sibling position < than us'); |
236 | is( $row->previous_sibling->next_sibling->position, $position, 'prev-next sibling is us'); |
237 | ok( $row->first_sibling->position < $position, 'first sibling position < than us'); |
707cbb2d |
238 | } |
169bb185 |
239 | if ($position==$count) { |
240 | ok( !$row->next_sibling(), 'no next sibling' ); |
241 | ok( !$row->last_sibling(), 'no last sibling' ); |
97bfce50 |
242 | ok( $row->previous_sibling->position < $position, 'prev sibling position < than us'); |
243 | is( $row->previous_sibling->next_sibling->position, $position, 'prev-next sibling is us'); |
244 | ok( $row->first_sibling->position < $position, 'first sibling position < than us'); |
80021def |
245 | } |
707cbb2d |
246 | else { |
169bb185 |
247 | ok( $row->next_sibling(), 'next sibling' ); |
248 | ok( $row->last_sibling(), 'last sibling' ); |
97bfce50 |
249 | ok( $row->next_sibling->position > $row->position, 'next sibling position > than us'); |
250 | is( $row->next_sibling->previous_sibling->position, $position, 'next-prev sibling is us'); |
251 | ok( $row->last_sibling->position > $row->position, 'last sibling position > than us'); |
707cbb2d |
252 | } |
253 | |
80010e2b |
254 | } |
80010e2b |
255 | } |
256 | |
169bb185 |
257 | sub check_rs { |
258 | my( $rs ) = @_; |
259 | $rs->reset(); |
260 | my $position_column = $rs->result_class->position_column(); |
93cec8c3 |
261 | my $expected_position = 0; |
169bb185 |
262 | while (my $row = $rs->next()) { |
93cec8c3 |
263 | $expected_position ++; |
169bb185 |
264 | if ($row->get_column($position_column)!=$expected_position) { |
133dd22a |
265 | return 0; |
80021def |
266 | } |
93cec8c3 |
267 | } |
133dd22a |
268 | return 1; |
93cec8c3 |
269 | } |
270 | |
87b4a877 |
271 | done_testing; |