[p5sagit/p5-mst-13.2.git] / ext / Win32 / t / GetCurrentThreadId.t

use strict;
use Config qw(%Config);
use Test;
use Win32;

plan tests => 1;

# This test relies on the implementation detail that the fork() emulation
# uses the negative value of the thread id as a pseudo process id.
if ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
    if (my $pid = fork) {
	waitpid($pid, 0);
	exit 0;
    }
    ok(-$$, Win32::GetCurrentThreadId());
} else {
# here we just want to see something.
    ok(Win32::GetCurrentThreadId() > 0);
}
Commit	Line	Data
34f7f30d	1	use strict;
	2	use Config qw(%Config);
	3	use Test;
	4	use Win32;
	5
34f7f30d	6	plan tests => 1;
34f7f30d	7
34f7f30d	8	# This test relies on the implementation detail that the fork() emulation
34f7f30d	9	# uses the negative value of the thread id as a pseudo process id.
09ec0e73	10	if ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
c762d24b	11	if (my $pid = fork) {
	12	waitpid($pid, 0);
	13	exit 0;
	14	}
09ec0e73	15	ok(-$$, Win32::GetCurrentThreadId());
	16	} else {
	17	# here we just want to see something.
	18	ok(Win32::GetCurrentThreadId() > 0);
	19	}