-I dir shows up in REPL

RT#127695

Author: zoffixznet

S19-command-line/repl.t

@@ -4,7 +4,7 @@ use lib <t/spec/packages>;
 use Test;
 use Test::Util;
 
-plan 6;
+plan 8;
 
 # Sanity check that the repl is working at all.
 my $cmd = $*DISTRO.is-win
@@ -56,3 +56,20 @@ is shell($cmd).exitcode, 42, 'exit(42) in executed REPL got run';
         err => '',
     }, 'exceptions from lazy-evaluated things do not crash REPL';
 }
+
+{
+    # RT #127695
+    my $temp-dir = $*TMPDIR.child('rakudo-roast-RT127695-test' ~ rand);
+    is $temp-dir.mkdir, True,
+        'successfully created temp directory to use for -I in test';
+
+    my $proc = &CORE::run(
+        $*EXECUTABLE, '-I', $temp-dir.Str, '-MNon::Existent::Module::Blah',
+        :in, :out, :err
+    );
+    $proc.in.write: "say 'hello'\n".encode;
+    $proc.in.close;
+    like $proc.out.slurp-rest, /'rakudo-roast-RT127695-test'/,
+        '-I in REPL works';
+}
+