From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 6 May 1999 04:36:31 +0000 (+0000)
Subject: additional test for IPC::Open3 (courtesy RonaldWS@aol.com)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7083d4d1d3a093e255a8035f600174baf7ee1b24;p=p5sagit%2Fp5-mst-13.2.git

additional test for IPC::Open3 (courtesy RonaldWS@aol.com)

p4raw-id: //depot/perl@3309
---

diff --git a/t/lib/open3.t b/t/lib/open3.t
index 3a5d1c1..7cd0ca3 100755
--- a/t/lib/open3.t
+++ b/t/lib/open3.t
@@ -49,7 +49,7 @@ my ($pid, $reaped_pid);
 STDOUT->autoflush;
 STDERR->autoflush;
 
-print "1..21\n";
+print "1..22\n";
 
 # basic
 ok 1, $pid = open3 'WRITE', 'READ', 'ERROR', $perl, '-e', cmd_line(<<'EOF');
@@ -134,3 +134,17 @@ EOF
 print WRITE "ok 20\n";
 print WRITE "ok 21\n";
 waitpid $pid, 0;
+
+# command line in single parameter variant of open3
+# for understanding of Config{'sh'} test see exec description in camel book
+my $cmd = 'print(scalar(<STDIN>))';
+$cmd = $Config{'sh'} =~ /sh/ ? "'$cmd'" : cmd_line($cmd);
+eval{$pid = open3 'WRITE', '>&STDOUT', 'ERROR', "$perl -e " . $cmd; };
+if ($@) {
+	print "error $@\n";
+	print "not ok 22\n";
+}
+else {
+	print WRITE "ok 22\n";
+	waitpid $pid, 0;
+}