4 # Stolen from 76joins.t (a good test for this purpose)
10 use DBIC::SqlMakerTest;
16 my $schema = DBICTest->init_schema();
19 local $SIG{__WARN__} = sub {};
20 require DBIx::Class::Storage::DBI;
22 my $ping = \&DBIx::Class::Storage::DBI::_ping;
24 *DBIx::Class::Storage::DBI::_ping = sub {
30 # perform some operations and make sure they don't ping
32 $schema->resultset('CD')->create({
33 cdid => 6, artist => 3, title => 'mtfnpy', year => 2009
36 $schema->resultset('CD')->create({
37 cdid => 7, artist => 3, title => 'mtfnpy2', year => 2009
40 $schema->storage->_dbh->disconnect;
42 $schema->resultset('CD')->create({
43 cdid => 8, artist => 3, title => 'mtfnpy3', year => 2009
46 $schema->storage->_dbh->disconnect;
49 $schema->resultset('CD')->create({
50 cdid => 9, artist => 3, title => 'mtfnpy4', year => 2009
54 is $ping_count, 0, 'no _ping() calls';