Revert "Fudge new test for release"

This reverts commit c749b6b.

Author: zoffixznet

S29-os/system.t

@@ -114,22 +114,21 @@ ok((qqx{$cwd} ne BEGIN qqx{$cwd}), 'qqx{} is affected by chdir()');
 isnt run("dir", "t"), BEGIN { run("dir", "t") }, 'run() is affected by chdir()';
 
 # https://irclog.perlgeek.de/perl6-dev/2017-06-13#i_14727506
-skip 'fudged', 1;
-# {
-#     my $d = make-temp-dir;
-#     $d.add('blah').spurt: 'Testing';
-#
-#     temp %*ENV<PATH> = $*CWD.absolute ~ "/install/bin:%*ENV<PATH>";
-#     my $res = do with run(
-#         :out, :err, :cwd($d.absolute), :env{ :42FOOMEOW, |%*ENV },
-#         $*EXECUTABLE.subst(/^"./"/, ""),
-#         '-e', ｢'blah'.IO.slurp.print; %*ENV<FOOMEOW>.print｣
-#     ) {
-#         .out.slurp(:close) ~ .err.slurp(:close)
-#     }
-#
-#     is-deeply $res, 'Testing42', 'run sets $cwd and $env';
-# }
+{
+    my $d = make-temp-dir;
+    $d.add('blah').spurt: 'Testing';
+
+    temp %*ENV<PATH> = $*CWD.absolute ~ "/install/bin:%*ENV<PATH>";
+    my $res = do with run(
+        :out, :err, :cwd($d.absolute), :env{ :42FOOMEOW, |%*ENV },
+        $*EXECUTABLE.subst(/^"./"/, ""),
+        '-e', ｢'blah'.IO.slurp.print; %*ENV<FOOMEOW>.print｣
+    ) {
+        .out.slurp(:close) ~ .err.slurp(:close)
+    }
+
+    is-deeply $res, 'Testing42', 'run sets $cwd and $env';
+}
 
 subtest '.out/.err proc pipes on failed command' => {
     plan 4;