steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.launcher.windows: Make unit tests show that process fails rather than 

reporting bogus error. Fixes #1152 (it wasn't really a bug, just bad
tests).
db4
Doug Coleman 2014-10-16 16:40:49 -07:00
parent df46b02b08
commit 026aa163c8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/io/launcher/windows/windows-tests.factor
View File

@ -143,11 +143,13 @@ IN: io.launcher.windows.tests
"err2.txt" temp-file ascii file-lines first "err2.txt" temp-file ascii file-lines first
] unit-test ] unit-test
[ t ] [ [ t ] [
launcher-test-path [ launcher-test-path [
<process> <process>
console-vm "-script" "env.factor" 3array >>command console-vm "-script" "env.factor" 3array >>command
utf8 <process-reader> stream-contents utf8 [ contents ] with-process-reader
] with-directory eval( -- alist ) ] with-directory eval( -- alist )
os-envs = os-envs =
@ -159,7 +161,7 @@ IN: io.launcher.windows.tests
console-vm "-script" "env.factor" 3array >>command console-vm "-script" "env.factor" 3array >>command
+replace-environment+ >>environment-mode +replace-environment+ >>environment-mode
os-envs >>environment os-envs >>environment
utf8 <process-reader> stream-contents utf8 [ contents ] with-process-reader
] with-directory eval( -- alist ) ] with-directory eval( -- alist )
os-envs = os-envs =
@ -170,7 +172,7 @@ IN: io.launcher.windows.tests
<process> <process>
console-vm "-script" "env.factor" 3array >>command console-vm "-script" "env.factor" 3array >>command
{ { "A" "B" } } >>environment { { "A" "B" } } >>environment
utf8 <process-reader> stream-contents utf8 [ contents ] with-process-reader
] with-directory eval( -- alist ) ] with-directory eval( -- alist )
"A" of "A" of
@ -182,7 +184,7 @@ IN: io.launcher.windows.tests
console-vm "-script" "env.factor" 3array >>command console-vm "-script" "env.factor" 3array >>command
{ { "USERPROFILE" "XXX" } } >>environment { { "USERPROFILE" "XXX" } } >>environment
+prepend-environment+ >>environment-mode +prepend-environment+ >>environment-mode
utf8 <process-reader> stream-contents utf8 [ contents ] with-process-reader
] with-directory eval( -- alist ) ] with-directory eval( -- alist )
"USERPROFILE" of "XXX" = "USERPROFILE" of "XXX" =