From ebc91159198aabf8d1bd3e03d9cee807b5b97902 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 20 Jun 2021 16:16:50 -0700
Subject: subprocesses: a few test cases.

* tests/018/process.tl: New file.
---
 tests/018/process.tl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 tests/018/process.tl

diff --git a/tests/018/process.tl b/tests/018/process.tl
new file mode 100644
index 00000000..b34047b2
--- /dev/null
+++ b/tests/018/process.tl
@@ -0,0 +1,18 @@
+(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)))
+
+(mtest
+  (fcmd (let ((*stdout* *stdnull*)) (sh "echo foo"))) ""
+  (fcmd (let ((*stderr* *stdout*)) (sh "echo foo 1>&1"))) "foo\n")
-- 
cgit v1.2.3