1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
From 35931a7465f19da53b97cd1bc5369a69aeac2ff6 Mon Sep 17 00:00:00 2001
From: Pali <pali@cpan.org>
Date: Mon, 17 Apr 2017 21:38:58 +0200
Subject: Fix tests on Perl On 5.25.10 or greater with
-Ddefault_inc_excludes_dot
Some tests do not include dot in %INC and fails with error:
Can't locate t/lib.pl in @INC
Fixes: https://rt.cpan.org/Public/Bug/Display.html?id=120709
---
t/40server_prepare_crash.t | 3 ++-
t/lib.pl | 5 +++--
t/rt118977-zerofill.t | 2 +-
t/rt25389-bin-case.t | 3 ++-
t/rt50304-column_info_parentheses.t | 3 ++-
t/rt61849-bind-param-buffer-overflow.t | 3 ++-
t/rt75353-innodb-lock-timeout.t | 3 ++-
t/rt83494-quotes-comments.t | 3 ++-
8 files changed, 16 insertions(+), 9 deletions(-)
diff --git a/t/40server_prepare_crash.t b/t/40server_prepare_crash.t
index df6e2b3..e2c8c9f 100644
--- a/t/40server_prepare_crash.t
+++ b/t/40server_prepare_crash.t
@@ -5,7 +5,8 @@ use Test::More;
use DBI;
use vars qw($test_dsn $test_user $test_password);
-require "t/lib.pl";
+use lib 't', '.';
+require "lib.pl";
my $dbh = eval { DBI->connect($test_dsn, $test_user, $test_password, { PrintError => 1, RaiseError => 1, AutoCommit => 0, mysql_server_prepare => 1, mysql_server_prepare_disable_fallback => 1 }) };
plan skip_all => "no database connection" if $@ or not $dbh;
diff --git a/t/lib.pl b/t/lib.pl
index 2221c40..0c756a0 100644
--- a/t/lib.pl
+++ b/t/lib.pl
@@ -2,6 +2,7 @@ use strict;
use warnings;
use Test::More;
+use File::Spec ();
use DBI::Const::GetInfoType;
use vars qw($mdriver $dbdriver $childPid $test_dsn $test_user $test_password);
@@ -31,7 +32,7 @@ if (-f ($file = "t/$dbdriver.dbtest") ||
-f ($file = "$dbdriver.dbtest") ||
-f ($file = "../tests/$dbdriver.dbtest") ||
-f ($file = "tests/$dbdriver.dbtest")) {
- eval { require $file; };
+ eval { require File::Spec->rel2abs($file); };
if ($@) {
print STDERR "Cannot execute $file: $@.\n";
print "1..0\n";
@@ -45,7 +46,7 @@ if (-f ($file = "t/$mdriver.mtest") ||
-f ($file = "$mdriver.mtest") ||
-f ($file = "../tests/$mdriver.mtest") ||
-f ($file = "tests/$mdriver.mtest")) {
- eval { require $file; };
+ eval { require File::Spec->rel2abs($file); };
if ($@) {
print STDERR "Cannot execute $file: $@.\n";
print "1..0\n";
diff --git a/t/rt118977-zerofill.t b/t/rt118977-zerofill.t
index 27ba1b7..86edb8e 100644
--- a/t/rt118977-zerofill.t
+++ b/t/rt118977-zerofill.t
@@ -5,7 +5,7 @@ use Test::More;
use DBI;
use vars qw($test_dsn $test_user $test_password);
-require "t/lib.pl";
+require "./t/lib.pl";
my $dbh = eval { DBI->connect($test_dsn, $test_user, $test_password, { PrintError => 1, RaiseError => 1 }) };
plan skip_all => "no database connection" if $@ or not $dbh;
diff --git a/t/rt25389-bin-case.t b/t/rt25389-bin-case.t
index 37bffb9..9d091b3 100644
--- a/t/rt25389-bin-case.t
+++ b/t/rt25389-bin-case.t
@@ -4,7 +4,8 @@ use warnings;
use DBI;
use vars qw($test_dsn $test_user $test_password);
-require "t/lib.pl";
+use lib 't', '.';
+require "lib.pl";
use Test::More;
diff --git a/t/rt50304-column_info_parentheses.t b/t/rt50304-column_info_parentheses.t
index 5b6d799..8c31bf6 100644
--- a/t/rt50304-column_info_parentheses.t
+++ b/t/rt50304-column_info_parentheses.t
@@ -4,7 +4,8 @@ use warnings;
use DBI;
use vars qw($test_dsn $test_user $test_password $state);
-require "t/lib.pl";
+use lib 't', '.';
+require "lib.pl";
use Test::More;
diff --git a/t/rt61849-bind-param-buffer-overflow.t b/t/rt61849-bind-param-buffer-overflow.t
index 99a4ccc..494f985 100644
--- a/t/rt61849-bind-param-buffer-overflow.t
+++ b/t/rt61849-bind-param-buffer-overflow.t
@@ -5,7 +5,8 @@ use Test::More;
use DBI;
use vars qw($test_dsn $test_user $test_password);
-require "t/lib.pl";
+use lib 't', '.';
+require "lib.pl";
my $INSECURE_VALUE_FROM_USER = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx";
diff --git a/t/rt75353-innodb-lock-timeout.t b/t/rt75353-innodb-lock-timeout.t
index 69b740e..41d1b8f 100644
--- a/t/rt75353-innodb-lock-timeout.t
+++ b/t/rt75353-innodb-lock-timeout.t
@@ -5,7 +5,8 @@ use Test::More;
use DBI;
use vars qw($test_dsn $test_user $test_password);
-require "t/lib.pl";
+use lib 't', '.';
+require "lib.pl";
my $dbh1 = eval { DBI->connect($test_dsn, $test_user, $test_password, { RaiseError => 1, AutoCommit => 0 }) };
plan skip_all => "no database connection" if $@ or not $dbh1;
diff --git a/t/rt83494-quotes-comments.t b/t/rt83494-quotes-comments.t
index 9df0d90..c42afe4 100644
--- a/t/rt83494-quotes-comments.t
+++ b/t/rt83494-quotes-comments.t
@@ -9,7 +9,8 @@ use DBI;
use Test::More;
use vars qw($test_dsn $test_user $test_password $state);
-require "t/lib.pl";
+use lib 't', '.';
+require "lib.pl";
my $dbh;
eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
--
2.15.1
|
GitWeb