summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-04-01 15:21:56 +0000
committerNicholas Clark <nick@ccl4.org>2006-04-01 15:21:56 +0000
commitbd5a473b14ab0ddcc6e647d00ffa52195c32018d (patch)
tree46f70d09d5ccf0ce6329918e2caea419ee0d5215 /t
parenta428795db34ad0ab0091b073e8062b7e0f58355e (diff)
downloadperl-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.t3
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");