diff options
| author | Reini Urban <rurban@x-ray.at> | 2008-03-08 21:55:36 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-03-11 19:45:55 +0000 |
| commit | 6df267e13ffca8ffa74cf99ccbf9cbaae3d039a9 (patch) | |
| tree | fa2347b4b1a8e5138c941df8553d1ac6842f1cfe /ext | |
| parent | 8a49911cd5ed6e2dbaf87560f1ec0306d959bf78 (diff) | |
| download | perl-6df267e13ffca8ffa74cf99ccbf9cbaae3d039a9.tar.gz | |
Re: Perl @ http://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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Win32/t/GetCurrentThreadId.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/Win32/t/GetCurrentThreadId.t b/ext/Win32/t/GetCurrentThreadId.t index e3cb11280d..230431c7cf 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); +} |