t/run/09update.tl

   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
   8 my $art = DBICTest->class("Artist")->find(1);
   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;