t/create/set_column.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7 use DBICTest;
   8
   9 my $schema = DBICTest->init_schema();
  10
  11 TODO: {
  12     local $TODO = 'call accessors when calling create() or update()';
  13
  14     my $row =
  15       $schema->resultset('Track')->new_result( { title => 'foo', cd => 1 } );
  16     $row->increment(1);
  17     $row->insert;
  18     is( $row->increment, 2 );
  19
  20     $row =
  21       $schema->resultset('Track')
  22       ->create( { title => 'bar', cd => 1, increment => 1 } );
  23     is( $row->increment, 2 );
  24
  25     # $row isa DBICTest::Schema::Track
  26     $row->get_from_storage;
  27     is( $row->increment, 2 );
  28
  29     $row->update( { increment => 3 } );
  30     $row->get_from_storage;
  31     is( $row->increment, 4 );
  32
  33     $row->increment(3);
  34     $row->get_from_storage;
  35     is( $row->increment, 4 );
  36
  37     eval {
  38         $row =
  39           $schema->resultset('Track')
  40           ->create( { title => 'bar', cd => 2, set_increment => 1 } );
  41     };
  42     ok( !$@, 'lives ok' );
  43     is( $row->increment, 1 );
  44
  45 }
  46
  47 done_testing;