diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-04-01 15:21:56 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-04-01 15:21:56 +0000 |
commit | bd5a473b14ab0ddcc6e647d00ffa52195c32018d (patch) | |
tree | 46f70d09d5ccf0ce6329918e2caea419ee0d5215 /t | |
parent | a428795db34ad0ab0091b073e8062b7e0f58355e (diff) | |
download | perl-bd5a473b14ab0ddcc6e647d00ffa52195c32018d.tar.gz |
If the comment says "(and not ours)" then it should be tested.
p4raw-id: //depot/perl@27662
Diffstat (limited to 't')
-rw-r--r-- | t/op/getppid.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/getppid.t b/t/op/getppid.t index cb069ff360..70c5a32499 100644 --- a/t/op/getppid.t +++ b/t/op/getppid.t @@ -23,7 +23,7 @@ BEGIN { } } require './test.pl'; - plan (7); + plan (8); } sub fork_and_retrieve { @@ -69,3 +69,4 @@ sub fork_and_retrieve { my $first = fork_and_retrieve("first"); my $second = fork_and_retrieve("second"); is ($first, $second, "Both orphaned grandchildren get the same new parent"); +isnt ($first, $$, "And that new parent isn't this process"); |