From 6618c46e46be864dc7f13b217e2912c79bd4b61b Mon Sep 17 00:00:00 2001 From: Kent Fredric Date: Sun, 25 Mar 2018 22:48:44 +1300 Subject: Patch test suite for '.' in @INC removal in 5.26 and greater. Bug: https://bugs.gentoo.org/623186 --- MANIFEST | 4 ++-- t/dom_astress.t | 1 + t/dom_attr.t | 1 + t/dom_cdata.t | 1 + t/dom_encode.t | 1 + t/dom_jp_astress.t | 1 + t/dom_jp_attr.t | 1 + t/dom_jp_cdata.t | 1 + t/dom_jp_modify.t | 1 + t/dom_modify.t | 1 + CheckAncestors.pm => t/lib/CheckAncestors.pm | 0 CmpDOM.pm => t/lib/CmpDOM.pm | 0 12 files changed, 11 insertions(+), 2 deletions(-) rename CheckAncestors.pm => t/lib/CheckAncestors.pm (100%) rename CmpDOM.pm => t/lib/CmpDOM.pm (100%) diff --git a/MANIFEST b/MANIFEST index fe947b3..72eeb85 100644 --- a/MANIFEST +++ b/MANIFEST @@ -1,7 +1,7 @@ BUGS Changes -CheckAncestors.pm Used by test cases in t/ -CmpDOM.pm Used by test cases in t/ +t/lib/CheckAncestors.pm Used by test cases in t/ +t/lib/CmpDOM.pm Used by test cases in t/ FAQ.xml MANIFEST This file. Makefile.PL diff --git a/t/dom_astress.t b/t/dom_astress.t index 2bc7a6a..ac11c96 100644 --- a/t/dom_astress.t +++ b/t/dom_astress.t @@ -9,6 +9,7 @@ BEGIN {print "1..4\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CmpDOM; $loaded = 1; print "ok 1\n"; diff --git a/t/dom_attr.t b/t/dom_attr.t index afbea05..683f727 100644 --- a/t/dom_attr.t +++ b/t/dom_attr.t @@ -1,6 +1,7 @@ BEGIN {print "1..23\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CheckAncestors; use CmpDOM; $loaded = 1; diff --git a/t/dom_cdata.t b/t/dom_cdata.t index 3f4a47b..a7692df 100644 --- a/t/dom_cdata.t +++ b/t/dom_cdata.t @@ -1,6 +1,7 @@ BEGIN {print "1..3\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CheckAncestors; use CmpDOM; $loaded = 1; diff --git a/t/dom_encode.t b/t/dom_encode.t index 71519a4..60abfca 100644 --- a/t/dom_encode.t +++ b/t/dom_encode.t @@ -1,6 +1,7 @@ BEGIN {print "1..3\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CheckAncestors; use CmpDOM; $loaded = 1; diff --git a/t/dom_jp_astress.t b/t/dom_jp_astress.t index 04c66b6..19c1b21 100644 --- a/t/dom_jp_astress.t +++ b/t/dom_jp_astress.t @@ -1,6 +1,7 @@ BEGIN {print "1..4\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CmpDOM; $loaded = 1; print "ok 1\n"; diff --git a/t/dom_jp_attr.t b/t/dom_jp_attr.t index 4ecca27..eb37091 100644 --- a/t/dom_jp_attr.t +++ b/t/dom_jp_attr.t @@ -1,6 +1,7 @@ BEGIN {print "1..23\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CheckAncestors; use CmpDOM; use utf8; diff --git a/t/dom_jp_cdata.t b/t/dom_jp_cdata.t index e512fc5..7c4dcb1 100644 --- a/t/dom_jp_cdata.t +++ b/t/dom_jp_cdata.t @@ -1,6 +1,7 @@ BEGIN {print "1..3\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CheckAncestors; use CmpDOM; use utf8; diff --git a/t/dom_jp_modify.t b/t/dom_jp_modify.t index a749c42..049dfa1 100644 --- a/t/dom_jp_modify.t +++ b/t/dom_jp_modify.t @@ -1,6 +1,7 @@ BEGIN {print "1..16\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CheckAncestors; use utf8; $loaded = 1; diff --git a/t/dom_modify.t b/t/dom_modify.t index ba74475..42058a6 100644 --- a/t/dom_modify.t +++ b/t/dom_modify.t @@ -1,6 +1,7 @@ BEGIN {print "1..16\n";} END {print "not ok 1\n" unless $loaded;} use XML::DOM; +use lib 't/lib'; use CheckAncestors; $loaded = 1; print "ok 1\n"; diff --git a/CheckAncestors.pm b/t/lib/CheckAncestors.pm similarity index 100% rename from CheckAncestors.pm rename to t/lib/CheckAncestors.pm diff --git a/CmpDOM.pm b/t/lib/CmpDOM.pm similarity index 100% rename from CmpDOM.pm rename to t/lib/CmpDOM.pm -- 2.16.2