From 026aa163c81f5329c6d2e2521cd0848a9273aea7 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 16 Oct 2014 16:40:49 -0700 Subject: [PATCH] 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). --- basis/io/launcher/windows/windows-tests.factor | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/basis/io/launcher/windows/windows-tests.factor b/basis/io/launcher/windows/windows-tests.factor index a2cb548620..883d416200 100644 --- a/basis/io/launcher/windows/windows-tests.factor +++ b/basis/io/launcher/windows/windows-tests.factor @@ -143,11 +143,13 @@ IN: io.launcher.windows.tests "err2.txt" temp-file ascii file-lines first ] unit-test + + [ t ] [ launcher-test-path [ console-vm "-script" "env.factor" 3array >>command - utf8 stream-contents + utf8 [ contents ] with-process-reader ] with-directory eval( -- alist ) os-envs = @@ -159,7 +161,7 @@ IN: io.launcher.windows.tests console-vm "-script" "env.factor" 3array >>command +replace-environment+ >>environment-mode os-envs >>environment - utf8 stream-contents + utf8 [ contents ] with-process-reader ] with-directory eval( -- alist ) os-envs = @@ -170,7 +172,7 @@ IN: io.launcher.windows.tests console-vm "-script" "env.factor" 3array >>command { { "A" "B" } } >>environment - utf8 stream-contents + utf8 [ contents ] with-process-reader ] with-directory eval( -- alist ) "A" of @@ -182,7 +184,7 @@ IN: io.launcher.windows.tests console-vm "-script" "env.factor" 3array >>command { { "USERPROFILE" "XXX" } } >>environment +prepend-environment+ >>environment-mode - utf8 stream-contents + utf8 [ contents ] with-process-reader ] with-directory eval( -- alist ) "USERPROFILE" of "XXX" =