From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 11 Jan 2000 01:44:00 +0000 (+0000)
Subject: test for change#4792
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3542406806b8b77864daa479b2ea121b7d940cf9;p=p5sagit%2Fp5-mst-13.2.git

test for change#4792

p4raw-link: @4792 on //depot/perl: ad4e2db76417dc3c9feb57d207a4bcf3bf734aaf

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

diff --git a/t/op/fork.t b/t/op/fork.t
index 7a0b120..b743a45 100755
--- a/t/op/fork.t
+++ b/t/op/fork.t
@@ -227,19 +227,23 @@ if ($^O eq 'MSWin32') {
 else {
     $getenv = qq[$^X -e 'print \$ENV{TST}'];
 }
+$ENV{TST} = 'foo';
 if (fork) {
     sleep 1;
-    $ENV{TST} = 'foo';
-    print "parent: " . `$getenv`;
+    print "parent before: " . `$getenv`;
+    $ENV{TST} = 'bar';
+    print "parent after: " . `$getenv`;
 }
 else {
-    $ENV{TST} = 'bar';
-    print "child: " . `$getenv`;
-    sleep 1;
+    print "child before: " . `$getenv`;
+    $ENV{TST} = 'baz';
+    print "child after: " . `$getenv`;
 }
 EXPECT
-parent: foo
-child: bar
+child before: foo
+child after: baz
+parent before: foo
+parent after: bar
 ########
 $| = 1;
 $\ = "\n";