From 78c9fdc890794405fb422b4500cc019cb49c57ee Mon Sep 17 00:00:00 2001
From: Lukas Mai <lukasmai.403@gmail.com>
Date: Sat, 15 Mar 2025 13:28:27 +0100
Subject: [PATCH] Thread::Semaphore: clean up some tests

Some of the tests (02_errs.t, 03_nothreads.t) already use Test::More
unconditionally, so remove the conditional loading code from the other
tests.
---
 dist/Thread-Semaphore/t/01_basic.t       | 9 +--------
 dist/Thread-Semaphore/t/04_nonblocking.t | 9 +--------
 dist/Thread-Semaphore/t/05_force.t       | 9 +--------
 dist/Thread-Semaphore/t/06_timed.t       | 9 +--------
 4 files changed, 4 insertions(+), 32 deletions(-)

diff --git a/dist/Thread-Semaphore/t/01_basic.t b/dist/Thread-Semaphore/t/01_basic.t
index cfdadb90471b..9da2ffafd3f8 100644
--- a/dist/Thread-Semaphore/t/01_basic.t
+++ b/dist/Thread-Semaphore/t/01_basic.t
@@ -12,14 +12,7 @@ BEGIN {
 use threads;
 use threads::shared;
 use Thread::Semaphore;
-
-if ($] == 5.008) {
-    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-plan('tests' => 10);
+use Test::More 'tests' => 10;
 
 ### Basic usage with multiple threads ###
 
diff --git a/dist/Thread-Semaphore/t/04_nonblocking.t b/dist/Thread-Semaphore/t/04_nonblocking.t
index bef964eaf0db..4185843230ef 100644
--- a/dist/Thread-Semaphore/t/04_nonblocking.t
+++ b/dist/Thread-Semaphore/t/04_nonblocking.t
@@ -12,14 +12,7 @@ BEGIN {
 use threads;
 use threads::shared;
 use Thread::Semaphore;
-
-if ($] == 5.008) {
-    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-plan('tests' => 12);
+use Test::More 'tests' => 12;
 
 ### Basic usage with multiple threads ###
 
diff --git a/dist/Thread-Semaphore/t/05_force.t b/dist/Thread-Semaphore/t/05_force.t
index ee7090b64521..54807ca37906 100644
--- a/dist/Thread-Semaphore/t/05_force.t
+++ b/dist/Thread-Semaphore/t/05_force.t
@@ -12,14 +12,7 @@ BEGIN {
 use threads;
 use threads::shared;
 use Thread::Semaphore;
-
-if ($] == 5.008) {
-    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-plan('tests' => 8);
+use Test::More 'tests' => 8;
 
 ### Basic usage with multiple threads ###
 
diff --git a/dist/Thread-Semaphore/t/06_timed.t b/dist/Thread-Semaphore/t/06_timed.t
index 11f675981f00..f5db37e40600 100644
--- a/dist/Thread-Semaphore/t/06_timed.t
+++ b/dist/Thread-Semaphore/t/06_timed.t
@@ -12,14 +12,7 @@ BEGIN {
 use threads;
 use threads::shared;
 use Thread::Semaphore;
-
-if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-plan('tests' => 10);
+use Test::More 'tests' => 10;
 
 ### Basic usage with multiple threads ###