Unlink temporary file after having used it in tests

This prevents a dirty working directory after having run the test suite.
Raku · Apr 13, 2015 · 16df8ce · 16df8ce
1 parent 9aee14f
commit 16df8ce
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/t/nqp/19-file-ops.t b/t/nqp/19-file-ops.t
@@ -172,6 +172,7 @@ 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::unlink($tmp_file);
 my $is-windows := $output ne "%NQP_SHELL_TEST_ENV_VAR%\n";
 
 if $is-windows {

diff --git a/t/nqp/78-shell.t b/t/nqp/78-shell.t
@@ -26,3 +26,4 @@ if $output eq "%NQP_SHELL_TEST_ENV_VAR%\n" {
 } else {
   ok($output ~~ /^123foo/,"passing env variables to child processes works on windows");
 }
+nqp::unlink($tmp_file);