done_testing > no_plan

diff --git a/t/extras.t b/t/extras.t
index 0423d40..33654e5 100644 (file)
--- a/t/extras.t
+++ b/t/extras.t
@@ -1,8 +1,9 @@
 BEGIN { delete $ENV{PERL_STRICTURES_EXTRA} }
 use strict;
 use warnings;
-use Test::More $] >= 5.008_004 ? qw(no_plan)
-  : (skip_all => 'Extra tests disabled on perls <= 5.008003');
+use Test::More 0.88;
+
+plan skip_all => 'Extra tests disabled on perls <= 5.008003' unless $] >= 5.008_004;
 
 use File::Temp;
 use Cwd 'cwd';
@@ -130,3 +131,5 @@ use strictures $version;
     }
   }
 }
+
+done_testing;

diff --git a/t/strictures.t b/t/strictures.t
index 920dc7c..20ca87b 100644 (file)
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -2,9 +2,11 @@ BEGIN { $ENV{PERL_STRICTURES_EXTRA} = 0 }
 
 sub _eval { eval $_[0] }
 
+use Test::More 0.88;
+
 use strict;
 use warnings;
-use Test::More qw(no_plan);
+use Test::More;
 
 sub capture_hints {
   my $code = shift;
@@ -76,3 +78,5 @@ eval qq{ use strictures $strictures::VERSION; };
 
 is $@, '',
   "Can use current strictures version";
+
+done_testing;