+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_mysql';
use strict;
use DBI::Const::GetInfoType;
use Scalar::Util qw/weaken/;
-use lib qw(t/lib);
+use DBICTest::Util 'PEEPEENESS';
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MYSQL_${_}" } qw/DSN USER PASS/};
{
local $TODO = "Perl $] is known to leak like a sieve"
- if DBIx::Class::_ENV_::PEEPEENESS;
+ if PEEPEENESS;
ok (! defined $orig_dbh, 'Parent $dbh handle is gone');
}
{
local $TODO = "Perl $] is known to leak like a sieve"
- if DBIx::Class::_ENV_::PEEPEENESS;
+ if PEEPEENESS;
ok (! defined $orig_dbh, 'DBIC operation triggered reconnect - old $dbh is gone');
}
# Ensure disappearing RDBMS does not leave the storage in an inconsistent state
# Unlike the test in storage/reconnect.t we test live RDBMS-side disconnection
+SKIP:
for my $cref (
sub {
my $schema = shift;
} );
},
) {
+ # version needed for the "read_timeout" feature
+ DBIx::Class::Optional::Dependencies->skip_without( 'DBD::mysql>=4.023' );
note( "Testing with " . B::Deparse->new->coderef2text($cref) );