Merge pull request #232 from paultcochrane/pr/unlink_tmp_file_after_tests

Unlink tmp file after tests

Author: moritz

t/nqp/19-file-ops.t

@@ -167,11 +167,12 @@ nqp::unlink($test-file ~ '-linked');
 
 # symlink
 
-my $tmp_file := "tmp";
+my $tmp-file := "tmp";
 my $env := nqp::getenvhash();
 $env<NQP_SHELL_TEST_ENV_VAR> := "123foo";
-nqp::shell("echo %NQP_SHELL_TEST_ENV_VAR% > $tmp_file",nqp::cwd(),$env);
-my $output := slurp($tmp_file);
+nqp::shell("echo %NQP_SHELL_TEST_ENV_VAR% > $tmp-file",nqp::cwd(),$env);
+my $output := slurp($tmp-file);
+nqp::unlink($tmp-file);
 my $is-windows := $output ne "%NQP_SHELL_TEST_ENV_VAR%\n";
 
 if $is-windows {

t/nqp/78-shell.t

@@ -9,20 +9,21 @@ ok(nqp::ishash($a),'nqp::getenvhash() returns a hash');
 ok($a<foo> == 123,'nqp::getenvhash() is a fresh hash');
 ok($b<foo> == 456,'nqp::getenvhash() is a fresh hash');
 
-my $tmp_file := "tmp";
-nqp::shell("echo Hello > $tmp_file",nqp::cwd(),nqp::getenvhash());
-my $output := slurp($tmp_file);
+my $tmp-file := "tmp";
+nqp::shell("echo Hello > $tmp-file",nqp::cwd(),nqp::getenvhash());
+my $output := slurp($tmp-file);
 ok($output ~~ /^Hello/,'nqp::shell works with the echo shell command');
 
 my $env := nqp::getenvhash();
 $env<NQP_SHELL_TEST_ENV_VAR> := "123foo";
 
-nqp::shell("echo %NQP_SHELL_TEST_ENV_VAR% > $tmp_file",nqp::cwd(),$env);
-$output := slurp($tmp_file);
+nqp::shell("echo %NQP_SHELL_TEST_ENV_VAR% > $tmp-file",nqp::cwd(),$env);
+$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);
-    my $output := slurp($tmp_file);
+    nqp::shell("echo \$NQP_SHELL_TEST_ENV_VAR > $tmp-file",nqp::cwd(),$env);
+    my $output := slurp($tmp-file);
     ok($output eq "123foo\n","passing env variables to child processes works linux");
 } else {
   ok($output ~~ /^123foo/,"passing env variables to child processes works on windows");
 }
+nqp::unlink($tmp-file);