Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
57e9c142 |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | |
c0329273 |
8 | |
57e9c142 |
9 | use DBICTest; |
10 | |
11 | my $schema = DBICTest->init_schema(); |
12 | |
13 | my $rs_with_avg = $schema->resultset('CD')->search({}, { |
14 | '+columns' => { avg_year => $schema->resultset('CD')->get_column('year')->func_rs('avg')->as_query }, |
15 | order_by => 'cdid', |
16 | }); |
17 | |
18 | for my $in_storage (1, 0) { |
19 | my $cd = $rs_with_avg->first; |
20 | |
21 | ok ! $cd->is_column_changed('avg_year'), 'no changes'; |
22 | |
23 | $cd->in_storage($in_storage); |
24 | |
25 | ok ! $cd->is_column_changed('avg_year'), 'still no changes'; |
26 | |
27 | $cd->set_column( avg_year => 42 ); |
28 | $cd->set_column( avg_year => 69 ); |
29 | |
30 | ok $cd->is_column_changed('avg_year'), 'changed'; |
31 | is $cd->get_column('avg_year'), 69, 'correct value' |
32 | } |
33 | |
34 | done_testing; |