skip tests that hangs on Windows XP

ingydotnet · Dec 7, 2014 · 6bd908a · 6bd908a
1 parent b227148
commit 6bd908a
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/test/26fork.t b/test/26fork.t
@@ -9,6 +9,15 @@ if($^O =~ /MSWin32/i && $Config{useithreads} ne 'define') {
   plan skip_all => 'fork() not implemented';
   exit 0;
 }
+if($^O =~ /MSWin32/i) {
+  require Win32;
+  my (undef, $major) = Win32::GetOSVersion();
+  if ($major <= 5) {
+    plan skip_all => 'tests hang on Windows XP';
+    exit 0;
+  }
+}
+
 
     my $pid = fork;
     eval { Inline->bind(C => 'int add(int x, int y) { return x + y; }'); };