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