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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
|
From d51b0583bea818ed483ff26ce1e61081183f6665 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Sun, 26 Nov 2017 17:12:34 +1300
Subject: Fix test failures due to require() needing a non-@INC path
Due to '.' removal from @INC, "require t/foo" no longer loads ./t/foo
Bug: https://bugs.gentoo.org/617158
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=121476
Bug: https://github.com/boumenot/p5-Net-Amazon/pull/8
---
t/010Artist.t | 3 ++-
t/011Locale.t | 3 ++-
t/012Keyword.t | 3 ++-
t/013Seller.t | 3 ++-
t/015Exchange.t | 3 ++-
t/017Author.t | 3 ++-
t/018Actor.t | 3 ++-
t/019MusicLabel.t | 3 ++-
t/022Director.t | 3 ++-
t/023Title.t | 3 ++-
t/024signature.t | 3 ++-
t/025cache.t | 3 ++-
t/027MP3Downloads.t | 3 ++-
13 files changed, 26 insertions(+), 13 deletions(-)
diff --git a/t/010Artist.t b/t/010Artist.t
index 0272c28..8245908 100644
--- a/t/010Artist.t
+++ b/t/010Artist.t
@@ -5,6 +5,7 @@ use warnings;
use strict;
use Test::More tests => 23;
+use File::Spec::Functions qw( rel2abs );
BEGIN { use_ok('Net::Amazon') };
#use Log::Log4perl qw(:easy);
@@ -16,7 +17,7 @@ use Net::Amazon::Request::Artist;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/011Locale.t b/t/011Locale.t
index 473a7e1..96df821 100644
--- a/t/011Locale.t
+++ b/t/011Locale.t
@@ -8,12 +8,13 @@ use strict;
use Net::Amazon;
use Net::Amazon::Request::ASIN;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 5;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/012Keyword.t b/t/012Keyword.t
index 82c25ab..ded941d 100644
--- a/t/012Keyword.t
+++ b/t/012Keyword.t
@@ -9,12 +9,13 @@ use strict;
use Net::Amazon;
use Net::Amazon::Property;
use Net::Amazon::Request::Keyword;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 12;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/013Seller.t b/t/013Seller.t
index fc36778..986bd8d 100644
--- a/t/013Seller.t
+++ b/t/013Seller.t
@@ -5,6 +5,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 25;
use Net::Amazon;
use Net::Amazon::Request::Seller;
@@ -14,7 +15,7 @@ use Net::Amazon::Request::Seller;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/015Exchange.t b/t/015Exchange.t
index 4f8610c..7db514d 100644
--- a/t/015Exchange.t
+++ b/t/015Exchange.t
@@ -5,6 +5,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 17;
use Net::Amazon;
use Net::Amazon::Result::Seller::Listing;
@@ -14,7 +15,7 @@ use Log::Log4perl qw(:easy);
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/017Author.t b/t/017Author.t
index ebf3d3b..a6ebc1f 100644
--- a/t/017Author.t
+++ b/t/017Author.t
@@ -4,6 +4,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 30;
BEGIN { use_ok('Net::Amazon') };
@@ -16,7 +17,7 @@ use Net::Amazon::Request::Author;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/018Actor.t b/t/018Actor.t
index 26379d9..7106f20 100644
--- a/t/018Actor.t
+++ b/t/018Actor.t
@@ -4,6 +4,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 23;
BEGIN { use_ok('Net::Amazon') };
@@ -16,7 +17,7 @@ use Net::Amazon::Request::Actor;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/019MusicLabel.t b/t/019MusicLabel.t
index e693798..508da3b 100644
--- a/t/019MusicLabel.t
+++ b/t/019MusicLabel.t
@@ -4,6 +4,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 14;
BEGIN { use_ok('Net::Amazon') };
@@ -16,7 +17,7 @@ use Net::Amazon::Request::MusicLabel;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/022Director.t b/t/022Director.t
index f7c103f..dff6fbe 100644
--- a/t/022Director.t
+++ b/t/022Director.t
@@ -4,6 +4,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 23;
BEGIN { use_ok('Net::Amazon') };
@@ -16,7 +17,7 @@ use Net::Amazon::Request::Director;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/023Title.t b/t/023Title.t
index fc72090..9ef9da4 100644
--- a/t/023Title.t
+++ b/t/023Title.t
@@ -4,6 +4,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 4;
BEGIN { use_ok('Net::Amazon') };
@@ -16,7 +17,7 @@ use Net::Amazon::Request::Title;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/024signature.t b/t/024signature.t
index ca0c9e9..aa15767 100644
--- a/t/024signature.t
+++ b/t/024signature.t
@@ -6,6 +6,7 @@ use strict;
use utf8; # Needed to include utf8 strings
use Encode;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 6;
BEGIN { use_ok('Net::Amazon') };
@@ -19,7 +20,7 @@ use URI;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
diff --git a/t/025cache.t b/t/025cache.t
index ba589f1..45283c3 100644
--- a/t/025cache.t
+++ b/t/025cache.t
@@ -4,6 +4,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 6;
BEGIN { use_ok('Net::Amazon'); use_ok('Log::Log4perl'); }
@@ -20,7 +21,7 @@ Log::Log4perl->easy_init({level => $ALL, file => ">>$log_file"});
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
SKIP: {
diff --git a/t/027MP3Downloads.t b/t/027MP3Downloads.t
index 66f9bda..3e3b5fc 100644
--- a/t/027MP3Downloads.t
+++ b/t/027MP3Downloads.t
@@ -4,6 +4,7 @@
use warnings;
use strict;
+use File::Spec::Functions qw( rel2abs );
use Test::More tests => 17;
BEGIN { use_ok('Net::Amazon') };
@@ -16,7 +17,7 @@ use Net::Amazon::Request::MP3Downloads;
################################################################
# Setup
################################################################
- my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
+ my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
require "$TESTDIR/init.pl";
my $CANNED = "$TESTDIR/canned";
################################################################
--
2.14.3
|
