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
  33 # I know this is gross but SQLite reports the size differently from release
  34 # to release. At least this way the test still passes.
  35
  36 delete $type_info->{artistid}{size};
  37 delete $type_info->{name}{size};
  38
  39 my $test_type_info = {
  40     'artistid' => {
  41         'data_type' => 'INTEGER',
  42         'is_nullable' => 0,
  43     },
  44     'name' => {
  45         'data_type' => 'varchar',
  46         'is_nullable' => 0,
  47     },
  48 };
  49 is_deeply($type_info, $test_type_info, 'columns_info_for - column data types');
  50
  51 }
  52
  53 1;