9 my $schema = DBICTest->init_schema();
10 $schema->storage->sql_maker->quote_char('"');
12 my $rs = $schema->resultset ('Artist');
15 lives_ok { $obj = $rs->create ({ name => 'artistA' }) } 'Default insert successful';
16 is ($obj->rank, undef, 'Without retrieve_on_insert, check rank');
18 $rs->result_source->add_columns(
19 '+rank' => { retrieve_on_insert => 1 }
22 lives_ok { $obj = $rs->create ({ name => 'artistB' }) } 'Default insert successful';
23 is ($obj->rank, 13, 'With retrieve_on_insert, check rank');