10 my $schema = DBICTest->init_schema();
13 local $TODO = 'call accessors when calling create() or update()';
16 $schema->resultset('Track')->new_result( { title => 'foo', cd => 1 } );
19 is( $row->increment, 2 );
22 $schema->resultset('Track')
23 ->create( { title => 'bar', cd => 1, increment => 1 } );
24 is( $row->increment, 2 );
26 # $row isa DBICTest::Schema::Track
27 $row->get_from_storage;
28 is( $row->increment, 2 );
30 $row->update( { increment => 3 } );
31 $row->get_from_storage;
32 is( $row->increment, 4 );
35 $row->get_from_storage;
36 is( $row->increment, 4 );
40 $schema->resultset('Track')
41 ->create( { title => 'bar', cd => 2, set_increment => 1 } );
42 }, qr/no such column/i);