ref: d25c17b544331ea7ef63cb92cff9f4f410e46b6d
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")