Blame SOURCES/Package-Stash-0.37-old-Test::More.patch

632bab
--- t/addsub.t
632bab
+++ t/addsub.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 7;
632bab
 use Test::Fatal;
632bab
 
632bab
 BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
632bab
@@ -42,5 +42,3 @@ $foo_stash->add_symbol(
632bab
 
632bab
 is $DB::sub{'Foo::dunk'}, sprintf "%s:%d-%d", "FileName", 100, 199,
632bab
     '... got the right %DB::sub value for dunk with specified args';
632bab
-
632bab
-done_testing;
632bab
--- t/anon-basic.t
632bab
+++ t/anon-basic.t
632bab
@@ -16,6 +16,8 @@ BEGIN {
632bab
 use Test::Requires 'Package::Anon';
632bab
 use Symbol;
632bab
 
632bab
+plan tests => 122;
632bab
+
632bab
 my $Foo = Package::Anon->new('Foo');
632bab
 $Foo->{SOME_CONSTANT} = \1;
632bab
 
632bab
@@ -402,5 +404,3 @@ $Quuux->{quuuux} = -1;
632bab
 
632bab
 is_deeply([Package::Stash->new('Quuux')->list_all_symbols], [],
632bab
           "Quuux:: isn't touched");
632bab
-
632bab
-done_testing;
632bab
--- t/anon.t
632bab
+++ t/anon.t
632bab
@@ -16,6 +16,8 @@ BEGIN {
632bab
 use Test::Requires 'Package::Anon';
632bab
 use Symbol;
632bab
 
632bab
+plan tests => 7;
632bab
+
632bab
 my $anon = Package::Anon->new;
632bab
 my $stash = Package::Stash->new($anon);
632bab
 my $obj = $anon->bless({});
632bab
@@ -47,5 +49,3 @@ my $obj = $anon->bless({});
632bab
         qr/Undefined subroutine \&__ANON__::baz called/
632bab
     );
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/bare-anon-basic.t
632bab
+++ t/bare-anon-basic.t
632bab
@@ -17,6 +17,8 @@ BEGIN {
632bab
 
632bab
 use Symbol;
632bab
 
632bab
+plan tests => 10;
632bab
+
632bab
 my $Foo = {};
632bab
 $Foo->{SOME_CONSTANT} = \1;
632bab
 
632bab
@@ -396,5 +398,3 @@ $Quuux->{quuuux} = -1;
632bab
 
632bab
 is_deeply([Package::Stash->new('Quuux')->list_all_symbols], [],
632bab
           "Quuux:: isn't touched");
632bab
-
632bab
-done_testing;
632bab
--- t/bare-anon.t
632bab
+++ t/bare-anon.t
632bab
@@ -17,6 +17,8 @@ BEGIN {
632bab
 
632bab
 use Symbol;
632bab
 
632bab
+plan tests => 10;
632bab
+
632bab
 my $anon = {};
632bab
 my $stash = Package::Stash->new($anon);
632bab
 # no way to bless something into a hashref yet
632bab
@@ -61,5 +63,3 @@ my $stash = Package::Stash->new($anon);
632bab
         undef
632bab
     );
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/basic.t
632bab
+++ t/basic.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 131;
632bab
 use Test::Fatal;
632bab
 
632bab
 use Package::Stash;
632bab
@@ -444,5 +444,3 @@ like(
632bab
     qr/^Package::Stash->new must be passed the name of the package to access/,
632bab
     "module name must be a string"
632bab
 );
632bab
-
632bab
-done_testing;
632bab
--- t/compile-time.t
632bab
+++ t/compile-time.t
632bab
@@ -2,8 +2,6 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 1;
632bab
 
632bab
 use_ok('CompileTime');
632bab
-
632bab
-done_testing;
632bab
--- t/edge-cases.t
632bab
+++ t/edge-cases.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 19;
632bab
 use Test::Fatal;
632bab
 
632bab
 use Package::Stash;
632bab
@@ -109,5 +109,3 @@ SKIP: {
632bab
     my $stash = Package::Stash->new('HasISA');
632bab
     is_deeply([$stash->list_all_symbols('SCALAR')], []);
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/extension.t
632bab
+++ t/extension.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 15;
632bab
 use Test::Fatal;
632bab
 
632bab
 {
632bab
@@ -72,5 +72,3 @@ is(exception {
632bab
 }, undef, '... created %Foo::baz successfully');
632bab
 
632bab
 ok(!defined($Foo::{baz}), '... the %baz slot has still not been created');
632bab
-
632bab
-done_testing;
632bab
--- t/get.t
632bab
+++ t/get.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 36;
632bab
 
632bab
 use Package::Stash;
632bab
 use Scalar::Util;
632bab
@@ -182,5 +182,3 @@ use Scalar::Util;
632bab
              "stash has the right variable");
632bab
     }
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/impl-selection/basic-pp.t
632bab
+++ t/impl-selection/basic-pp.t
632bab
@@ -1,7 +1,7 @@
632bab
 #!/usr/bin/env perl
632bab
 use strict;
632bab
 use warnings;
632bab
-use Test::More;
632bab
+use Test::More tests => 133;
632bab
 use Test::Fatal;
632bab
 
632bab
 BEGIN { $Package::Stash::IMPLEMENTATION = 'PP' }
632bab
@@ -448,5 +448,3 @@ like(
632bab
     qr/^Package::Stash->new must be passed the name of the package to access/,
632bab
     "module name must be a string"
632bab
 );
632bab
-
632bab
-done_testing;
632bab
--- t/impl-selection/basic-xs.t
632bab
+++ t/impl-selection/basic-xs.t
632bab
@@ -1,7 +1,7 @@
632bab
 #!/usr/bin/env perl
632bab
 use strict;
632bab
 use warnings;
632bab
-use Test::More;
632bab
+use Test::More tests => 133;
632bab
 use Test::Fatal;
632bab
 use Test::Requires 'Package::Stash::XS';
632bab
 
632bab
@@ -449,5 +449,3 @@ like(
632bab
     qr/^Package::Stash->new must be passed the name of the package to access/,
632bab
     "module name must be a string"
632bab
 );
632bab
-
632bab
-done_testing;
632bab
--- t/impl-selection/bug-rt-78272.t
632bab
+++ t/impl-selection/bug-rt-78272.t
632bab
@@ -1,7 +1,7 @@
632bab
 #!/usr/bin/env perl
632bab
 use strict;
632bab
 use warnings;
632bab
-use Test::More;
632bab
+use Test::More tests => 2;
632bab
 use Test::Fatal;
632bab
 
632bab
 # https://rt.cpan.org/Public/Bug/Display.html?id=78272
632bab
@@ -22,18 +22,3 @@ like(
632bab
     'Sanity check: forcing package reload throws the exception again'
632bab
 );
632bab
 
632bab
-is(
632bab
-    exception {
632bab
-        $ENV{PACKAGE_STASH_IMPLEMENTATION} = "PP";
632bab
-        delete $INC{'Package/Stash.pm'};
632bab
-        require Package::Stash;
632bab
-        new_ok(
632bab
-            'Package::Stash' => ['Foo'],
632bab
-            'Loaded and able to create instances'
632bab
-        );
632bab
-    },
632bab
-    undef,
632bab
-    'Valid $ENV value loads correctly'
632bab
-);
632bab
-
632bab
-done_testing;
632bab
--- t/impl-selection/choice.t
632bab
+++ t/impl-selection/choice.t
632bab
@@ -1,7 +1,7 @@
632bab
 #!/usr/bin/env perl
632bab
 use strict;
632bab
 use warnings;
632bab
-use Test::More;
632bab
+use Test::More tests => 2;
632bab
 
632bab
 my $has_xs = eval "require Package::Stash::XS; 1";
632bab
 
632bab
@@ -13,5 +13,3 @@ my $expected = $has_xs ? 'XS' : 'PP';
632bab
 is($Package::Stash::IMPLEMENTATION, $expected,
632bab
    "autodetected properly: $expected");
632bab
 can_ok('Package::Stash', 'new');
632bab
-
632bab
-done_testing;
632bab
--- t/impl-selection/env.t
632bab
+++ t/impl-selection/env.t
632bab
@@ -1,7 +1,7 @@
632bab
 #!/usr/bin/env perl
632bab
 use strict;
632bab
 use warnings;
632bab
-use Test::More;
632bab
+use Test::More tests => 6;
632bab
 
632bab
 # XXX: work around dumb core segfault bug when you delete stashes
632bab
 sub get_impl { eval '$Package::Stash::IMPLEMENTATION' }
632bab
@@ -35,5 +35,3 @@ SKIP: {
632bab
     is(get_impl, 'PP', '$ENV takes precedence over $Package::Stash::IMPLEMENTATION');
632bab
     can_ok('Package::Stash', 'new');
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/impl-selection/var.t
632bab
+++ t/impl-selection/var.t
632bab
@@ -1,7 +1,7 @@
632bab
 #!/usr/bin/env perl
632bab
 use strict;
632bab
 use warnings;
632bab
-use Test::More;
632bab
+use Test::More tests => 4;
632bab
 
632bab
 # XXX: work around dumb core segfault bug when you delete stashes
632bab
 sub get_impl { eval '$Package::Stash::IMPLEMENTATION' }
632bab
@@ -25,5 +25,3 @@ SKIP: {
632bab
     is(get_impl, 'XS', "autodetected properly: XS");
632bab
     can_ok('Package::Stash', 'new');
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/io.t
632bab
+++ t/io.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 11;
632bab
 use Test::Fatal;
632bab
 
632bab
 {
632bab
@@ -47,5 +47,3 @@ use Package::Stash;
632bab
     ok($stash->has_symbol('baz'), "has baz");
632bab
     is($stash->get_symbol('baz'), *Foo::foo{IO}, "got the right baz");
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/isa.t
632bab
+++ t/isa.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 8;
632bab
 
632bab
 use Package::Stash;
632bab
 
632bab
@@ -19,7 +19,10 @@ use Package::Stash;
632bab
     my $stash = Package::Stash->new('Foo');
632bab
     my @ISA = ('Bar');
632bab
     @{$stash->get_or_add_symbol('@ISA')} = @ISA;
632bab
+    SKIP: {
632bab
+    skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
632bab
     isa_ok('Foo', 'Bar');
632bab
+    }
632bab
     isa_ok(bless({}, 'Foo'), 'Bar');
632bab
 }
632bab
 
632bab
@@ -33,17 +36,21 @@ use Package::Stash;
632bab
     {
632bab
         my $isa = $stash->get_or_add_symbol('@ISA');
632bab
         @$isa = ('Baz');
632bab
+        SKIP: {
632bab
+        skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
632bab
         isa_ok('Quux', 'Baz');
632bab
+        }
632bab
         isa_ok(bless({}, 'Quux'), 'Baz');
632bab
         ok(Quux->can('foo'));
632bab
     }
632bab
     {
632bab
         my $isa = $stash->get_or_add_symbol('@ISA');
632bab
         @$isa = ('Bar');
632bab
+        SKIP: {
632bab
+        skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
632bab
         isa_ok('Quux', 'Bar');
632bab
+        }
632bab
         isa_ok(bless({}, 'Quux'), 'Bar');
632bab
         ok(Quux->can('bar'));
632bab
     }
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/magic.t
632bab
+++ t/magic.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 14;
632bab
 
632bab
 use Package::Stash;
632bab
 
632bab
@@ -77,4 +77,3 @@ SKIP: {
632bab
     is($store, 0, "get_or_add_symbol stores (populated slot)");
632bab
 }
632bab
 
632bab
-done_testing;
632bab
--- t/paamayim_nekdotayim.t
632bab
+++ t/paamayim_nekdotayim.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 3;
632bab
 use Test::Fatal;
632bab
 
632bab
 use Package::Stash;
632bab
@@ -24,5 +24,3 @@ like(
632bab
     qr/^Variable names may not contain ::/,
632bab
     "can't add symbol with ::"
632bab
 );
632bab
-
632bab
-done_testing;
632bab
--- t/scalar-values.t
632bab
+++ t/scalar-values.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 14;
632bab
 use Test::Fatal;
632bab
 
632bab
 use B;
632bab
@@ -49,5 +49,3 @@ my $vstring = v1.2.3;
632bab
 is(reftype(\$vstring), ($] < 5.010 ? 'SCALAR' : 'VSTRING'));
632bab
 is(exception { $Bar->add_symbol('$vstring', \$vstring) }, undef,
632bab
    "can add vstring values");
632bab
-
632bab
-done_testing;
632bab
--- t/stash-deletion.t
632bab
+++ t/stash-deletion.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 2;
632bab
 
632bab
 use Package::Stash;
632bab
 
632bab
@@ -20,5 +20,3 @@ use Package::Stash;
632bab
     }
632bab
     ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted");
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- t/synopsis.t
632bab
+++ t/synopsis.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 3;
632bab
 
632bab
 use Package::Stash;
632bab
 
632bab
@@ -15,5 +15,3 @@ $stash->add_symbol('%foo', {bar => 1});
632bab
 ok(!$stash->has_symbol('$foo'), "doesn't have anything in scalar slot");
632bab
 my $namespace = $stash->namespace;
632bab
 is_deeply(*{ $namespace->{foo} }{HASH}, {bar => 1}, "namespace works properly");
632bab
-
632bab
-done_testing;
632bab
--- t/warnings-taint.t
632bab
+++ t/warnings-taint.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 1;
632bab
 
632bab
 use Package::Stash;
632bab
 
632bab
@@ -19,4 +19,3 @@ BEGIN {
632bab
 
632bab
 is($warnings, '');
632bab
 
632bab
-done_testing;
632bab
--- t/warnings.t
632bab
+++ t/warnings.t
632bab
@@ -2,7 +2,7 @@
632bab
 use strict;
632bab
 use warnings;
632bab
 use lib 't/lib';
632bab
-use Test::More;
632bab
+use Test::More tests => 1;
632bab
 
632bab
 use Package::Stash;
632bab
 
632bab
@@ -18,5 +18,3 @@ BEGIN {
632bab
 }
632bab
 
632bab
 is($warnings, '');
632bab
-
632bab
-done_testing;
632bab
--- xt/author/leaks-debug.t
632bab
+++ xt/author/leaks-debug.t
632bab
@@ -6,6 +6,8 @@ use Test::More;
632bab
 use Test::Fatal;
632bab
 use Test::LeakTrace;
632bab
 
632bab
+plan tests => 45;
632bab
+
632bab
 BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
632bab
 
632bab
 use Package::Stash;
632bab
@@ -176,7 +178,10 @@ use Symbol;
632bab
     ok($foo->has_symbol('@ISA'));
632bab
     is(ref($foo->get_symbol('@ISA')), 'ARRAY');
632bab
     is_deeply($foo->get_symbol('@ISA'), ['Exporter']);
632bab
+    SKIP: {
632bab
+    skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
632bab
     isa_ok('Foo', 'Exporter');
632bab
+    }
632bab
 }
632bab
 
632bab
 {
632bab
@@ -226,5 +231,3 @@ use Symbol;
632bab
         eval { $foo->add_symbol('&blorg') };
632bab
     } "doesn't leak on errors";
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- xt/author/leaks.t
632bab
+++ xt/author/leaks.t
632bab
@@ -6,6 +6,8 @@ use Test::More;
632bab
 use Test::Fatal;
632bab
 use Test::LeakTrace;
632bab
 
632bab
+plan tests => 45;
632bab
+
632bab
 use Package::Stash;
632bab
 use Symbol;
632bab
 
632bab
@@ -174,7 +176,10 @@ use Symbol;
632bab
     ok($foo->has_symbol('@ISA'));
632bab
     is(ref($foo->get_symbol('@ISA')), 'ARRAY');
632bab
     is_deeply($foo->get_symbol('@ISA'), ['Exporter']);
632bab
+    SKIP: {
632bab
+    skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
632bab
     isa_ok('Foo', 'Exporter');
632bab
+    }
632bab
 }
632bab
 
632bab
 {
632bab
@@ -224,5 +229,3 @@ use Symbol;
632bab
         eval { $foo->add_symbol('&blorg') };
632bab
     } "doesn't leak on errors";
632bab
 }
632bab
-
632bab
-done_testing;
632bab
--- xt/release/no-tabs.t
632bab
+++ xt/release/no-tabs.t
632bab
@@ -3,7 +3,7 @@ use warnings;
632bab
 
632bab
 # this test was generated with Dist::Zilla::Plugin::Test::NoTabs 0.08
632bab
 
632bab
-use Test::More 0.88;
632bab
+use Test::More;
632bab
 use Test::NoTabs;
632bab
 
632bab
 my @files = (
632bab
@@ -41,5 +41,6 @@ my @files = (
632bab
     't/warnings.t'
632bab
 );
632bab
 
632bab
+plan tests => scalar @files;
632bab
+
632bab
 notabs_ok($_) foreach @files;
632bab
-done_testing;