5 eval "use DBD::SQLite";
6 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 4);
13 my $art = DBICTest::Artist->find(1);
15 isa_ok $art => 'DBICTest::Artist';
17 my $name = 'Caterwauler McCrae';
19 ok($art->name($name) eq $name, 'update');
22 my @changed_keys = $art->is_changed;
23 is( scalar (@changed_keys), 0, 'field changed but same value' );
26 $art->discard_changes;