t/run/04db.tl

   1 sub run_tests {
   2 my $schema = shift;
   3
   4 plan tests => 3;
   5
   6 # add some rows inside a transaction and commit it
   7 # XXX: Is storage->dbh the only way to get a dbh?
   8 $schema->storage->txn_begin;
   9 for (10..15) {
  10     $schema->resultset("Artist")->create( {
  11         artistid => $_,
  12         name => "artist number $_",
  13     } );
  14 }
  15 $schema->storage->txn_commit;
  16 my ($artist) = $schema->resultset("Artist")->find(15);
  17 is($artist->name, 'artist number 15', "Commit ok");
  18
  19 # add some rows inside a transaction and roll it back
  20 $schema->storage->txn_begin;
  21 for (21..30) {
  22     $schema->resultset("Artist")->create( {
  23         artistid => $_,
  24         name => "artist number $_",
  25     } );
  26 }
  27 $schema->storage->txn_rollback;
  28 ($artist) = $schema->resultset("Artist")->search( artistid => 25 );
  29 is($artist, undef, "Rollback ok");
  30
  31 my $type_info = $schema->storage->columns_info_for('artist');
  32 my $test_type_info = {
  33     'artistid' => {
  34         'data_type' => 'INTEGER',
  35         'is_nullable' => 0,
  36         'size' => undef,
  37     },
  38     'name' => {
  39         'data_type' => 'varchar',
  40         'is_nullable' => 0,
  41         'size' => 100,
  42     }
  43 };
  44 is_deeply($type_info, $test_type_info, 'columns_info_for - column data types');
  45
  46 }
  47
  48 1;