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 (file)
--- 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');