Thread::Queue: clean up some tests

Some of the tests (04_errs.t, 08_nothreads.t, 09_ended.t) already use
Test::More unconditionally, so remove the conditional loading code from
the other tests. Also, `use Config` doesn't need to be in a BEGIN block.

Author: mauke

dist/Thread-Queue/t/01_basic.t

@@ -1,8 +1,8 @@
 use strict;
 use warnings;
 
+use Config;
 BEGIN {
-    use Config;
     if (! $Config{'useithreads'}) {
         print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
         exit(0);
@@ -11,16 +11,7 @@ BEGIN {
 
 use threads;
 use Thread::Queue;
-
-BEGIN { # perl RT 133382
-if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-} # end BEGIN
-plan('tests' => 81);
+use Test::More 'tests' => 81;
 
 ### Basic usage with multiple threads ###
 

dist/Thread-Queue/t/02_refs.t

@@ -1,8 +1,8 @@
 use strict;
 use warnings;
 
+use Config;
 BEGIN {
-    use Config;
     if (! $Config{'useithreads'}) {
         print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
         exit(0);
@@ -12,16 +12,7 @@ BEGIN {
 use threads;
 use threads::shared;
 use Thread::Queue;
-
-BEGIN { # perl RT 133382
-if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-} # end BEGIN
-plan('tests' => 46);
+use Test::More 'tests' => 46;
 
 # Regular array
 my @ary1 = qw/foo bar baz/;

dist/Thread-Queue/t/03_peek.t

@@ -1,8 +1,8 @@
 use strict;
 use warnings;
 
+use Config;
 BEGIN {
-    use Config;
     if (! $Config{'useithreads'}) {
         print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
         exit(0);
@@ -11,16 +11,7 @@ BEGIN {
 
 use threads;
 use Thread::Queue;
-
-BEGIN { # perl RT 133382
-if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-} # end BEGIN
-plan('tests' => 19);
+use Test::More 'tests' => 19;
 
 my $q = Thread::Queue->new(1..10);
 ok($q, 'New queue');

dist/Thread-Queue/t/05_extract.t

@@ -11,16 +11,7 @@ BEGIN {
 
 use threads;
 use Thread::Queue;
-
-BEGIN { # perl RT 133382
-if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-} # end BEGIN
-plan('tests' => 20);
+use Test::More 'tests' => 20;
 
 my $q = Thread::Queue->new(1..10);
 ok($q, 'New queue');

dist/Thread-Queue/t/06_insert.t

@@ -11,16 +11,7 @@ BEGIN {
 
 use threads;
 use Thread::Queue;
-
-BEGIN { # perl RT 133382
-if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-} # end BEGIN
-plan('tests' => 16);
+use Test::More 'tests' => 16;
 
 my $q = Thread::Queue->new(1..10);
 ok($q, 'New queue');

dist/Thread-Queue/t/07_lock.t

@@ -12,16 +12,7 @@ BEGIN {
 use threads;
 use Thread::Queue;
 use Thread::Semaphore;
-
-BEGIN { # perl RT 133382
-if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-} # end BEGIN
-plan('tests' => 3);
+use Test::More 'tests' => 3;
 
 # The following tests locking a queue
 

dist/Thread-Queue/t/10_timed.t

@@ -11,16 +11,7 @@ BEGIN {
 
 use threads;
 use Thread::Queue;
-
-BEGIN { # perl RT 133382
-if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
-} else {
-    require Test::More;
-}
-Test::More->import();
-} # end BEGIN
-plan('tests' => 19);
+use Test::More 'tests' => 19;
 
 ### ->dequeue_timed(TIMEOUT, COUNT) test ###
 

dist/Thread-Queue/t/11_limit.t

@@ -17,9 +17,7 @@ BEGIN {
 use threads;
 use Thread::Queue;
 
-use Test::More;
-
-plan tests => 13;
+use Test::More tests => 13;
 
 my $q = Thread::Queue->new();
 my $rpt = Thread::Queue->new();