Fix io.launcher.windows.nt test when run from factor.exe

db4
U-SLAVA-DFB8FF805\Slava 2009-01-28 01:58:03 -06:00
parent 49875b9cc7
commit 5af6c10eed
1 changed files with 5 additions and 2 deletions

7
basis/io/launcher/windows/nt/nt-tests.factor Normal file → Executable file
View File

@ -37,11 +37,12 @@ IN: io.launcher.windows.nt.tests
"out.txt" temp-file ascii file-lines first
] unit-test
[ ] [
[ "( scratchpad ) " ] [
<process>
console-vm "-run=listener" 2array >>command
+closed+ >>stdin
try-process
+stdout+ >>stderr
ascii [ input-stream get contents ] with-process-reader
] unit-test
: launcher-test-path ( -- str )
@ -162,3 +163,5 @@ IN: io.launcher.windows.nt.tests
"append-test" temp-file ascii file-contents
] unit-test