From: Karen Etheridge Date: Mon, 11 Jul 2016 22:14:19 +0000 (-0700) Subject: fix Test::More prereq for done_testing X-Git-Tag: v0.006019~11 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=commitdiff_plain;h=faaf054438bfab43b29e729879d4245ee8470729 fix Test::More prereq for done_testing --- diff --git a/t/build_sub_installer.t b/t/build_sub_installer.t index c5e8d92..49c5cec 100644 --- a/t/build_sub_installer.t +++ b/t/build_sub_installer.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; use Devel::Declare (); diff --git a/t/combi.t b/t/combi.t index 2a45094..d6f150a 100644 --- a/t/combi.t +++ b/t/combi.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; sub method :lvalue {my $sv;} diff --git a/t/ctx-simple.t b/t/ctx-simple.t index 70cf470..5b1db18 100644 --- a/t/ctx-simple.t +++ b/t/ctx-simple.t @@ -133,7 +133,7 @@ my ($test_method1, $test_method2, @test_list); } -use Test::More; +use Test::More 0.88; my $o = DeclareTest->new(attr => "value"); diff --git a/t/debug.t b/t/debug.t index c256ebf..85e15b6 100644 --- a/t/debug.t +++ b/t/debug.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; BEGIN { if($] eq "5.011002") { diff --git a/t/eval.t b/t/eval.t index 36cbba0..c9f12b8 100644 --- a/t/eval.t +++ b/t/eval.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; sub method { my ($usepack, $name, $inpack, $sub) = @_; diff --git a/t/fail.t b/t/fail.t index bb51978..0e98d55 100644 --- a/t/fail.t +++ b/t/fail.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; use Devel::Declare::MethodInstaller::Simple; BEGIN { diff --git a/t/methinstaller-simple.t b/t/methinstaller-simple.t index 6d5158c..d4edd32 100644 --- a/t/methinstaller-simple.t +++ b/t/methinstaller-simple.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; my $Have_Devel_BeginLift; BEGIN { diff --git a/t/method-no-semi.t b/t/method-no-semi.t index 99bd472..1bcfd2a 100644 --- a/t/method-no-semi.t +++ b/t/method-no-semi.t @@ -156,7 +156,7 @@ my ($test_method1, $test_method2, @test_list); } -use Test::More; +use Test::More 0.88; my $o = DeclareTest->new(attr => "value"); diff --git a/t/method.t b/t/method.t index a2b6ef5..e7299f6 100644 --- a/t/method.t +++ b/t/method.t @@ -140,7 +140,7 @@ my ($test_method1, $test_method2, @test_list); } -use Test::More; +use Test::More 0.88; my $o = DeclareTest->new(attr => "value"); diff --git a/t/new.t b/t/new.t index 7b74cba..2be36cd 100644 --- a/t/new.t +++ b/t/new.t @@ -1,7 +1,7 @@ use strict; use warnings; use Devel::Declare (); -use Test::More; +use Test::More 0.88; { package FoomHandlers; diff --git a/t/no-bareword.t b/t/no-bareword.t index e54325b..702cbb5 100644 --- a/t/no-bareword.t +++ b/t/no-bareword.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; our $i; BEGIN { $i = 0 }; diff --git a/t/pack.t b/t/pack.t index d69e089..535b235 100644 --- a/t/pack.t +++ b/t/pack.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; sub class { $_[0]->(); } diff --git a/t/padstuff.t b/t/padstuff.t index 85f8f52..206f752 100644 --- a/t/padstuff.t +++ b/t/padstuff.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; sub action (&) { return shift; } diff --git a/t/proto.t b/t/proto.t index bf13c92..506677e 100644 --- a/t/proto.t +++ b/t/proto.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; sub fun :lvalue { return my $sv; } diff --git a/t/simple.t b/t/simple.t index 0a44fe8..73547d2 100644 --- a/t/simple.t +++ b/t/simple.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; sub method { my ($usepack, $name, $inpack, $sub) = @_; diff --git a/t/statement.t b/t/statement.t index 35043b4..e37102f 100644 --- a/t/statement.t +++ b/t/statement.t @@ -1,7 +1,7 @@ use strict; use warnings; use Devel::Declare (); -use Test::More; +use Test::More 0.88; { package FoomHandlers; diff --git a/t/sugar.t b/t/sugar.t index 7478354..7cd4c54 100644 --- a/t/sugar.t +++ b/t/sugar.t @@ -66,7 +66,7 @@ my ($test_method1, $test_method2, @test_list); } -use Test::More; +use Test::More 0.88; my $o = DeclareTest->new(attr => "value");