[dbsrgits/DBIx-Class.git] / t / update / type_aware.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;

use Test::More;

use DBICTest;

my $schema = DBICTest->init_schema();

plan tests => 4;

my $artist = $schema->resultset ('Artist')->first;
ok (!$artist->get_dirty_columns, 'Artist is clean' );

$artist->rank (13);
ok (!$artist->get_dirty_columns, 'Artist is clean after num value update' );
$artist->discard_changes;

$artist->rank ('13.00');
ok (!$artist->get_dirty_columns, 'Artist is clean after string value update' );
$artist->discard_changes;

# override column info
$artist->result_source->column_info ('rank')->{is_numeric} = 0;
$artist->rank ('13.00');
ok ($artist->get_dirty_columns, 'Artist is updated after is_numeric override' );
$artist->discard_changes;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
f9ae809a	3	use strict;
8273e845	4	use warnings;
f9ae809a	5
f9ae809a	6	use Test::More;
c0329273	7
f9ae809a	8	use DBICTest;
	9
	10	my $schema = DBICTest->init_schema();
	11
	12	plan tests => 4;
	13
	14	my $artist = $schema->resultset ('Artist')->first;
	15	ok (!$artist->get_dirty_columns, 'Artist is clean' );
	16
	17	$artist->rank (13);
	18	ok (!$artist->get_dirty_columns, 'Artist is clean after num value update' );
	19	$artist->discard_changes;
	20
	21	$artist->rank ('13.00');
	22	ok (!$artist->get_dirty_columns, 'Artist is clean after string value update' );
	23	$artist->discard_changes;
	24
	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;