8 my $schema = DBICTest->init_schema();
12 my $artist = $schema->resultset ('Artist')->first;
13 ok (!$artist->get_dirty_columns, 'Artist is clean' );
16 ok (!$artist->get_dirty_columns, 'Artist is clean after num value update' );
17 $artist->discard_changes;
19 $artist->rank ('13.00');
20 ok (!$artist->get_dirty_columns, 'Artist is clean after string value update' );
21 $artist->discard_changes;
23 # override column info
24 $artist->result_source->column_info ('rank')->{is_numeric} = 0;
25 $artist->rank ('13.00');
26 ok ($artist->get_dirty_columns, 'Artist is updated after is_numeric override' );
27 $artist->discard_changes;