make ithreads tests skip if Devel::Cover loaded to avoid false negatives

PDLPorters · Nov 20, 2024 · 45ade3b · 45ade3b
1 parent 7a8302c
commit 45ade3b
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 0 deletions.
diff --git a/Basic/t/ppt-10_physical_piddles.t b/Basic/t/ppt-10_physical_piddles.t
@@ -7,6 +7,10 @@ BEGIN {
 		print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
 		exit(0);
 	}
+	if (defined $Devel::Cover::VERSION) {
+		print("1..0 # Skip: Devel::Cover no like ithreads\n");
+		exit(0);
+	}
 }
 
 use threads;

diff --git a/Basic/t/ppt-11_memory_mapped.t b/Basic/t/ppt-11_memory_mapped.t
@@ -7,6 +7,10 @@ BEGIN {
 		print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
 		exit(0);
 	}
+	if (defined $Devel::Cover::VERSION) {
+		print("1..0 # Skip: Devel::Cover no like ithreads\n");
+		exit(0);
+	}
 }
 
 use threads;

diff --git a/Basic/t/ppt-20_simd.t b/Basic/t/ppt-20_simd.t
@@ -7,6 +7,10 @@ BEGIN {
 		print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
 		exit(0);
 	}
+	if (defined $Devel::Cover::VERSION) {
+		print("1..0 # Skip: Devel::Cover no like ithreads\n");
+		exit(0);
+	}
 }
 
 use Test::More;

diff --git a/Basic/t/ppt-30_sharing_from_threads.t b/Basic/t/ppt-30_sharing_from_threads.t
@@ -7,6 +7,10 @@ BEGIN {
 		print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
 		exit(0);
 	}
+	if (defined $Devel::Cover::VERSION) {
+		print("1..0 # Skip: Devel::Cover no like ithreads\n");
+		exit(0);
+	}
 }
 
 # Tests if the threads can create data and share amongst themselves