t/run/04db.tl

   1 sub run_tests {
   2
   3 plan tests => 2;
   4
   5 # add some rows inside a transaction and commit it
   6 # XXX: Is storage->dbh the only way to get a dbh?
   7 DBICTest->class("Artist")->txn_begin;
   8 for (10..15) {
   9     DBICTest->class("Artist")->create( {
  10         artistid => $_,
  11         name => "artist number $_",
  12     } );
  13 }
  14 DBICTest->class("Artist")->txn_commit;
  15 my ($artist) = DBICTest->class("Artist")->find(15);
  16 is($artist->name, 'artist number 15', "Commit ok");
  17
  18 # add some rows inside a transaction and roll it back
  19 DBICTest->class("Artist")->txn_begin;
  20 for (21..30) {
  21     DBICTest->class("Artist")->create( {
  22         artistid => $_,
  23         name => "artist number $_",
  24     } );
  25 }
  26 DBICTest->class("Artist")->txn_rollback;
  27 ($artist) = DBICTest->class("Artist")->search( artistid => 25 );
  28 is($artist, undef, "Rollback ok");
  29
  30 }
  31
  32 1;