# $RCSfile: pipe.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:31 $
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ require Config; import Config;
+ unless ($Config{'d_fork'}) {
+ print "1..0\n";
+ exit 0;
+ }
+}
+
$| = 1;
print "1..8\n";
-open(PIPE, "|-") || (exec 'tr', '[A-Z]', '[a-z]');
-print PIPE "OK 1\n";
-print PIPE "ok 2\n";
+open(PIPE, "|-") || (exec 'tr', 'YX', 'ko');
+print PIPE "Xk 1\n";
+print PIPE "oY 2\n";
close PIPE;
if (open(PIPE, "-|")) {