From: Reini Urban <rurban@x-ray.at>
Date: Sat, 8 Mar 2008 20:55:36 +0000 (+0100)
Subject: Re: Perl @ http://www.ccl4.org/~nick/P/perl-33444.tar.bz2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09ec0e73029ccbac204a9e57a652ce1ed9ae0929;p=p5sagit%2Fp5-mst-13.2.git

Re: Perl @ www.ccl4.org/~nick/P/perl-33444.tar.bz2
Message-ID: <47D2EF38.10503@x-ray.at>

CYG09 enhance GetCurrentThreadId test

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

diff --git a/ext/Win32/t/GetCurrentThreadId.t b/ext/Win32/t/GetCurrentThreadId.t
index e3cb112..230431c 100644
--- a/ext/Win32/t/GetCurrentThreadId.t
+++ b/ext/Win32/t/GetCurrentThreadId.t
@@ -3,11 +3,6 @@ use Config qw(%Config);
 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 @@ if (my $pid = fork) {
 
 # 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);
+}