Change 28404 broke the construct s/foo/<<BAR/e. So, try to be more

[p5sagit/p5-mst-13.2.git] / t / op / getppid.t

diff --git a/t/op/getppid.t b/t/op/getppid.t
index cb069ff..70c5a32 100644 (file)
--- 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");