8 use DBIC::SqlMakerTest;
13 local $SIG{__WARN__} = sub {};
14 require DBIx::Class::Storage::DBI;
16 my $ping = \&DBIx::Class::Storage::DBI::_ping;
18 *DBIx::Class::Storage::DBI::_ping = sub {
25 # measure pings around deploy() separately
26 my $schema = DBICTest->init_schema( sqlite_use_file => 1, no_populate => 1 );
28 is ($ping_count, 0, 'no _ping() calls during deploy');
33 DBICTest->populate_schema ($schema);
35 # perform some operations and make sure they don't ping
37 $schema->resultset('CD')->create({
38 cdid => 6, artist => 3, title => 'mtfnpy', year => 2009
41 $schema->resultset('CD')->create({
42 cdid => 7, artist => 3, title => 'mtfnpy2', year => 2009
45 $schema->storage->_dbh->disconnect;
47 $schema->resultset('CD')->create({
48 cdid => 8, artist => 3, title => 'mtfnpy3', year => 2009
51 $schema->storage->_dbh->disconnect;
54 $schema->resultset('CD')->create({
55 cdid => 9, artist => 3, title => 'mtfnpy4', year => 2009
59 is $ping_count, 0, 'no _ping() calls';