[PATCH] t/spawn: maybe check popen_rd w/ 2>&1 redirect

[Eric Wong <e@80x24.org>]

I didn't end up relying on this feature, but redirecting stderr
to stdout for `popen_rd' should work on the pipe.
---
 t/spawn.t | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/t/spawn.t b/t/spawn.t
index 9ed3be36..1fc6284d 100644
--- a/t/spawn.t
+++ b/t/spawn.t
@@ -103,6 +103,19 @@ EOF
 	ok(!$l, 'tied readline works for EOF');
 }
 
+if (0) { # we don't actually rely on this, yet, but maybe we will some day:
+	my $fh = popen_rd([qw(sh -c), 'echo >&2 err'], undef, { 2 => 1 });
+	is(my $l = <$fh>, "err\n", '2>&1 redirect');
+	is($l = <$fh>, undef, 'EOF after 2>&1');
+	ok(close($fh), 'close 2>&1');
+	$fh = popen_rd([qw(sh -c), 'echo out; echo >&2 err'], undef,
+			{ 2 => 1 });
+	my @l = <$fh>;
+	@l = sort(@l);
+	is_deeply(\@l, [ "err\n", "out\n" ], 'both out and err captured');
+	ok(close($fh), 'close 2>&1');
+}
+
 {
 	my $fh = popen_rd([qw(printf foo\nbar)]);
 	ok(fileno($fh) >= 0, 'tied fileno works');