summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t/basic.t2
-rw-r--r--t/callbacks.t2
-rw-r--r--t/extra-pty.t2
-rw-r--r--t/role.t2
4 files changed, 4 insertions, 4 deletions
diff --git a/t/basic.t b/t/basic.t
index 0df6495..13e77f3 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -18,7 +18,7 @@ SCRIPT
my $crlf = "\x0d\x0a";
-$pty->spawn($^X, '-Ilib', '-e', $script);
+$pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script);
# just in case
alarm 60;
diff --git a/t/callbacks.t b/t/callbacks.t
index 5197b32..cb99c18 100644
--- a/t/callbacks.t
+++ b/t/callbacks.t
@@ -49,7 +49,7 @@ alarm 60;
{
my $pty = IO::Pty::Easy->new(handle_pty_size => 0);
- $pty->spawn($^X, '-Ilib', '-e', $script);
+ $pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script);
my $setup_str = full_read($pty);
diff --git a/t/extra-pty.t b/t/extra-pty.t
index d9d73da..d2e013a 100644
--- a/t/extra-pty.t
+++ b/t/extra-pty.t
@@ -70,7 +70,7 @@ alarm 60;
{
my $pty = IO::Pty::Easy->new(handle_pty_size => 0);
- $pty->spawn($^X, '-Ilib', '-e', $script);
+ $pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script);
open my $readfh, '>', $readp
or die "can't open pipe (parent): $!";
diff --git a/t/role.t b/t/role.t
index 824a14b..e8e9806 100644
--- a/t/role.t
+++ b/t/role.t
@@ -58,7 +58,7 @@ alarm 60;
{
my $pty = IO::Pty::Easy->new(handle_pty_size => 0);
- $pty->spawn($^X, '-Ilib', '-e', $script);
+ $pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script);
my $setup_str = full_read($pty);