t/row/set_extra_column.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8
   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;