blob: 07ecfb644c8049974d9f40f072cd4bf24bc5f238 (
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
25
26
27
|
(load "../common")
(unless (path-executable-to-me-p "/bin/sh")
(exit 0))
(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")))
|
