t/storage/ping_count.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7 use DBIC::SqlMakerTest;
   8
   9 my $ping_count = 0;
  10
  11 {
  12   local $SIG{__WARN__} = sub {};
  13   require DBIx::Class::Storage::DBI;
  14
  15   my $ping = \&DBIx::Class::Storage::DBI::_ping;
  16
  17   *DBIx::Class::Storage::DBI::_ping = sub {
  18     $ping_count++;
  19     goto &$ping;
  20   };
  21 }
  22
  23
  24 # measure pings around deploy() separately
  25 my $schema = DBICTest->init_schema( sqlite_use_file => 1, no_populate => 1 );
  26
  27 is ($ping_count, 0, 'no _ping() calls during deploy');
  28 $ping_count = 0;
  29
  30
  31
  32 DBICTest->populate_schema ($schema);
  33
  34 # perform some operations and make sure they don't ping
  35
  36 $schema->resultset('CD')->create({
  37   cdid => 6, artist => 3, title => 'mtfnpy', year => 2009
  38 });
  39
  40 $schema->resultset('CD')->create({
  41   cdid => 7, artist => 3, title => 'mtfnpy2', year => 2009
  42 });
  43
  44 $schema->storage->_dbh->disconnect;
  45
  46 $schema->resultset('CD')->create({
  47   cdid => 8, artist => 3, title => 'mtfnpy3', year => 2009
  48 });
  49
  50 $schema->storage->_dbh->disconnect;
  51
  52 $schema->txn_do(sub {
  53  $schema->resultset('CD')->create({
  54    cdid => 9, artist => 3, title => 'mtfnpy4', year => 2009
  55  });
  56 });
  57
  58 is $ping_count, 0, 'no _ping() calls';
  59
  60 done_testing;