98 lines
1.9 KiB
Factor
Executable File
98 lines
1.9 KiB
Factor
Executable File
IN: io.unix.launcher.tests
|
|
USING: io.files tools.test io.launcher arrays io namespaces
|
|
continuations math io.encodings.binary io.encodings.ascii
|
|
accessors kernel sequences ;
|
|
|
|
[ ] [
|
|
[ "launcher-test-1" temp-file delete-file ] ignore-errors
|
|
] unit-test
|
|
|
|
[ ] [
|
|
"touch"
|
|
"launcher-test-1" temp-file
|
|
2array
|
|
try-process
|
|
] unit-test
|
|
|
|
[ t ] [ "launcher-test-1" temp-file exists? ] unit-test
|
|
|
|
[ ] [
|
|
[ "launcher-test-1" temp-file delete-file ] ignore-errors
|
|
] unit-test
|
|
|
|
[ ] [
|
|
<process>
|
|
"echo Hello" >>command
|
|
"launcher-test-1" temp-file >>stdout
|
|
try-process
|
|
] unit-test
|
|
|
|
[ "Hello\n" ] [
|
|
"cat"
|
|
"launcher-test-1" temp-file
|
|
2array
|
|
ascii <process-stream> contents
|
|
] unit-test
|
|
|
|
[ f ] [
|
|
<process>
|
|
"cat"
|
|
"launcher-test-1" temp-file
|
|
2array >>command
|
|
+inherit+ >>stdout
|
|
ascii <process-stream> contents
|
|
] unit-test
|
|
|
|
[ ] [
|
|
[ "launcher-test-1" temp-file delete-file ] ignore-errors
|
|
] unit-test
|
|
|
|
[ ] [
|
|
<process>
|
|
"cat" >>command
|
|
+closed+ >>stdin
|
|
"launcher-test-1" temp-file >>stdout
|
|
try-process
|
|
] unit-test
|
|
|
|
[ f ] [
|
|
"cat"
|
|
"launcher-test-1" temp-file
|
|
2array
|
|
ascii <process-stream> contents
|
|
] unit-test
|
|
|
|
[ ] [
|
|
2 [
|
|
"launcher-test-1" temp-file binary <file-appender> [
|
|
<process>
|
|
swap >>stdout
|
|
"echo Hello" >>command
|
|
try-process
|
|
] with-disposal
|
|
] times
|
|
] unit-test
|
|
|
|
[ "Hello\nHello\n" ] [
|
|
"cat"
|
|
"launcher-test-1" temp-file
|
|
2array
|
|
ascii <process-stream> contents
|
|
] unit-test
|
|
|
|
[ t ] [
|
|
<process>
|
|
"env" >>command
|
|
{ { "A" "B" } } >>environment
|
|
ascii <process-stream> lines
|
|
"A=B" swap member?
|
|
] unit-test
|
|
|
|
[ { "A=B" } ] [
|
|
<process>
|
|
"env" >>command
|
|
{ { "A" "B" } } >>environment
|
|
+replace-environment+ >>environment-mode
|
|
ascii <process-stream> lines
|
|
] unit-test
|