4 eval "use DBD::SQLite";
5 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 3);
8 my $art = DBICTest->class("Artist")->find(1);
10 isa_ok $art => 'DBICTest::Artist';
12 my $name = 'Caterwauler McCrae';
14 ok($art->name($name) eq $name, 'update');
17 my @changed_keys = $art->is_changed;
18 is( scalar (@changed_keys), 0, 'field changed but same value' );
21 $art->discard_changes;