|
|
|
@ -0,0 +1,387 @@
|
|
|
|
|
diff -up ./t/addsub.t.orig ./t/addsub.t
|
|
|
|
|
--- ./t/addsub.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/addsub.t 2013-07-16 09:28:05.247418080 +0100
|
|
|
|
|
@@ -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 ./t/anon-basic.t.orig ./t/anon-basic.t
|
|
|
|
|
--- ./t/anon-basic.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/anon-basic.t 2013-07-16 09:28:05.247418080 +0100
|
|
|
|
|
@@ -399,5 +399,3 @@ $Quuux->{quuuux} = -1;
|
|
|
|
|
|
|
|
|
|
is_deeply([Package::Stash->new('Quuux')->list_all_symbols], [],
|
|
|
|
|
"Quuux:: isn't touched");
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/anon.t.orig ./t/anon.t
|
|
|
|
|
--- ./t/anon.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/anon.t 2013-07-16 09:28:05.247418080 +0100
|
|
|
|
|
@@ -45,5 +45,3 @@ my $obj = $anon->bless({});
|
|
|
|
|
qr/Undefined subroutine \&__ANON__::baz called/
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/bare-anon-basic.t.orig ./t/bare-anon-basic.t
|
|
|
|
|
--- ./t/bare-anon-basic.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/bare-anon-basic.t 2013-07-16 09:28:05.247418080 +0100
|
|
|
|
|
@@ -14,6 +14,8 @@ plan skip_all => "Anonymous stashes in P
|
|
|
|
|
|
|
|
|
|
plan skip_all => "This isn't really going to work yet, probably";
|
|
|
|
|
|
|
|
|
|
+plan tests => 1; # Will count properly when this test isn't unconditionally skipped
|
|
|
|
|
+
|
|
|
|
|
my $Foo = {};
|
|
|
|
|
$Foo->{SOME_CONSTANT} = \1;
|
|
|
|
|
|
|
|
|
|
@@ -393,5 +395,3 @@ $Quuux->{quuuux} = -1;
|
|
|
|
|
|
|
|
|
|
is_deeply([Package::Stash->new('Quuux')->list_all_symbols], [],
|
|
|
|
|
"Quuux:: isn't touched");
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/bare-anon.t.orig ./t/bare-anon.t
|
|
|
|
|
--- ./t/bare-anon.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/bare-anon.t 2013-07-16 09:28:05.248418078 +0100
|
|
|
|
|
@@ -14,6 +14,8 @@ plan skip_all => "Anonymous stashes in P
|
|
|
|
|
|
|
|
|
|
plan skip_all => "This isn't really going to work yet, probably";
|
|
|
|
|
|
|
|
|
|
+plan tests => 7;
|
|
|
|
|
+
|
|
|
|
|
my $anon = {};
|
|
|
|
|
my $stash = Package::Stash->new($anon);
|
|
|
|
|
# no way to bless something into a hashref yet
|
|
|
|
|
@@ -58,5 +60,3 @@ my $stash = Package::Stash->new($anon);
|
|
|
|
|
undef
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/basic.t.orig ./t/basic.t
|
|
|
|
|
--- ./t/basic.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/basic.t 2013-07-16 09:28:05.248418078 +0100
|
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 131;
|
|
|
|
|
use Test::Fatal;
|
|
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
@@ -444,5 +444,3 @@ like(
|
|
|
|
|
qr/^Package::Stash->new must be passed the name of the package to access/,
|
|
|
|
|
"module name must be a string"
|
|
|
|
|
);
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/compile-time.t.orig ./t/compile-time.t
|
|
|
|
|
--- ./t/compile-time.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/compile-time.t 2013-07-16 09:28:05.248418078 +0100
|
|
|
|
|
@@ -2,8 +2,6 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 1;
|
|
|
|
|
|
|
|
|
|
use_ok('CompileTime');
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/edge-cases.t.orig ./t/edge-cases.t
|
|
|
|
|
--- ./t/edge-cases.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/edge-cases.t 2013-07-16 09:28:05.249418076 +0100
|
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 19;
|
|
|
|
|
use Test::Fatal;
|
|
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
@@ -109,5 +109,3 @@ SKIP: {
|
|
|
|
|
my $stash = Package::Stash->new('HasISA');
|
|
|
|
|
is_deeply([$stash->list_all_symbols('SCALAR')], []);
|
|
|
|
|
}
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/extension.t.orig ./t/extension.t
|
|
|
|
|
--- ./t/extension.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/extension.t 2013-07-16 09:28:05.249418076 +0100
|
|
|
|
|
@@ -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 ./t/get.t.orig ./t/get.t
|
|
|
|
|
--- ./t/get.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/get.t 2013-07-16 09:28:05.249418076 +0100
|
|
|
|
|
@@ -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 ./t/io.t.orig ./t/io.t
|
|
|
|
|
--- ./t/io.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/io.t 2013-07-16 09:28:05.249418076 +0100
|
|
|
|
|
@@ -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 ./t/isa.t.orig ./t/isa.t
|
|
|
|
|
--- ./t/isa.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/isa.t 2013-07-16 09:28:05.250418075 +0100
|
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 8;
|
|
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
|
|
|
|
|
@@ -19,7 +19,10 @@ 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');
|
|
|
|
|
+ }
|
|
|
|
|
isa_ok(bless({}, 'Foo'), 'Bar');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
@@ -33,17 +36,22 @@ use Package::Stash;
|
|
|
|
|
{
|
|
|
|
|
my $isa = $stash->get_or_add_symbol('@ISA');
|
|
|
|
|
@$isa = ('Baz');
|
|
|
|
|
+ SKIP: {
|
|
|
|
|
+ skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
|
|
|
|
|
isa_ok('Quux', 'Baz');
|
|
|
|
|
+ }
|
|
|
|
|
isa_ok(bless({}, 'Quux'), 'Baz');
|
|
|
|
|
ok(Quux->can('foo'));
|
|
|
|
|
}
|
|
|
|
|
{
|
|
|
|
|
my $isa = $stash->get_or_add_symbol('@ISA');
|
|
|
|
|
@$isa = ('Bar');
|
|
|
|
|
+ SKIP: {
|
|
|
|
|
+ skip "Test::More >= 0.88 needed for isa_ok() tests on classes", 1 if $Test::More::VERSION < 0.88;
|
|
|
|
|
isa_ok('Quux', 'Bar');
|
|
|
|
|
+ }
|
|
|
|
|
isa_ok(bless({}, 'Quux'), 'Bar');
|
|
|
|
|
ok(Quux->can('bar'));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/magic.t.orig ./t/magic.t
|
|
|
|
|
--- ./t/magic.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/magic.t 2013-07-16 09:28:05.250418075 +0100
|
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 14;
|
|
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
|
|
|
|
|
@@ -76,5 +76,3 @@ SKIP: {
|
|
|
|
|
is($fetch, 1, "get_or_add_symbol fetches (populated slot)");
|
|
|
|
|
is($store, 0, "get_or_add_symbol stores (populated slot)");
|
|
|
|
|
}
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/paamayim_nekdotayim.t.orig ./t/paamayim_nekdotayim.t
|
|
|
|
|
--- ./t/paamayim_nekdotayim.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/paamayim_nekdotayim.t 2013-07-16 09:28:05.250418075 +0100
|
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 3;
|
|
|
|
|
use Test::Fatal;
|
|
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
@@ -24,5 +24,3 @@ like(
|
|
|
|
|
qr/^Variable names may not contain ::/,
|
|
|
|
|
"can't add symbol with ::"
|
|
|
|
|
);
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/scalar-values.t.orig ./t/scalar-values.t
|
|
|
|
|
--- ./t/scalar-values.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/scalar-values.t 2013-07-16 09:28:05.250418075 +0100
|
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 14;
|
|
|
|
|
use Test::Fatal;
|
|
|
|
|
|
|
|
|
|
use B;
|
|
|
|
|
@@ -49,5 +49,3 @@ my $vstring = v1.2.3;
|
|
|
|
|
is(reftype(\$vstring), ($] < 5.010 ? 'SCALAR' : 'VSTRING'));
|
|
|
|
|
is(exception { $Bar->add_symbol('$vstring', \$vstring) }, undef,
|
|
|
|
|
"can add vstring values");
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/stash-deletion.t.orig ./t/stash-deletion.t
|
|
|
|
|
--- ./t/stash-deletion.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/stash-deletion.t 2013-07-16 09:28:05.250418075 +0100
|
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 2;
|
|
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
|
|
|
|
|
@@ -20,5 +20,3 @@ use Package::Stash;
|
|
|
|
|
}
|
|
|
|
|
ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted");
|
|
|
|
|
}
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./t/synopsis.t.orig ./t/synopsis.t
|
|
|
|
|
--- ./t/synopsis.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./t/synopsis.t 2013-07-16 09:28:05.251418072 +0100
|
|
|
|
|
@@ -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 ./t/warnings.t.orig ./t/warnings.t
|
|
|
|
|
--- ./t/warnings.t.orig 2013-07-16 09:28:05.244418086 +0100
|
|
|
|
|
+++ ./t/warnings.t 2013-07-16 09:28:25.408377267 +0100
|
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use lib 't/lib';
|
|
|
|
|
-use Test::More;
|
|
|
|
|
+use Test::More tests => 1;
|
|
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
|
|
|
|
|
@@ -19,4 +19,3 @@ BEGIN {
|
|
|
|
|
|
|
|
|
|
is($warnings, '');
|
|
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./xt/author/leaks-debug.t.orig ./xt/author/leaks-debug.t
|
|
|
|
|
--- ./xt/author/leaks-debug.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./xt/author/leaks-debug.t 2013-07-16 09:28:05.251418072 +0100
|
|
|
|
|
@@ -11,6 +11,8 @@ BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
use Symbol;
|
|
|
|
|
|
|
|
|
|
+plan tests => 45;
|
|
|
|
|
+
|
|
|
|
|
{
|
|
|
|
|
package Bar;
|
|
|
|
|
}
|
|
|
|
|
@@ -176,7 +178,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');
|
|
|
|
|
+ }
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
@@ -226,5 +231,3 @@ use Symbol;
|
|
|
|
|
eval { $foo->add_symbol('&blorg') };
|
|
|
|
|
} "doesn't leak on errors";
|
|
|
|
|
}
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|
|
|
|
|
diff -up ./xt/author/leaks.t.orig ./xt/author/leaks.t
|
|
|
|
|
--- ./xt/author/leaks.t.orig 2013-07-15 20:57:19.000000000 +0100
|
|
|
|
|
+++ ./xt/author/leaks.t 2013-07-16 09:28:05.252418070 +0100
|
|
|
|
|
@@ -9,6 +9,8 @@ use Test::LeakTrace;
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
use Symbol;
|
|
|
|
|
|
|
|
|
|
+plan tests => 45;
|
|
|
|
|
+
|
|
|
|
|
{
|
|
|
|
|
package Bar;
|
|
|
|
|
}
|
|
|
|
|
@@ -174,7 +176,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');
|
|
|
|
|
+ }
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
@@ -224,5 +229,3 @@ use Symbol;
|
|
|
|
|
eval { $foo->add_symbol('&blorg') };
|
|
|
|
|
} "doesn't leak on errors";
|
|
|
|
|
}
|
|
|
|
|
-
|
|
|
|
|
-done_testing;
|