Change 17841 by [EMAIL PROTECTED] on 2002/09/04 13:57:27
Subject: [PATCH] op/getpid.t failure
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Tue, 3 Sep 2002 17:48:24 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/op/getpid.t#2 edit
Differences ...
==== //depot/perl/t/op/getpid.t#2 (text) ====
Index: perl/t/op/getpid.t
--- perl/t/op/getpid.t#1~17798~ Thu Aug 29 04:44:00 2002
+++ perl/t/op/getpid.t Wed Sep 4 06:57:27 2002
@@ -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 @@
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');
End of Patch.
