1 files changed, 3 insertions, 0 deletions
diff --git a/t/detect.t b/t/detect.t
index 772365c..158ce31 100644
--- a/t/detect.t
+++ b/t/detect.t
@@ -6,11 +6,14 @@ BEGIN {
     eval "use IO::Pty::Easy;";
     plan skip_all => "IO::Pty::Easy is required for this test" if $@;
 }
+use B;
 
 sub output_like {
     local $Test::Builder::Level = $Test::Builder::Level + 1;
     my ($script, $expected, $desc) = @_;
     my $pty = IO::Pty::Easy->new;
+    my $inc = '(' . join(',', map { B::perlstring($_) } @INC) . ')';
+    $script = "BEGIN { \@INC = $inc }$script";
     $pty->spawn("$^X", "-e", $script);
     like($pty->read, $expected, $desc);
 }