File perl-Package-Stash-old_Test-More.patch of Package perl-Package-Stash

Index: Package-Stash-0.29/t/01-basic.t
===================================================================
--- Package-Stash-0.29.orig/t/01-basic.t
+++ Package-Stash-0.29/t/01-basic.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Fatal;
 
 use Package::Stash;
@@ -417,4 +417,4 @@ like(exception {
     );
 }
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/02-extension.t
===================================================================
--- Package-Stash-0.29.orig/t/02-extension.t
+++ Package-Stash-0.29/t/02-extension.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Fatal;
 
 {
@@ -73,4 +73,4 @@ is(exception {
 
 ok(!defined($Foo::{baz}), '... the %baz slot has still not been created');
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/03-io.t
===================================================================
--- Package-Stash-0.29.orig/t/03-io.t
+++ Package-Stash-0.29/t/03-io.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Fatal;
 
 {
@@ -48,4 +48,4 @@ use Package::Stash;
     is($stash->get_symbol('baz'), *Foo::foo{IO}, "got the right baz");
 }
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/04-get.t
===================================================================
--- Package-Stash-0.29.orig/t/04-get.t
+++ Package-Stash-0.29/t/04-get.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
 
 use Package::Stash;
 use Scalar::Util;
@@ -183,4 +183,4 @@ use Scalar::Util;
     }
 }
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/05-isa.t
===================================================================
--- Package-Stash-0.29.orig/t/05-isa.t
+++ Package-Stash-0.29/t/05-isa.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
 
 use Package::Stash;
 
@@ -19,4 +19,4 @@ my @ISA = ('Bar');
 @{$stash->get_or_add_symbol('@ISA')} = @ISA;
 isa_ok('Foo', 'Bar');
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/06-addsub.t
===================================================================
--- Package-Stash-0.29.orig/t/06-addsub.t
+++ Package-Stash-0.29/t/06-addsub.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Fatal;
 
 BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
@@ -43,4 +43,4 @@ $foo_stash->add_symbol(
 is $DB::sub{'Foo::dunk'}, sprintf "%s:%d-%d", "FileName", 100, 199,
     '... got the right %DB::sub value for dunk with specified args';
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/07-edge-cases.t
===================================================================
--- Package-Stash-0.29.orig/t/07-edge-cases.t
+++ Package-Stash-0.29/t/07-edge-cases.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Fatal;
 
 use Package::Stash;
@@ -81,4 +81,4 @@ use_ok('CompileTime');
     ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted");
 }
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/10-synopsis.t
===================================================================
--- Package-Stash-0.29.orig/t/10-synopsis.t
+++ Package-Stash-0.29/t/10-synopsis.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
 
 use Package::Stash;
 
@@ -16,4 +16,4 @@ ok(!$stash->has_symbol('$foo'), "doesn't
 my $namespace = $stash->namespace;
 is_deeply(*{ $namespace->{foo} }{HASH}, {bar => 1}, "namespace works properly");
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/impl-selection/01-choice.t
===================================================================
--- Package-Stash-0.29.orig/t/impl-selection/01-choice.t
+++ Package-Stash-0.29/t/impl-selection/01-choice.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More qw(no_plan);
 
 my $has_xs = eval "require Package::Stash::XS; 1";
 
@@ -14,4 +14,4 @@ is($Package::Stash::IMPLEMENTATION, $exp
    "autodetected properly: $expected");
 can_ok('Package::Stash', 'new');
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/impl-selection/02-env.t
===================================================================
--- Package-Stash-0.29.orig/t/impl-selection/02-env.t
+++ Package-Stash-0.29/t/impl-selection/02-env.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More qw(no_plan);
 
 # XXX: work around dumb core segfault bug when you delete stashes
 sub get_impl { eval '$Package::Stash::IMPLEMENTATION' }
@@ -26,4 +26,4 @@ SKIP: {
     can_ok('Package::Stash', 'new');
 }
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/impl-selection/03-var.t
===================================================================
--- Package-Stash-0.29.orig/t/impl-selection/03-var.t
+++ Package-Stash-0.29/t/impl-selection/03-var.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More qw(no_plan);
 
 # XXX: work around dumb core segfault bug when you delete stashes
 sub get_impl { eval '$Package::Stash::IMPLEMENTATION' }
@@ -26,4 +26,4 @@ SKIP: {
     can_ok('Package::Stash', 'new');
 }
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/impl-selection/10-basic-pp.t
===================================================================
--- Package-Stash-0.29.orig/t/impl-selection/10-basic-pp.t
+++ Package-Stash-0.29/t/impl-selection/10-basic-pp.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Fatal;
 
 BEGIN { $Package::Stash::IMPLEMENTATION = 'PP' }
@@ -421,4 +421,4 @@ like(exception {
     );
 }
 
-done_testing;
+#done_testing;
Index: Package-Stash-0.29/t/impl-selection/11-basic-xs.t
===================================================================
--- Package-Stash-0.29.orig/t/impl-selection/11-basic-xs.t
+++ Package-Stash-0.29/t/impl-selection/11-basic-xs.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More qw(no_plan);
 use Test::Fatal;
 use Test::Requires 'Package::Stash::XS';
 
@@ -422,4 +422,4 @@ like(exception {
     );
 }
 
-done_testing;
+#done_testing;
openSUSE Build Service is sponsored by