11 local $SIG{__WARN__} = sub {};
12 require DBIx::Class::Storage::DBI;
14 my $ping = \&DBIx::Class::Storage::DBI::_ping;
16 *DBIx::Class::Storage::DBI::_ping = sub {
23 # measure pings around deploy() separately
24 my $schema = DBICTest->init_schema( sqlite_use_file => 1, no_populate => 1 );
26 is ($ping_count, 0, 'no _ping() calls during deploy');
31 DBICTest->populate_schema ($schema);
33 # perform some operations and make sure they don't ping
35 $schema->resultset('CD')->create({
36 cdid => 6, artist => 3, title => 'mtfnpy', year => 2009
39 $schema->resultset('CD')->create({
40 cdid => 7, artist => 3, title => 'mtfnpy2', year => 2009
43 $schema->storage->_dbh->disconnect;
45 $schema->resultset('CD')->create({
46 cdid => 8, artist => 3, title => 'mtfnpy3', year => 2009
49 $schema->storage->_dbh->disconnect;
52 $schema->resultset('CD')->create({
53 cdid => 9, artist => 3, title => 'mtfnpy4', year => 2009
57 is $ping_count, 0, 'no _ping() calls';