Change 33480 by [EMAIL PROTECTED] on 2008/03/11 19:45:55
Subject: Re: Perl @ http://www.ccl4.org/~nick/P/perl-33444.tar.bz2
From: Reini Urban <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Sat, 08 Mar 2008 20:55:36 +0100
CYG09 enhance GetCurrentThreadId test
Affected files ...
... //depot/perl/ext/Win32/t/GetCurrentThreadId.t#2 edit
Differences ...
==== //depot/perl/ext/Win32/t/GetCurrentThreadId.t#2 (text) ====
Index: perl/ext/Win32/t/GetCurrentThreadId.t
--- perl/ext/Win32/t/GetCurrentThreadId.t#1~31235~ 2007-05-18
03:46:57.000000000 -0700
+++ perl/ext/Win32/t/GetCurrentThreadId.t 2008-03-11 12:45:55.000000000
-0700
@@ -3,11 +3,6 @@
use Test;
use Win32;
-unless ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
- print "1..0 # Skip: Test requires fork emulation\n";
- exit 0;
-}
-
plan tests => 1;
if (my $pid = fork) {
@@ -17,4 +12,9 @@
# This test relies on the implementation detail that the fork() emulation
# uses the negative value of the thread id as a pseudo process id.
-ok(-$$, Win32::GetCurrentThreadId());
+if ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
+ ok(-$$, Win32::GetCurrentThreadId());
+} else {
+# here we just want to see something.
+ ok(Win32::GetCurrentThreadId() > 0);
+}
End of Patch.
