ext/Win32/t/GetCurrentThreadId.t

   1 use strict;
   2 use Config qw(%Config);
   3 use Test;
   4 use Win32;
   5
   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.
  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 }