62f649c7a6
+ no, *really* skip the package-stash-conflict script - fix build on distributions with old Test::More module ( perl-Package-Stash-old_Test-More.patch ) - files in /usr/bin should be executable OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Package-Stash?expand=0&rev=15
248 lines
6.3 KiB
Diff
248 lines
6.3 KiB
Diff
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;
|