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

use strict;
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) {
    waitpid($pid, 0);
    exit 0;
}

# 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());
Commit	Line	Data
34f7f30d	1	use strict;
	2	use Config qw(%Config);
	3	use Test;
	4	use Win32;
	5
	6	unless ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
	7	print "1..0 # Skip: Test requires fork emulation\n";
	8	exit 0;
	9	}
	10
	11	plan tests => 1;
	12
	13	if (my $pid = fork) {
	14	waitpid($pid, 0);
	15	exit 0;
	16	}
	17
	18	# This test relies on the implementation detail that the fork() emulation
	19	# uses the negative value of the thread id as a pseudo process id.
	20	ok(-$$, Win32::GetCurrentThreadId());