io.launcher.windows: adding test for +new-group+ output.

diff --git a/basis/io/launcher/windows/windows-tests.factor b/basis/io/launcher/windows/windows-tests.factor
index 460c38666a00a96c6bd10e6a26b6e394d70b2e1e..2292edbaeb87f3afd27399ebd4c296cf314a52a0 100644 (file)
--- a/basis/io/launcher/windows/windows-tests.factor
+++ b/basis/io/launcher/windows/windows-tests.factor
@@ -80,15 +80,29 @@ IN: io.launcher.windows.tests
 
 SYMBOLS: out-path err-path ;
 
-{ } [
+! +same-group+
+{ "Hello world" } [
     <process>
         console-vm-path "-run=hello-world" 2array >>command
         [ "out" ".txt" unique-file ] with-temp-directory
         [ out-path set-global ] keep >>stdout
+        +stdout+ >>stderr
+        10 seconds >>timeout
+        +same-group+ >>group
     try-process
+    out-path get-global ascii file-lines first
 ] unit-test
 
+! +new-group+
 { "Hello world" } [
+    <process>
+        console-vm-path "-run=hello-world" 2array >>command
+        [ "out" ".txt" unique-file ] with-temp-directory
+        [ out-path set-global ] keep >>stdout
+        +stdout+ >>stderr
+        10 seconds >>timeout
+        +new-group+ >>group
+    try-process
     out-path get-global ascii file-lines first
 ] unit-test