Make is_run evalserver safer.

Before, two test files run in parallel could trample each other's files. This makes it highly unlikely they will.
Raku · Sep 25, 2013 · c84521b · c84521b
1 parent afaa30d
commit c84521b
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/packages/Test/Util.pm b/packages/Test/Util.pm
@@ -64,8 +64,9 @@ multi sub is_run( Str $code, Str $input, %expected, Str $name, *%o ) {
 }
 
 sub get_out( Str $code, Str $input?, :@args, :@compiler-args) is export {
-    my $fnbase = 'getout-';
-    $fnbase ~= $*PID // 1_000_000.rand.Int;
+    my $fnbase = 'getout';
+    $fnbase ~= '-' ~ $*PID if defined $*PID;
+    $fnbase ~= '-' ~ 1_000_000.rand.Int;
 
     my $clobber = sub ($a, $b) {
         my $fh = open $a, :w