From: Karen Etheridge Date: Fri, 20 Apr 2018 13:06:04 +0000 (+0200) Subject: done_testing > no_plan X-Git-Tag: v2.000005~8 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Fstrictures.git;a=commitdiff_plain;h=09dcd779e42c0818abe4220b900b730fc67e1e7e;hp=d5529858655f86ef603855d08d0258154e7f05a8 done_testing > no_plan --- diff --git a/t/extras.t b/t/extras.t index 0423d40..33654e5 100644 --- 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 --- 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;