Skip to content

Commit c6a6e1c

Browse files
exodistjkeenan
exodist
authored and
jkeenan
committed
Update to Test-Simple 1.302026
 - Fix SHM leak - Update Porting/Maintainers.pl
1 parent 514e62e commit c6a6e1c

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

51 files changed

+467
-103
lines changed

‎MANIFEST

+2-1
Original file line numberDiff line numberDiff line change
@@ -2467,6 +2467,7 @@ cpan/Test-Simple/lib/Test2/API/Stack.pm
24672467
cpan/Test-Simple/lib/Test2/Event/Bail.pm
24682468
cpan/Test-Simple/lib/Test2/Event/Diag.pm
24692469
cpan/Test-Simple/lib/Test2/Event/Exception.pm
2470+
cpan/Test-Simple/lib/Test2/Event/Generic.pm
24702471
cpan/Test-Simple/lib/Test2/Event/Note.pm
24712472
cpan/Test-Simple/lib/Test2/Event/Ok.pm
24722473
cpan/Test-Simple/lib/Test2/Event/Plan.pm
@@ -2505,7 +2506,6 @@ cpan/Test-Simple/lib/Test/Tester/Delegate.pm
25052506
cpan/Test-Simple/lib/Test/Tester.pm
25062507
cpan/Test-Simple/lib/Test/Tutorial.pod
25072508
cpan/Test-Simple/lib/Test/use/ok.pm
2508-
cpan/Test-Simple/t/00compile.t
25092509
cpan/Test-Simple/t/Legacy/00test_harness_check.t
25102510
cpan/Test-Simple/t/Legacy/01-basic.t
25112511
cpan/Test-Simple/t/Legacy/478-cmp_ok_hash.t
@@ -2682,6 +2682,7 @@ cpan/Test-Simple/t/Test2/modules/API.t
26822682
cpan/Test-Simple/t/Test2/modules/Event/Bail.t
26832683
cpan/Test-Simple/t/Test2/modules/Event/Diag.t
26842684
cpan/Test-Simple/t/Test2/modules/Event/Exception.t
2685+
cpan/Test-Simple/t/Test2/modules/Event/Generic.t
26852686
cpan/Test-Simple/t/Test2/modules/Event/Note.t
26862687
cpan/Test-Simple/t/Test2/modules/Event/Ok.t
26872688
cpan/Test-Simple/t/Test2/modules/Event/Plan.t

‎Porting/Maintainers.pl

+7-3
Original file line numberDiff line numberDiff line change
@@ -1056,21 +1056,25 @@ package Maintainers;
10561056
},
10571057

10581058
'Test::Simple' => {
1059-
'DISTRIBUTION' => 'EXODIST/Test-Simple-1.001014.tar.gz',
1059+
'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302026.tar.gz',
10601060
'FILES' => q[cpan/Test-Simple],
10611061
'EXCLUDED' => [
10621062
qr{^t/xt},
10631063
qr{^xt},
10641064
qw( .perlcriticrc
10651065
.perltidyrc
1066+
perltidyrc
1067+
dist.ini
10661068
examples/indent.pl
10671069
examples/subtest.t
1070+
examples/tools.t
1071+
examples/tools.t
10681072
t/00compile.t
10691073
t/xxx-changes_updated.t
1074+
t/00-report.t
1075+
t/zzz-check-breaks.t
10701076
),
10711077
],
1072-
# https://github.com/Test-More/test-more/issues/679
1073-
CUSTOMIZED => [ 't/Test2/modules/API/Instance.t' ],
10741078
},
10751079

10761080
'Text::Abbrev' => {

‎cpan/Test-Simple/lib/Test/Builder.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ use 5.006;
44
use strict;
55
use warnings;
66

7-
our $VERSION = '1.302022';
7+
our $VERSION = '1.302026';
88

99
BEGIN {
1010
if( $] < 5.008 ) {

‎cpan/Test-Simple/lib/Test/Builder/Formatter.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test::Builder::Formatter;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77
BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
88

‎cpan/Test-Simple/lib/Test/Builder/Module.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ use Test::Builder;
77
require Exporter;
88
our @ISA = qw(Exporter);
99

10-
our $VERSION = '1.302022';
10+
our $VERSION = '1.302026';
1111

1212

1313
=head1 NAME

‎cpan/Test-Simple/lib/Test/Builder/Tester.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
package Test::Builder::Tester;
22

33
use strict;
4-
our $VERSION = '1.302022';
4+
our $VERSION = '1.302026';
55

66
use Test::Builder;
77
use Symbol;

‎cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
package Test::Builder::Tester::Color;
22

33
use strict;
4-
our $VERSION = '1.302022';
4+
our $VERSION = '1.302026';
55

66
require Test::Builder::Tester;
77

‎cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test::Builder::TodoDiag;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77
BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
88

‎cpan/Test-Simple/lib/Test/FAQ.pod

+2-2
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,7 @@ Yes, L<Test::Class> allows you to write test methods while continuing to
3333
use all the usual CPAN testing modules. It is the best and most
3434
perlish way to do xUnit style testing.
3535

36-
L<Test::Unit> is a more direct port of XUnit to Perl, but it does not use
36+
L<Test::Unit> is a more direct port of xUnit to Perl, but it does not use
3737
the Perl conventions and does not play well with other CPAN testing
3838
modules. As of this writing, it is abandoned. B<Do not use>.
3939

@@ -269,7 +269,7 @@ recall the Dummy Mode.
269269
could tell her to run naked across campus with a powercord rammed
270270
up her backside and she'd probably do it... Hmmm...
271271

272-
There seems to be a Dummy Mode WRT testing. An otherwise competent
272+
There seems to be a Dummy Mode with respect to testing. An otherwise competent
273273
person goes to write a test and they suddenly forget all basic
274274
programming practice.
275275

‎cpan/Test-Simple/lib/Test/More.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ sub _carp {
1717
return warn @_, " at $file line $line\n";
1818
}
1919

20-
our $VERSION = '1.302022';
20+
our $VERSION = '1.302026';
2121

2222
use Test::Builder::Module;
2323
our @ISA = qw(Test::Builder::Module);

‎cpan/Test-Simple/lib/Test/Simple.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ use 5.006;
44

55
use strict;
66

7-
our $VERSION = '1.302022';
7+
our $VERSION = '1.302026';
88

99
use Test::Builder::Module;
1010
our @ISA = qw(Test::Builder::Module);

‎cpan/Test-Simple/lib/Test/Tester.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@ require Exporter;
1818

1919
use vars qw( @ISA @EXPORT );
2020

21-
our $VERSION = '1.302022';
21+
our $VERSION = '1.302026';
2222

2323
@EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
2424
@ISA = qw( Exporter );

‎cpan/Test-Simple/lib/Test/Tester/Capture.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ use strict;
22

33
package Test::Tester::Capture;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
use Test::Builder;

‎cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ use strict;
33

44
package Test::Tester::CaptureRunner;
55

6-
our $VERSION = '1.302022';
6+
our $VERSION = '1.302026';
77

88

99
use Test::Tester::Capture;

‎cpan/Test-Simple/lib/Test/Tester/Delegate.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ use warnings;
33

44
package Test::Tester::Delegate;
55

6-
our $VERSION = '1.302022';
6+
our $VERSION = '1.302026';
77

88

99
use vars '$AUTOLOAD';

‎cpan/Test-Simple/lib/Test/use/ok.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
package Test::use::ok;
22
use 5.005;
33

4-
our $VERSION = '1.302022';
4+
our $VERSION = '1.302026';
55

66

77
__END__

‎cpan/Test-Simple/lib/Test2.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
1;

‎cpan/Test-Simple/lib/Test2/API.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::API;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
my $INST;

‎cpan/Test-Simple/lib/Test2/API/Breakage.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::API::Breakage;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
use Test2::Util qw/pkg_to_file/;

‎cpan/Test-Simple/lib/Test2/API/Context.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::API::Context;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
use Carp qw/confess croak longmess/;

‎cpan/Test-Simple/lib/Test2/API/Instance.pm

+8-3
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::API::Instance;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
@@ -270,6 +270,9 @@ sub add_ipc_driver {
270270
sub enable_ipc_polling {
271271
my $self = shift;
272272

273+
$self->{+_PID} = $$ unless defined $self->{+_PID};
274+
$self->{+_TID} = get_tid() unless defined $self->{+_TID};
275+
273276
$self->add_context_init_callback(
274277
# This is called every time a context is created, it needs to be fast.
275278
# $_[0] is a context object
@@ -297,6 +300,9 @@ sub ipc_enable_shm {
297300

298301
return 1 if defined $self->{+IPC_SHM_ID};
299302

303+
$self->{+_PID} = $$ unless defined $self->{+_PID};
304+
$self->{+_TID} = get_tid() unless defined $self->{+_TID};
305+
300306
my ($ok, $err) = try {
301307
require IPC::SysV;
302308

@@ -487,8 +493,7 @@ This is not a supported configuration, you will have problems.
487493

488494
$new_exit = 255 if $new_exit > 255;
489495

490-
if ($new_exit) {
491-
require Test2::API::Breakage;
496+
if ($new_exit && eval { require Test2::API::Breakage; 1 }) {
492497
my @warn = Test2::API::Breakage->report();
493498

494499
if (@warn) {

‎cpan/Test-Simple/lib/Test2/API/Stack.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::API::Stack;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
use Test2::Hub();

‎cpan/Test-Simple/lib/Test2/Event.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::Event;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
use Test2::Util::HashBase qw/trace nested in_subtest subtest_id/;

‎cpan/Test-Simple/lib/Test2/Event/Bail.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::Event::Bail;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }

‎cpan/Test-Simple/lib/Test2/Event/Diag.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::Event::Diag;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }

‎cpan/Test-Simple/lib/Test2/Event/Exception.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ package Test2::Event::Exception;
22
use strict;
33
use warnings;
44

5-
our $VERSION = '1.302022';
5+
our $VERSION = '1.302026';
66

77

88
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }

0 commit comments

Comments
 (0)