summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scsh-process.scm2
-rw-r--r--tests/run.scm5
2 files changed, 6 insertions, 1 deletions
diff --git a/scsh-process.scm b/scsh-process.scm
index 88404a9..c5a286c 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -432,7 +432,7 @@
(fd-to (if (port? fd/port-to)
(port->fileno fd/port-to)
fd/port-to)))
- (duplicate-fileno ?fd-from fd-to)))
+ (duplicate-fileno fd-to ?fd-from)))
((_ (- ?fd/port))
(let ((o `?fd/port))
(cond
diff --git a/tests/run.scm b/tests/run.scm
index 7690752..96d49eb 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -85,6 +85,11 @@
;; process's stderr
(run/string (sh -c "echo 'hi, there' >&2")))
+ ;; Reported by Diego "dieggsy"
+ (test "Simple run/string and stderr dup()ed to stdout"
+ "hi, there\n"
+ (run/string (sh -c "echo 'hi, there' >&2") (= 2 1)))
+
(test "Unquote-splicing run/string"
"hi, there\n"
(run/string (echo ,@(list "hi," "there"))))