t/update/type_aware.t

   1 use strict;
   2 use warnings;
   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;