1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $schema = DBICTest->init_schema();
14 my $artist = $schema->resultset ('Artist')->first;
15 ok (!$artist->get_dirty_columns, 'Artist is clean' );
18 ok (!$artist->get_dirty_columns, 'Artist is clean after num value update' );
19 $artist->discard_changes;
21 $artist->rank ('13.00');
22 ok (!$artist->get_dirty_columns, 'Artist is clean after string value update' );
23 $artist->discard_changes;
25 # override column info
26 $artist->result_source->column_info ('rank')->{is_numeric} = 0;
27 $artist->rank ('13.00');
28 ok ($artist->get_dirty_columns, 'Artist is updated after is_numeric override' );
29 $artist->discard_changes;