ref: 476b3ea3a5d3791c51daa633b800ec0c76435a33
dir: /tests/shell.zuo/
#lang zuo (require "harness.zuo") (alert "shell") (define unix? (eq? (hash-ref (runtime-env) 'system-type) 'unix)) (when unix? (let ([p (shell "echo hi" (hash 'stdout 'pipe))]) (check (fd-read (hash-ref p 'stdout) eof) "hi\n") (fd-close (hash-ref p 'stdout)) (process-wait (hash-ref p 'process)) (check (process-status (hash-ref p 'process)) 0))) (check (build-shell "x" "" "y" "" "" "z" "") "x y z") (check (build-shell "x" "" '("y" "" "" "z") "") "x y z")