Skip thread tests under Devel::Cover

diff --git a/t/51threadnodb.t b/t/51threadnodb.t
index 9b69fa1..95c9aaf 100644 (file)
--- a/t/51threadnodb.t
+++ b/t/51threadnodb.t
@@ -4,6 +4,11 @@ BEGIN {
     print "1..0 # SKIP your perl does not support ithreads\n";
     exit 0;
   }
+
+  if ($INC{'Devel/Cover.pm'}) {
+    print "1..0 # SKIP Devel::Cover does not work with threads yet\n";
+    exit 0;
+  }
 }
 use threads;
 

diff --git a/t/51threads.t b/t/51threads.t
index 6dc0d11..382458d 100644 (file)
--- a/t/51threads.t
+++ b/t/51threads.t
@@ -4,6 +4,11 @@ BEGIN {
     print "1..0 # SKIP your perl does not support ithreads\n";
     exit 0;
   }
+
+  if ($INC{'Devel/Cover.pm'}) {
+    print "1..0 # SKIP Devel::Cover does not work with threads yet\n";
+    exit 0;
+  }
 }
 use threads;
 

diff --git a/t/51threadtxn.t b/t/51threadtxn.t
index 4ab96fb..a0e07bd 100644 (file)
--- a/t/51threadtxn.t
+++ b/t/51threadtxn.t
@@ -7,6 +7,11 @@ BEGIN {
     print "1..0 # SKIP your perl does not support ithreads\n";
     exit 0;
   }
+
+  if ($INC{'Devel/Cover.pm'}) {
+    print "1..0 # SKIP Devel::Cover does not work with threads yet\n";
+    exit 0;
+  }
 }
 use threads;