diff --git a/t/nqp/19-file-ops.t b/t/nqp/19-file-ops.t index 4a75c214bd..7b41c2199b 100644 --- a/t/nqp/19-file-ops.t +++ b/t/nqp/19-file-ops.t @@ -170,7 +170,9 @@ nqp::unlink($test-file ~ '-linked'); my $tmp-file := "tmp"; my $env := nqp::getenvhash(); $env := "123foo"; -nqp::shell("echo %NQP_SHELL_TEST_ENV_VAR% > $tmp-file",nqp::cwd(),$env); +nqp::shell("echo %NQP_SHELL_TEST_ENV_VAR% > $tmp-file",nqp::cwd(),$env, nqp::null(), nqp::null(), nqp::null(), + nqp::const::PIPE_INHERIT_IN + nqp::const::PIPE_INHERIT_OUT + nqp::const::PIPE_INHERIT_ERR +); my $output := slurp($tmp-file); nqp::unlink($tmp-file); my $is-windows := $output ne "%NQP_SHELL_TEST_ENV_VAR%\n"; diff --git a/t/nqp/78-shell.t b/t/nqp/78-shell.t index c4a0a31eed..ba871343c3 100644 --- a/t/nqp/78-shell.t +++ b/t/nqp/78-shell.t @@ -10,17 +10,20 @@ ok($a == 123,'nqp::getenvhash() is a fresh hash'); ok($b == 456,'nqp::getenvhash() is a fresh hash'); my $tmp-file := "tmp"; -nqp::shell("echo Hello > $tmp-file",nqp::cwd(),nqp::getenvhash()); +nqp::shell("echo Hello > $tmp-file",nqp::cwd(),nqp::getenvhash(), nqp::null(), nqp::null(), nqp::null(), + nqp::const::PIPE_INHERIT_IN + nqp::const::PIPE_INHERIT_OUT + nqp::const::PIPE_INHERIT_ERR); my $output := slurp($tmp-file); ok($output ~~ /^Hello/,'nqp::shell works with the echo shell command'); my $env := nqp::getenvhash(); $env := "123foo"; -nqp::shell("echo %NQP_SHELL_TEST_ENV_VAR% > $tmp-file",nqp::cwd(),$env); +nqp::shell("echo %NQP_SHELL_TEST_ENV_VAR% > $tmp-file",nqp::cwd(),$env, nqp::null(), nqp::null(), nqp::null(), + nqp::const::PIPE_INHERIT_IN + nqp::const::PIPE_INHERIT_OUT + nqp::const::PIPE_INHERIT_ERR); $output := slurp($tmp-file); if $output eq "%NQP_SHELL_TEST_ENV_VAR%\n" { - nqp::shell("echo \$NQP_SHELL_TEST_ENV_VAR > $tmp-file",nqp::cwd(),$env); + nqp::shell("echo \$NQP_SHELL_TEST_ENV_VAR > $tmp-file",nqp::cwd(),$env, nqp::null(), nqp::null(), nqp::null(), + nqp::const::PIPE_INHERIT_IN + nqp::const::PIPE_INHERIT_OUT + nqp::const::PIPE_INHERIT_ERR); my $output := slurp($tmp-file); ok($output eq "123foo\n","passing env variables to child processes works linux"); } else {