blob: 1b3780ac5109b8fba2958eb98401acf179f95e66 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(load "../common")
(defun cmd (c : (m "r"))
(with-stream (s (open-command c m))
(get-string s)))
(mtest
(cmd "echo foo") "foo\n"
(cmd "echo foo" ">1n") ""
(cmd "echo foo 1>&2" ">21") "foo\n")
(defmacro fcmd (. forms)
^(with-stream (s (open-subprocess nil "r" nil (lambda () ,*forms)))
(get-string s)))
(caseq (os-symbol)
((:cygwin :cygnal)
(mtest
(fcmd (let ((*stdout* *stdnull*)) (sh "echo foo"))) ""
(fcmd (let ((*stderr* *stdout*)) (sh "echo foo 1>&2"))) "foo \r\n"))
(t
(mtest
(fcmd (let ((*stdout* *stdnull*)) (sh "echo foo"))) ""
(fcmd (let ((*stderr* *stdout*)) (sh "echo foo 1>&2"))) "foo\n")))
|
