[dbsrgits/DBIx-Class.git] / t / run / 09update.tl

sub run_tests {

BEGIN {
        eval "use DBD::SQLite";
        plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 3);
}                                                                               

my $art = DBICTest->class("Artist")->find(1);

isa_ok $art => 'DBICTest::Artist';

my $name = 'Caterwauler McCrae';

ok($art->name($name) eq $name, 'update');

{ 
  my @changed_keys = $art->is_changed;
  is( scalar (@changed_keys), 0, 'field changed but same value' );
}                                                                               

$art->discard_changes;

}

1;
Commit	Line	Data
0567538f	1	sub run_tests {
	2
	3	BEGIN {
	4	eval "use DBD::SQLite";
	5	plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 3);
	6	}
	7
3712e4f4	8	my $art = DBICTest->class("Artist")->find(1);
0567538f	9
	10	isa_ok $art => 'DBICTest::Artist';
	11
	12	my $name = 'Caterwauler McCrae';
	13
	14	ok($art->name($name) eq $name, 'update');
	15
	16	{
	17	my @changed_keys = $art->is_changed;
	18	is( scalar (@changed_keys), 0, 'field changed but same value' );
	19	}
	20
	21	$art->discard_changes;
	22
	23	}
	24
	25	1;