Possible to set locale in IC::DateTime extra => {} config
[dbsrgits/DBIx-Class.git] / t / 87ordered.t
1 # vim: filetype=perl
2 use strict;
3 use warnings;  
4
5 use Test::More;
6 use lib qw(t/lib);
7 use DBICTest;
8
9 use POSIX qw(ceil);
10
11 my $schema = DBICTest->init_schema();
12
13 plan tests => 879;
14
15 my $employees = $schema->resultset('Employee');
16 $employees->delete();
17
18 foreach (1..5) {
19     $employees->create({ name=>'temp' });
20 }
21 $employees = $employees->search(undef,{order_by=>'position'});
22 ok( check_rs($employees), "intial positions" );
23
24 hammer_rs( $employees );
25
26 DBICTest::Employee->grouping_column('group_id');
27 $employees->delete();
28 foreach my $group_id (1..4) {
29     foreach (1..6) {
30         $employees->create({ name=>'temp', group_id=>$group_id });
31     }
32 }
33 $employees = $employees->search(undef,{order_by=>'group_id,position'});
34
35 foreach my $group_id (1..4) {
36     my $group_employees = $employees->search({group_id=>$group_id});
37     $group_employees->all();
38     ok( check_rs($group_employees), "group intial positions" );
39     hammer_rs( $group_employees );
40 }
41
42 my $group_3 = $employees->search({group_id=>3});
43 my $to_group = 1;
44 my $to_pos = undef;
45 while (my $employee = $group_3->next) {
46         $employee->move_to_group($to_group, $to_pos);
47         $to_pos++;
48         $to_group = $to_group==1 ? 2 : 1;
49 }
50 foreach my $group_id (1..4) {
51     my $group_employees = $employees->search({group_id=>$group_id});
52     $group_employees->all();
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
99 # multicol tests begin here
100 DBICTest::Employee->grouping_column(['group_id', 'group_id_2']);
101 $employees->delete();
102 foreach my $group_id (1..4) {
103     foreach my $group_id_2 (1..4) {
104         foreach (1..4) {
105             $employees->create({ name=>'temp', group_id=>$group_id, group_id_2=>$group_id_2 });
106         }
107     }
108 }
109 $employees = $employees->search(undef,{order_by=>'group_id,group_id_2,position'});
110
111 foreach my $group_id (1..3) {
112     foreach my $group_id_2 (1..3) {
113         my $group_employees = $employees->search({group_id=>$group_id, group_id_2=>$group_id_2});
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
121 my $group_4 = $employees->search({group_id=>4});
122 $to_group = 1;
123 my $to_group_2_base = 7;
124 my $to_group_2 = 1;
125 $to_pos = undef;
126 while (my $employee = $group_4->next) {
127         $employee->move_to_group({group_id=>$to_group, group_id_2=>$to_group_2}, $to_pos);
128         $to_pos++;
129     $to_group = ($to_group % 3) + 1;
130     $to_group_2_base++;
131     $to_group_2 = (ceil($to_group_2_base/3.0) %3) +1
132 }
133 foreach my $group_id (1..4) {
134     foreach my $group_id_2 (1..4) {
135         my $group_employees = $employees->search({group_id=>$group_id,group_id_2=>$group_id_2});
136         $group_employees->all();
137         ok( check_rs($group_employees), "group positions after move_to_group" );
138     }
139 }
140
141 $employees->delete();
142 foreach my $group_id (1..4) {
143     foreach my $group_id_2 (1..4) {
144         foreach (1..4) {
145             $employees->create({ name=>'temp', group_id=>$group_id, group_id_2=>$group_id_2 });
146         }
147     }
148 }
149 $employees = $employees->search(undef,{order_by=>'group_id,group_id_2,position'});
150
151 $employee = $employees->search({group_id=>4, group_id_2=>1})->first;
152 $employee->group_id(1);
153 $employee->update;
154 ok( 
155     check_rs($employees->search_rs({group_id=>4, group_id_2=>1}))
156     && check_rs($employees->search_rs({group_id=>1, group_id_2=>1})), 
157     "overloaded multicol update 1" 
158 );
159
160 $employee = $employees->search({group_id=>4, group_id_2=>1})->first;
161 $employee->update({group_id=>2});
162 ok( check_rs($employees->search_rs({group_id=>4, group_id_2=>1}))
163     && check_rs($employees->search_rs({group_id=>2, group_id_2=>1})), 
164     "overloaded multicol update 2" 
165 );
166
167 $employee = $employees->search({group_id=>3, group_id_2=>1})->first;
168 $employee->group_id(1);
169 $employee->group_id_2(3);
170 $employee->update();
171 ok( check_rs($employees->search_rs({group_id=>3, group_id_2=>1}))
172     && check_rs($employees->search_rs({group_id=>1, group_id_2=>3})),
173     "overloaded multicol update 3" 
174 );
175
176 $employee = $employees->search({group_id=>3, group_id_2=>1})->first;
177 $employee->update({group_id=>2, group_id_2=>3});
178 ok( check_rs($employees->search_rs({group_id=>3, group_id_2=>1}))
179     && check_rs($employees->search_rs({group_id=>2, group_id_2=>3})), 
180     "overloaded multicol update 4" 
181 );
182
183 $employee = $employees->search({group_id=>3, group_id_2=>2})->first;
184 $employee->update({group_id=>2, group_id_2=>4, position=>2});
185 ok( check_rs($employees->search_rs({group_id=>3, group_id_2=>2}))
186     && check_rs($employees->search_rs({group_id=>2, group_id_2=>4})), 
187     "overloaded multicol update 5" 
188 );
189
190 sub hammer_rs {
191     my $rs = shift;
192     my $employee;
193     my $count = $rs->count();
194     my $position_column = $rs->result_class->position_column();
195     my $row;
196
197     foreach my $position (1..$count) {
198
199         ($row) = $rs->search({ $position_column=>$position })->all();
200         $row->move_previous();
201         ok( check_rs($rs), "move_previous( $position )" );
202
203         ($row) = $rs->search({ $position_column=>$position })->all();
204         $row->move_next();
205         ok( check_rs($rs), "move_next( $position )" );
206
207         ($row) = $rs->search({ $position_column=>$position })->all();
208         $row->move_first();
209         ok( check_rs($rs), "move_first( $position )" );
210
211         ($row) = $rs->search({ $position_column=>$position })->all();
212         $row->move_last();
213         ok( check_rs($rs), "move_last( $position )" );
214
215         foreach my $to_position (1..$count) {
216             ($row) = $rs->search({ $position_column=>$position })->all();
217             $row->move_to($to_position);
218             ok( check_rs($rs), "move_to( $position => $to_position )" );
219         }
220
221         ($row) = $rs->search({ position=>$position })->all();
222         if ($position==1) {
223             ok( !$row->previous_sibling(), 'no previous sibling' );
224             ok( !$row->first_sibling(), 'no first sibling' );
225         }
226         else {
227             ok( $row->previous_sibling(), 'previous sibling' );
228             ok( $row->first_sibling(), 'first sibling' );
229         }
230         if ($position==$count) {
231             ok( !$row->next_sibling(), 'no next sibling' );
232             ok( !$row->last_sibling(), 'no last sibling' );
233         }
234         else {
235             ok( $row->next_sibling(), 'next sibling' );
236             ok( $row->last_sibling(), 'last sibling' );
237         }
238
239     }
240 }
241
242 sub check_rs {
243     my( $rs ) = @_;
244     $rs->reset();
245     my $position_column = $rs->result_class->position_column();
246     my $expected_position = 0;
247     while (my $row = $rs->next()) {
248         $expected_position ++;
249         if ($row->get_column($position_column)!=$expected_position) {
250             return 0;
251         }
252     }
253     return 1;
254 }
255