1use strict; 2use warnings; 3 4use Test::More; 5use lib qw(t/lib); 6use DBICTest; 7 8my $schema = DBICTest->init_schema(); 9 10plan tests => 4; 11 12my $artist = $schema->resultset ('Artist')->first; 13ok (!$artist->get_dirty_columns, 'Artist is clean' ); 14 15$artist->rank (13); 16ok (!$artist->get_dirty_columns, 'Artist is clean after num value update' ); 17$artist->discard_changes; 18 19$artist->rank ('13.00'); 20ok (!$artist->get_dirty_columns, 'Artist is clean after string value update' ); 21$artist->discard_changes; 22 23# override column info 24$artist->result_source->column_info ('rank')->{is_numeric} = 0; 25$artist->rank ('13.00'); 26ok ($artist->get_dirty_columns, 'Artist is updated after is_numeric override' ); 27$artist->discard_changes; 28