From: Matt Kraai <kraai@ftbfs.org>
Date: Wed, 28 Nov 2007 15:52:36 +0000 (-0800)
Subject: Skip failing getppid tests on QNX 6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=185a8799cf53821042b26b9640dafc4ccbe89485;p=p5sagit%2Fp5-mst-13.2.git

Skip failing getppid tests on QNX 6
Message-ID: <20071128235236.GB16327@ftbfs.org>

p4raw-id: //depot/perl@32548
---

diff --git a/t/op/getppid.t b/t/op/getppid.t
index 70c5a32..f4ebc7e 100644
--- a/t/op/getppid.t
+++ b/t/op/getppid.t
@@ -40,7 +40,12 @@ sub fork_and_retrieve {
 	    unless my ($first, $second) = /^(\d+),(\d+)\z/;
 	cmp_ok ($first, '>=', 1, "Parent of $which grandchild");
 	cmp_ok ($second, '>=', 1, "New parent of orphaned $which grandchild");
-	isnt($first, $second, "Orphaned $which grandchild got a new parent");
+	SKIP: {
+	    skip("Orphan processes are not reparented on QNX", 1)
+		if $^O eq 'nto';
+	    isnt($first, $second,
+                 "Orphaned $which grandchild got a new parent");
+	}
 	return $second;
     }
     else {
@@ -68,5 +73,8 @@ 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");
+SKIP: {
+    skip ("Orphan processes are not reparented on QNX", 1) if $^O eq 'nto';
+    is ($first, $second, "Both orphaned grandchildren get the same new parent");
+}
 isnt ($first, $$, "And that new parent isn't this process");