diff --git a/S19-command-line/repl.t b/S19-command-line/repl.t index 6bfc512de1..f728b2d149 100644 --- a/S19-command-line/repl.t +++ b/S19-command-line/repl.t @@ -4,7 +4,7 @@ use lib ; use Test; use Test::Util; -plan 8; +plan 9; # Sanity check that the repl is working at all. my $cmd = $*DISTRO.is-win @@ -80,3 +80,11 @@ is shell($cmd).exitcode, 42, 'exit(42) in executed REPL got run'; :err(/'Could not find NonExistentModuleRT128595'/), 'REPL with -M with non-existent module does not start'; } + +# RT #128973 +{ + is_run_repl "my \$x = 42;\nsay qq/The value is \$x/;\n", + :err(''), + :out(/'The value is 42'/), + 'variables persist across multiple lines of input'; +}