fix Test::More prereq for done_testing
Karen Etheridge [Mon, 11 Jul 2016 22:14:19 +0000 (15:14 -0700)]
17 files changed:
t/build_sub_installer.t
t/combi.t
t/ctx-simple.t
t/debug.t
t/eval.t
t/fail.t
t/methinstaller-simple.t
t/method-no-semi.t
t/method.t
t/new.t
t/no-bareword.t
t/pack.t
t/padstuff.t
t/proto.t
t/simple.t
t/statement.t
t/sugar.t

index c5e8d92..49c5cec 100644 (file)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More;
+use Test::More 0.88;
 
 use Devel::Declare ();
 
index 2a45094..d6f150a 100644 (file)
--- 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;}
 
index 70cf470..5b1db18 100644 (file)
@@ -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");
 
index c256ebf..85e15b6 100644 (file)
--- 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") {
index 36cbba0..c9f12b8 100644 (file)
--- 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) = @_;
index bb51978..0e98d55 100644 (file)
--- 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 {
index 6d5158c..d4edd32 100644 (file)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More;
+use Test::More 0.88;
 
 my $Have_Devel_BeginLift;
 BEGIN {
index 99bd472..1bcfd2a 100644 (file)
@@ -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");
 
index a2b6ef5..e7299f6 100644 (file)
@@ -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 (file)
--- 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;
index e54325b..702cbb5 100644 (file)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More;
+use Test::More 0.88;
 
 our $i;
 BEGIN { $i = 0 };
index d69e089..535b235 100644 (file)
--- 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]->(); }
 
index 85f8f52..206f752 100644 (file)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More;
+use Test::More 0.88;
 
 sub action (&) { return shift; }
 
index bf13c92..506677e 100644 (file)
--- 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; }
 
index 0a44fe8..73547d2 100644 (file)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More;
+use Test::More 0.88;
 
 sub method {
   my ($usepack, $name, $inpack, $sub) = @_;
index 35043b4..e37102f 100644 (file)
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use Devel::Declare ();
-use Test::More;
+use Test::More 0.88;
 
 {
   package FoomHandlers;
index 7478354..7cd4c54 100644 (file)
--- 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");