Sophie

Sophie

distrib > Fedora > 15 > i386 > by-pkgid > 0f7cc6a3e862ecde001ca2fe6e5028f2 > files > 3

perl-Package-Stash-0.29-1.fc15.src.rpm

diff -up Package-Stash-0.26/t/01-basic.t.orig Package-Stash-0.26/t/01-basic.t
--- Package-Stash-0.26/t/01-basic.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/01-basic.t	2011-03-05 10:03:21.020143527 +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-0.26/t/02-extension.t.orig Package-Stash-0.26/t/02-extension.t
--- Package-Stash-0.26/t/02-extension.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/02-extension.t	2011-03-05 10:03:21.031145231 +0000
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More tests => 15;
 use Test::Fatal;
 
 {
@@ -72,5 +72,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-0.26/t/03-io.t.orig Package-Stash-0.26/t/03-io.t
--- Package-Stash-0.26/t/03-io.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/03-io.t	2011-03-05 10:03:21.032145386 +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-0.26/t/04-get.t.orig Package-Stash-0.26/t/04-get.t
--- Package-Stash-0.26/t/04-get.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/04-get.t	2011-03-05 10:03:21.033145540 +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-0.26/t/05-isa.t.orig Package-Stash-0.26/t/05-isa.t
--- Package-Stash-0.26/t/05-isa.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/05-isa.t	2011-03-05 10:03:21.033145540 +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-0.26/t/06-addsub.t.orig Package-Stash-0.26/t/06-addsub.t
--- Package-Stash-0.26/t/06-addsub.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/06-addsub.t	2011-03-05 10:03:21.034145695 +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-0.26/t/07-edge-cases.t.orig Package-Stash-0.26/t/07-edge-cases.t
--- Package-Stash-0.26/t/07-edge-cases.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/07-edge-cases.t	2011-03-05 10:03:44.932845747 +0000
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More;
+use Test::More tests => 16;
 use Test::Fatal;
 
 use Package::Stash;
@@ -80,5 +80,3 @@ use_ok('CompileTime');
     }
     ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted");
 }
-
-done_testing;
diff -up Package-Stash-0.26/t/10-synopsis.t.orig Package-Stash-0.26/t/10-synopsis.t
--- Package-Stash-0.26/t/10-synopsis.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/10-synopsis.t	2011-03-05 10:03:21.035145851 +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-0.26/t/author-20-leaks.t.orig Package-Stash-0.26/t/author-20-leaks.t
--- Package-Stash-0.26/t/author-20-leaks.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/author-20-leaks.t	2011-03-05 10:03:21.060149721 +0000
@@ -14,6 +14,8 @@ use Test::More;
 use Test::Fatal;
 use Test::LeakTrace;
 
+plan tests => 25;
+
 use Package::Stash;
 use Symbol;
 
@@ -144,7 +146,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');
+    }
 }
 
 {
@@ -198,5 +203,3 @@ use Symbol;
         eval { $foo->get_or_add_symbol('&blorg') };
     } "doesn't leak on errors";
 }
-
-done_testing;
diff -up Package-Stash-0.26/t/author-21-leaks-debug.t.orig Package-Stash-0.26/t/author-21-leaks-debug.t
--- Package-Stash-0.26/t/author-21-leaks-debug.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/author-21-leaks-debug.t	2011-03-05 10:03:21.060149721 +0000
@@ -14,6 +14,8 @@ use Test::More;
 use Test::Fatal;
 use Test::LeakTrace;
 
+plan tests => 25;
+
 BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
 
 use Package::Stash;
@@ -146,7 +148,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');
+    }
 }
 
 {
@@ -200,5 +205,3 @@ use Symbol;
         eval { $foo->get_or_add_symbol('&blorg') };
     } "doesn't leak on errors";
 }
-
-done_testing;
diff -up Package-Stash-0.26/t/impl-selection/01-choice.t.orig Package-Stash-0.26/t/impl-selection/01-choice.t
--- Package-Stash-0.26/t/impl-selection/01-choice.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/impl-selection/01-choice.t	2011-03-05 10:03:21.036146006 +0000
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More tests => 2;
 
 my $has_xs = eval "require Package::Stash::XS; 1";
 
@@ -13,5 +13,3 @@ my $expected = $has_xs ? 'XS' : 'PP';
 is($Package::Stash::IMPLEMENTATION, $expected,
    "autodetected properly: $expected");
 can_ok('Package::Stash', 'new');
-
-done_testing;
diff -up Package-Stash-0.26/t/impl-selection/02-env.t.orig Package-Stash-0.26/t/impl-selection/02-env.t
--- Package-Stash-0.26/t/impl-selection/02-env.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/impl-selection/02-env.t	2011-03-05 10:03:21.037146160 +0000
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More tests => 4;
 
 # XXX: work around dumb core segfault bug when you delete stashes
 sub get_impl { eval '$Package::Stash::IMPLEMENTATION' }
@@ -25,5 +25,3 @@ SKIP: {
     is(get_impl, 'XS', "autodetected properly: XS");
     can_ok('Package::Stash', 'new');
 }
-
-done_testing;
diff -up Package-Stash-0.26/t/impl-selection/03-var.t.orig Package-Stash-0.26/t/impl-selection/03-var.t
--- Package-Stash-0.26/t/impl-selection/03-var.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/impl-selection/03-var.t	2011-03-05 10:03:21.037146160 +0000
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More tests => 4;
 
 # XXX: work around dumb core segfault bug when you delete stashes
 sub get_impl { eval '$Package::Stash::IMPLEMENTATION' }
@@ -25,5 +25,3 @@ SKIP: {
     is(get_impl, 'XS', "autodetected properly: XS");
     can_ok('Package::Stash', 'new');
 }
-
-done_testing;
diff -up Package-Stash-0.26/t/impl-selection/10-basic-pp.t.orig Package-Stash-0.26/t/impl-selection/10-basic-pp.t
--- Package-Stash-0.26/t/impl-selection/10-basic-pp.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/impl-selection/10-basic-pp.t	2011-03-05 10:03:21.048147863 +0000
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More tests => 124;
 use Test::Fatal;
 
 BEGIN { $Package::Stash::IMPLEMENTATION = 'PP' }
@@ -420,5 +420,3 @@ like(exception {
         "list_all_symbols CODE",
     );
 }
-
-done_testing;
diff -up Package-Stash-0.26/t/impl-selection/11-basic-xs.t.orig Package-Stash-0.26/t/impl-selection/11-basic-xs.t
--- Package-Stash-0.26/t/impl-selection/11-basic-xs.t.orig	2011-03-04 19:14:05.000000000 +0000
+++ Package-Stash-0.26/t/impl-selection/11-basic-xs.t	2011-03-05 10:03:21.056149102 +0000
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More;
+use Test::More tests => 124;
 use Test::Fatal;
 use Test::Requires 'Package::Stash::XS';
 
@@ -421,5 +421,3 @@ like(exception {
         "list_all_symbols CODE",
     );
 }
-
-done_testing;

Perl :: Catalyst :: PostgreSQL :: RPM Valid HTML 4.01 Transitional