From: Petr Písař <ppisar@redhat.com>
Date: Tue, 17 Feb 2015 12:11:00 +0000 (+0100)
Subject: lib/h2ph.t to test generated t/_h2ph_pre.ph instead of the system one
X-Git-Tag: v5.21.10~247
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/33593911f214382b592d05aa902655301915e666?hp=d3db15144cd5a765432a4454baa35bc2e847a1eb

lib/h2ph.t to test generated t/_h2ph_pre.ph instead of the system one

The lib/h2ph.t test executes a t/lib/h2ph.pht which requires
'_h2ph_pre.ph'.  This should find and exercise generated t/_h2ph_pre.ph
file. However, it found a loaded _h2ph_pre.ph from system because the
interpreter has the './' directory after the system paths in the @INC by
default.

This patch adds '-I./' to the runperl() invocation to prefer the
_h2ph_pre.ph generated at build time.

Signed-off-by: Petr Písař <ppisar@redhat.com>
---

diff --git a/lib/h2ph.t b/lib/h2ph.t
index 2b58f6a..64d9dc0 100644
--- a/lib/h2ph.t
+++ b/lib/h2ph.t
@@ -48,7 +48,7 @@ $result = runperl( progfile => '_h2ph_pre.ph',
                    stderr => 1 );
 like( $result, qr/syntax OK$/, "preamble compiles");
 
-$result = runperl( switches => ["-w"],
+$result = runperl( switches => ['-I.', "-w"],
                    stderr => 1,
                    prog => <<'PROG' );
 $SIG{__WARN__} = sub { die $_[0] }; require q(lib/h2ph.pht);