From: Michael G. Schwern <schwern@pobox.com>
Date: Tue, 3 Sep 2002 17:48:24 +0000 (-0700)
Subject: op/getpid.t failure
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88faa3e1196cb995dc6f12a2e95603325145515e;p=p5sagit%2Fp5-mst-13.2.git

op/getpid.t failure
Message-ID: <20020904004824.GG2701@ool-18b93024.dyn.optonline.net>

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

diff --git a/t/op/getpid.t b/t/op/getpid.t
index dd06f00..f1a4063 100644
--- a/t/op/getpid.t
+++ b/t/op/getpid.t
@@ -5,11 +5,14 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(../lib);
+    require './test.pl';
 }
 
 use strict;
 use Config;
 
+plan tests => 2;
+
 BEGIN {
     if (!$Config{useithreads}) {
 	print "1..0 # Skip: no ithreads\n";
@@ -30,6 +33,5 @@ my $ppid2 : shared = 0;
 
 new threads( sub { ($pid2, $ppid2) = ($$, getppid()); } ) -> join();
 
-print "1..2\n";
-print "not " if $pid  != $pid2;  print "ok 1 - pids\n";
-print "not " if $ppid != $ppid2; print "ok 2 - ppids\n";
+is($pid,  $pid2,  'pids');
+is($ppid, $ppid2, 'ppids');