You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
299 lines
9.9 KiB
299 lines
9.9 KiB
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
|
|
|