components/perl_modules/dbd-mysql/patches/01_test05.patch
changeset 5913 02e8b39413b9
child 6534 7944bbb85989
equal deleted inserted replaced
5912:1d6640a68002 5913:02e8b39413b9
       
     1 https://rt.cpan.org/Public/Bug/Display.html?id=112072
       
     2 
       
     3 --- DBD-mysql-4.033/t/05dbcreate.t	2016-02-13 13:29:56.467130717 -0800
       
     4 +++ DBD-mysql-4.033/t/05dbcreate.t	2016-02-13 13:23:45.371688976 -0800
       
     5 @@ -10,7 +10,7 @@ use lib 't', '.';
       
     6  require 'lib.pl';
       
     7  
       
     8  my $dbh;
       
     9 -eval {$dbh= DBI->connect('DBI:mysql:', $test_user, $test_password,
       
    10 +eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
       
    11                        { RaiseError => 1, PrintError => 1, AutoCommit => 0 });};
       
    12  if ($@) {
       
    13      diag $@;
       
    14 --- DBD-mysql-4.033/t/87async.t	2016-02-13 13:37:19.948093572 -0800
       
    15 +++ DBD-mysql-4.033/t/87async.t	2016-02-13 13:36:58.066381499 -0800
       
    16 @@ -1,7 +1,6 @@
       
    17  use strict;
       
    18  use warnings;
       
    19  
       
    20 -use Test::Deep;
       
    21  use Test::More;
       
    22  use DBI;
       
    23  use DBI::Const::GetInfoType;
       
    24 @@ -11,10 +10,10 @@ use vars qw($test_dsn $test_user $test_p
       
    25  use lib 't', '.';
       
    26  require 'lib.pl';
       
    27  
       
    28 -eval { use Test::Deep };
       
    29 -SKIP: {
       
    30 -    if ($!) {
       
    31 -        skip "Test::Deep is not installed!";
       
    32 +BEGIN {
       
    33 +    eval { require Test::Deep };
       
    34 +    if ($@) {
       
    35 +            plan skip_all => 'Test::Deep is not installed!';
       
    36      }
       
    37  }
       
    38  my $dbh;