diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-11 01:44:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-11 01:44:00 +0000 |
| commit | 3542406806b8b77864daa479b2ea121b7d940cf9 (patch) | |
| tree | f8d4fa157aab36ac06889602170bc651bac93d6f /t/op/fork.t | |
| parent | ad4e2db76417dc3c9feb57d207a4bcf3bf734aaf (diff) | |
| download | perl-3542406806b8b77864daa479b2ea121b7d940cf9.tar.gz | |
test for change#4792
p4raw-link: @4792 on //depot/perl: ad4e2db76417dc3c9feb57d207a4bcf3bf734aaf
p4raw-id: //depot/perl@4793
Diffstat (limited to 't/op/fork.t')
| -rwxr-xr-x | t/op/fork.t | 18 |
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"; |