     launcher-test-path [
         <process>
             console-vm "-script" "stderr.factor" 3array >>command
-            "out.txt" temp-file >>stdout
-            "err.txt" temp-file >>stderr
+            "out.txt" unique-file [ out-path set-global ] keep >>stdout
+            "err.txt" unique-file [ err-path set-global ] keep >>stderr
         try-process
     ] with-directory
 ] unit-test
 
 [ "output" ] [
-    "out.txt" temp-file ascii file-lines first
+    out-path get-global ascii file-lines first
 ] unit-test
 
 [ "error" ] [
-    "err.txt" temp-file ascii file-lines first
+    err-path get-global ascii file-lines first
 ] unit-test
 
 [ ] [
     launcher-test-path [
         <process>
             console-vm "-script" "stderr.factor" 3array >>command
-            "out.txt" temp-file >>stdout
+            "out.txt" unique-file [ out-path set-global ] keep >>stdout
             +stdout+ >>stderr
         try-process
     ] with-directory
 ] unit-test
 
 [ "outputerror" ] [
-    "out.txt" temp-file ascii file-lines first
+    out-path get-global ascii file-lines first
 ] unit-test
 
 [ "output" ] [
     launcher-test-path [
         <process>
             console-vm "-script" "stderr.factor" 3array >>command
-            "err2.txt" temp-file >>stderr
+            "err2.txt" unique-file [ err-path set-global ] keep >>stderr
         utf8 <process-reader> stream-lines first
     ] with-directory
 ] unit-test
 
 [ "error" ] [
-    "err2.txt" temp-file ascii file-lines first
+    err-path get-global ascii file-lines first
 ] unit-test
 
 

    [ ] [
        <process>
            "cmd.exe /c dir" >>command
            "dir.txt" temp-file >>stdout
        try-process
    ] unit-test

    [ ] [ "dir.txt" temp-file delete-file ] unit-test
] times

[ "append-test" temp-file delete-file ] ignore-errors

{ "Hello appender\r\nÖrjan ågren är åter\r\nHello appender\r\nÖrjan ågren är åter\r\n" } [
    2 [
        launcher-test-path [
            <process>
                console-vm "-script" "append.factor" 3array >>command
                "append-test" temp-file <appender> >>stdout
            try-process
        ] with-directory
    ] times

    "append-test" temp-file utf8 file-contents
] unit-test

[ "IN: scratchpad " ] [

: console-vm ( -- path )
    vm ".exe" ?tail [ ".com" append ] when ;

SYMBOLS: out-path err-path ;

[ ] [
    <process>
        console-vm "-run=hello-world" 2array >>command
        "out.txt" unique-file [ out-path set-global ] keep >>stdout
    try-process
] unit-test

[ "Hello world" ] [
    out-path get-global ascii file-lines first
] unit-test

[ "IN: scratchpad " ] [
