use strict;
use warnings;
-# Stolen from 76joins.t (a good test for this purpose)
-
use Test::More;
use lib qw(t/lib);
use DBICTest;
use Data::Dumper;
use DBIC::SqlMakerTest;
-plan tests => 1;
-
my $ping_count = 0;
-my $schema = DBICTest->init_schema();
-
{
local $SIG{__WARN__} = sub {};
require DBIx::Class::Storage::DBI;
};
}
+
+# measure pings around deploy() separately
+my $schema = DBICTest->init_schema( sqlite_use_file => 1, no_populate => 1 );
+
+is ($ping_count, 0, 'no _ping() calls during deploy');
+$ping_count = 0;
+
+
+
+DBICTest->populate_schema ($schema);
+
# perform some operations and make sure they don't ping
$schema->resultset('CD')->create({
});
is $ping_count, 0, 'no _ping() calls';
+
+done_testing;