diff -up Package-Stash-XS-0.19/t/01-basic.t.orig Package-Stash-XS-0.19/t/01-basic.t
--- Package-Stash-XS-0.19/t/01-basic.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/01-basic.t 2011-01-06 08:55:03.658919749 +0000
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More tests => 122;
use Test::Fatal;
use Package::Stash;
@@ -416,5 +416,3 @@ like(exception {
"list_all_symbols CODE",
);
}
-
-done_testing;
diff -up Package-Stash-XS-0.19/t/02-extension.t.orig Package-Stash-XS-0.19/t/02-extension.t
--- Package-Stash-XS-0.19/t/02-extension.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/02-extension.t 2011-01-06 08:55:03.682920449 +0000
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More tests => 15;
use Test::Fatal;
{
@@ -70,5 +70,3 @@ is(exception {
}, undef, '... created %Foo::baz successfully');
ok(!defined($Foo::{baz}), '... the %baz slot has still not been created');
-
-done_testing;
diff -up Package-Stash-XS-0.19/t/03-io.t.orig Package-Stash-XS-0.19/t/03-io.t
--- Package-Stash-XS-0.19/t/03-io.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/03-io.t 2011-01-06 08:55:03.683920478 +0000
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More tests => 11;
use Test::Fatal;
{
@@ -47,5 +47,3 @@ use Package::Stash;
ok($stash->has_symbol('baz'), "has baz");
is($stash->get_symbol('baz'), *Foo::foo{IO}, "got the right baz");
}
-
-done_testing;
diff -up Package-Stash-XS-0.19/t/04-get.t.orig Package-Stash-XS-0.19/t/04-get.t
--- Package-Stash-XS-0.19/t/04-get.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/04-get.t 2011-01-06 08:55:03.683920478 +0000
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More tests => 36;
use Package::Stash;
use Scalar::Util;
@@ -182,5 +182,3 @@ use Scalar::Util;
"stash has the right variable");
}
}
-
-done_testing;
diff -up Package-Stash-XS-0.19/t/05-isa.t.orig Package-Stash-XS-0.19/t/05-isa.t
--- Package-Stash-XS-0.19/t/05-isa.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/05-isa.t 2011-01-06 08:55:03.684920507 +0000
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More tests => 1;
use Package::Stash;
@@ -17,6 +17,7 @@ use Package::Stash;
my $stash = Package::Stash->new('Foo');
my @ISA = ('Bar');
@{$stash->get_or_add_symbol('@ISA')} = @ISA;
+SKIP: {
+skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
isa_ok('Foo', 'Bar');
-
-done_testing;
+}
diff -up Package-Stash-XS-0.19/t/06-addsub.t.orig Package-Stash-XS-0.19/t/06-addsub.t
--- Package-Stash-XS-0.19/t/06-addsub.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/06-addsub.t 2011-01-06 08:55:03.684920507 +0000
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More tests => 7;
use Test::Fatal;
BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
@@ -42,5 +42,3 @@ $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;
diff -up Package-Stash-XS-0.19/t/07-edge-cases.t.orig Package-Stash-XS-0.19/t/07-edge-cases.t
--- Package-Stash-XS-0.19/t/07-edge-cases.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/07-edge-cases.t 2011-01-06 08:56:02.763644477 +0000
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More tests => 14;
use Test::Fatal;
use Package::Stash;
@@ -65,5 +65,3 @@ is(exception { $Bar->add_symbol('$bar',
"can add PVNV values");
use_ok('CompileTime');
-
-done_testing;
diff -up Package-Stash-XS-0.19/t/10-synopsis.t.orig Package-Stash-XS-0.19/t/10-synopsis.t
--- Package-Stash-XS-0.19/t/10-synopsis.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/10-synopsis.t 2011-01-06 08:55:03.684920508 +0000
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More tests => 3;
use Package::Stash;
@@ -15,5 +15,3 @@ $stash->add_symbol('%foo', {bar => 1});
ok(!$stash->has_symbol('$foo'), "doesn't have anything in scalar slot");
my $namespace = $stash->namespace;
is_deeply(*{ $namespace->{foo} }{HASH}, {bar => 1}, "namespace works properly");
-
-done_testing;
diff -up Package-Stash-XS-0.19/t/20-leaks.t.orig Package-Stash-XS-0.19/t/20-leaks.t
--- Package-Stash-XS-0.19/t/20-leaks.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/20-leaks.t 2011-01-06 08:55:03.686920566 +0000
@@ -9,6 +9,8 @@ use Test::Requires 'Test::LeakTrace';
use Package::Stash;
use Symbol;
+plan tests => 25;
+
{
package Bar;
}
@@ -136,7 +138,10 @@ use Symbol;
ok($foo->has_symbol('@ISA'));
is(ref($foo->get_symbol('@ISA')), 'ARRAY');
is_deeply($foo->get_symbol('@ISA'), ['Exporter']);
+ SKIP: {
+ skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
isa_ok('Foo', 'Exporter');
+ }
}
{
@@ -190,5 +195,3 @@ use Symbol;
eval { $foo->get_or_add_symbol('&blorg') };
} "doesn't leak on errors";
}
-
-done_testing;
diff -up Package-Stash-XS-0.19/t/21-leaks-debug.t.orig Package-Stash-XS-0.19/t/21-leaks-debug.t
--- Package-Stash-XS-0.19/t/21-leaks-debug.t.orig 2011-01-06 05:07:37.000000000 +0000
+++ Package-Stash-XS-0.19/t/21-leaks-debug.t 2011-01-06 08:55:03.687920595 +0000
@@ -11,6 +11,8 @@ BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
use Package::Stash;
use Symbol;
+plan tests => 25;
+
{
package Bar;
}
@@ -138,7 +140,10 @@ use Symbol;
ok($foo->has_symbol('@ISA'));
is(ref($foo->get_symbol('@ISA')), 'ARRAY');
is_deeply($foo->get_symbol('@ISA'), ['Exporter']);
+ SKIP: {
+ skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
isa_ok('Foo', 'Exporter');
+ }
}
{
@@ -192,5 +197,3 @@ use Symbol;
eval { $foo->get_or_add_symbol('&blorg') };
} "doesn't leak on errors";
}
-
-done_testing;