test for change#4792

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

p4raw-id: //depot/perl@4793

1 files changed, 11 insertions, 7 deletions

diff --git a/t/op/fork.t b/t/op/fork.t
index 7a0b120f5f..b743a4589f 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";