9 my $schema = DBICTest->init_schema();
11 my $rs_with_avg = $schema->resultset('CD')->search({}, {
12 '+columns' => { avg_year => $schema->resultset('CD')->get_column('year')->func_rs('avg')->as_query },
16 for my $in_storage (1, 0) {
17 my $cd = $rs_with_avg->first;
19 ok ! $cd->is_column_changed('avg_year'), 'no changes';
21 $cd->in_storage($in_storage);
23 ok ! $cd->is_column_changed('avg_year'), 'still no changes';
25 $cd->set_column( avg_year => 42 );
26 $cd->set_column( avg_year => 69 );
28 ok $cd->is_column_changed('avg_year'), 'changed';
29 is $cd->get_column('avg_year'), 69, 'correct value'