 ] unit-test
 
 [ ] [
-    "resource:basis/io/windows/nt/launcher/test" [
+    launcher-test-path [
         <process>
             vm "-script" "stderr.factor" 3array >>command
             "out.txt" temp-file >>stdout

] unit-test

[ "B" ] [
    "resource:basis/io/windows/nt/launcher/test" [
        <process>
            vm "-script" "env.factor" 3array >>command
            { { "A" "B" } } >>environment

    try-process
] unit-test

: launcher-test-path ( -- str )
    "resource:basis/io/launcher/windows/nt/test" ;

[ ] [
    launcher-test-path [
        <process>
            vm "-script" "stderr.factor" 3array >>command
            "out.txt" temp-file >>stdout
