This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix ext/XS-APItest/t/*.t that assumed '.' in @INC
authorDavid Mitchell <davem@iabyn.com>
Fri, 7 Apr 2017 08:42:37 +0000 (09:42 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 7 Apr 2017 13:42:23 +0000 (14:42 +0100)
ext/XS-APItest/t/blockhooks.t
ext/XS-APItest/t/labelconst.t

index 37590bc..a2a5486 100644 (file)
@@ -5,6 +5,9 @@ use strict;
 use Test::More tests => 17;
 
 use XS::APItest;
+
+BEGIN { push @INC, '.' } # t/BHK.pm is in ext/XS-APItest/ directory
+
 use t::BHK ();      # make sure it gets compiled early
 
 BEGIN { package XS::APItest; *main::bhkav = \@XS::APItest::bhkav }
index f3a7d9c..aed3afb 100644 (file)
@@ -89,7 +89,7 @@ isnt $@, "";
 is $t, "";
 
 $t = "";
-$t = do("t/labelconst.aux");
+$t = do("./t/labelconst.aux");
 is $@, "";
 is $t, "FOOBARBAZQUUX";
 
@@ -163,7 +163,7 @@ is $t, "FOOBARBAZQUUX";
 {
     use utf8;
     $t = "";
-    $t = do("t/labelconst_utf8.aux");
+    $t = do("./t/labelconst_utf8.aux");
     is $@, "";
     is $t, "FǑǑBÀRᛒÀZQÙÙX";
 }