Commit | Line | Data |
f9ae809a |
1 | use strict; |
8273e845 |
2 | use warnings; |
f9ae809a |
3 | |
4 | use Test::More; |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | |
8 | my $schema = DBICTest->init_schema(); |
9 | |
10 | plan tests => 4; |
11 | |
12 | my $artist = $schema->resultset ('Artist')->first; |
13 | ok (!$artist->get_dirty_columns, 'Artist is clean' ); |
14 | |
15 | $artist->rank (13); |
16 | ok (!$artist->get_dirty_columns, 'Artist is clean after num value update' ); |
17 | $artist->discard_changes; |
18 | |
19 | $artist->rank ('13.00'); |
20 | ok (!$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'); |
26 | ok ($artist->get_dirty_columns, 'Artist is updated after is_numeric override' ); |
27 | $artist->discard_changes; |