diff options
author | Michael G. Schwern <schwern@pobox.com> | 2002-09-03 10:48:24 -0700 |
---|---|---|
committer | hv <hv@crypt.org> | 2002-09-04 13:57:27 +0000 |
commit | 88faa3e1196cb995dc6f12a2e95603325145515e (patch) | |
tree | 3e1cf75a52b9d3c99443034ee30635b423e9af24 /t/op/getpid.t | |
parent | 6286f723a70d9d63bf59e611a2946140879179c3 (diff) | |
download | perl-88faa3e1196cb995dc6f12a2e95603325145515e.tar.gz |
op/getpid.t failure
Message-ID: <20020904004824.GG2701@ool-18b93024.dyn.optonline.net>
p4raw-id: //depot/perl@17841
Diffstat (limited to 't/op/getpid.t')
-rw-r--r-- | t/op/getpid.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/op/getpid.t b/t/op/getpid.t index dd06f006a6..f1a40636b4 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'); |