Add tests for RT #89706

Author: coke

S02-names/pseudo.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 140;
+plan 142;
 
 # I'm not convinced this is in the right place
 # Some parts of this testing (i.e. WHO) seem a bit more S10ish -sorear
@@ -240,6 +240,14 @@ plan 140;
     }
 }
 
+#RT #89706
+{
+    $PROCESS::PROGRAM_NAME = "otter";
+    is $*PROGRAM_NAME, "otter", 'existing $* assignable via PROCESS';
+    $PROCESS::SOME_OTHER_VAR = "else";
+    is $*SOME_OTHER_VAR, "else", 'new $* assignable via PROCESS';
+}
+
 # COMPILING - not testable without BEGIN
 
 # DYNAMIC