Fix test failure with DBD::mysql < 4.023 introduced in 729656c5

diff --git a/lib/DBIx/Class/Optional/Dependencies.pm b/lib/DBIx/Class/Optional/Dependencies.pm
index 43ce063..a7ab5e5 100644 (file)
--- a/lib/DBIx/Class/Optional/Dependencies.pm
+++ b/lib/DBIx/Class/Optional/Dependencies.pm
@@ -80,6 +80,7 @@ my $dbic_reqs = {
       'Class::Unload' => '0.07',
       'Time::Piece' => '0',
       'Time::Piece::MySQL' => '0',
+      'DBD::mysql' => '4.023',
     },
   },
 

diff --git a/t/71mysql.t b/t/71mysql.t
index 66e4b2b..1b967de 100644 (file)
--- a/t/71mysql.t
+++ b/t/71mysql.t
@@ -454,6 +454,7 @@ ZEROINSEARCH: {
 
 # 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;
@@ -482,6 +483,8 @@ for my $cref (
     } );
   },
 ) {
+  # 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) );