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

use the console factor for tests

db4
Doug Coleman 2009-02-04 13:28:19 -06:00
parent eec86d6043
commit 3d84d17cc6
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
basis/io/launcher/windows/nt/nt-tests.factor
View File

@ -1,7 +1,7 @@
USING: io.launcher tools.test calendar accessors environment
namespaces kernel system arrays io io.files io.encodings.ascii
sequences parser assocs hashtables math continuations eval
io.files.temp io.directories io.pathnames ;
io.files.temp io.directories io.pathnames splitting ;
IN: io.launcher.windows.nt.tests
[ ] [
@ -23,9 +23,12 @@ IN: io.launcher.windows.nt.tests
[ f ] [ "notepad" get process-running? ] unit-test
: console-vm ( -- path )
vm ".exe" ?tail [ ".com" append ] when ;
[ ] [
<process>
vm "-quiet" "-run=hello-world" 3array >>command
console-vm "-quiet" "-run=hello-world" 3array >>command
"out.txt" temp-file >>stdout
try-process
] unit-test
@ -36,7 +39,7 @@ IN: io.launcher.windows.nt.tests
[ ] [
<process>
vm "-run=listener" 2array >>command
console-vm "-run=listener" 2array >>command
+closed+ >>stdin
try-process
] unit-test
@ -47,7 +50,7 @@ IN: io.launcher.windows.nt.tests
[ ] [
launcher-test-path [
<process>
vm "-script" "stderr.factor" 3array >>command
console-vm "-script" "stderr.factor" 3array >>command
"out.txt" temp-file >>stdout
"err.txt" temp-file >>stderr
try-process
@ -65,7 +68,7 @@ IN: io.launcher.windows.nt.tests
[ ] [
launcher-test-path [
<process>
vm "-script" "stderr.factor" 3array >>command
console-vm "-script" "stderr.factor" 3array >>command
"out.txt" temp-file >>stdout
+stdout+ >>stderr
try-process
@ -79,7 +82,7 @@ IN: io.launcher.windows.nt.tests
[ "output" ] [
launcher-test-path [
<process>
vm "-script" "stderr.factor" 3array >>command
console-vm "-script" "stderr.factor" 3array >>command
"err2.txt" temp-file >>stderr
ascii <process-reader> lines first
] with-directory
@ -92,7 +95,7 @@ IN: io.launcher.windows.nt.tests
[ t ] [
launcher-test-path [
<process>
vm "-script" "env.factor" 3array >>command
console-vm "-script" "env.factor" 3array >>command
ascii <process-reader> contents
] with-directory eval
@ -102,7 +105,7 @@ IN: io.launcher.windows.nt.tests
[ t ] [
launcher-test-path [
<process>
vm "-script" "env.factor" 3array >>command
console-vm "-script" "env.factor" 3array >>command
+replace-environment+ >>environment-mode
os-envs >>environment
ascii <process-reader> contents
@ -114,7 +117,7 @@ IN: io.launcher.windows.nt.tests
[ "B" ] [
launcher-test-path [
<process>
vm "-script" "env.factor" 3array >>command
console-vm "-script" "env.factor" 3array >>command
{ { "A" "B" } } >>environment
ascii <process-reader> contents
] with-directory eval
@ -125,7 +128,7 @@ IN: io.launcher.windows.nt.tests
[ f ] [
launcher-test-path [
<process>
vm "-script" "env.factor" 3array >>command
console-vm "-script" "env.factor" 3array >>command
{ { "USERPROFILE" "XXX" } } >>environment
+prepend-environment+ >>environment-mode
ascii <process-reader> contents
@ -151,7 +154,7 @@ IN: io.launcher.windows.nt.tests
2 [
launcher-test-path [
<process>
vm "-script" "append.factor" 3array >>command
console-vm "-script" "append.factor" 3array >>command
"append-test" temp-file <appender> >>stdout
try-process
] with-directory