},
'Test::Simple' => {
- 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302171.tar.gz',
+ 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302173.tar.gz',
'FILES' => q[cpan/Test-Simple],
'EXCLUDED' => [
qr{^examples/},
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN {
if( $] < 5.008 ) {
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
my ($self, $f, $num) = @_;
return if $self->{+NO_DIAG};
my @out = $self->SUPER::debug_tap($f, $num);
- $self->redirect(\@out) if @out && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
+ $self->redirect(\@out) if @out && ref $f->{about} && defined $f->{about}->{package}
+ && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
return @out;
}
my ($self, $f) = @_;
return if $self->{+NO_DIAG};
my @out = $self->SUPER::info_tap($f);
- $self->redirect(\@out) if @out && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
+ $self->redirect(\@out) if @out && ref $f->{about} && defined $f->{about}->{package}
+ && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
return @out;
}
require Exporter;
our @ISA = qw(Exporter);
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
=head1 NAME
package Test::Builder::Tester;
use strict;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test::Builder;
use Symbol;
package Test::Builder::Tester::Color;
use strict;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
require Test::Builder::Tester;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
return warn @_, " at $file line $line\n";
}
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
use strict;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
use vars qw( @ISA @EXPORT );
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
@EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
@ISA = qw( Exporter );
package Test::Tester::Capture;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test::Builder;
package Test::Tester::CaptureRunner;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test::Tester::Capture;
package Test::Tester::Delegate;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Scalar::Util();
package Test::use::ok;
use 5.005;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
__END__
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
1;
$ENV{TEST2_ACTIVE} = 1;
}
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
my $INST;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test2::Util qw/pkg_to_file/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/confess croak/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
use Carp qw/confess carp/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test2::Hub();
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Scalar::Util qw/blessed reftype/;
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test2::EventFacet::Info;
use Carp qw/croak/;
use Scalar::Util qw/reftype/;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test2::EventFacet::Info;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid};
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Scalar::Util qw/reftype/;
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test2::Util::HashBase qw/-details/;
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -package -no_display -uuid -eid };
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
sub is_list { 1 }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -pass -no_debug -number };
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding -phase };
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
sub facet_key { 'errors' }
sub is_list { 1 }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
sub is_list { 1 }
sub facet_key { 'hubs' }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
sub is_list { 1 }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/confess/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use vars qw/$AUTOLOAD/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/confess/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -count -skip -none };
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
sub is_list { 1 }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
my %ADDED;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test2::Util qw/clone_io/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/carp croak confess/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test2::Hub::Interceptor::Terminator();
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
1;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
use Test2::Util::HashBase qw/nested exit_code manual_skip_all/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Test2::API::Instance;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/confess/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
}
opendir(my $dh, $tdir) or $self->abort_trace("Could not open temp dir!");
+
+ my %bad;
for my $file (readdir($dh)) {
next if $file =~ m{\.complete$};
next unless $file =~ m{^$hid};
- $self->abort_trace("Not all files from hub '$hid' have been collected!");
+
+ eval { $bad{$file} = $self->read_event_file(File::Spec->catfile($tdir, $file)); 1 } or $bad{$file} = $@ || "Unknown error reading file";
}
closedir($dh);
+
+ return unless keys %bad;
+
+ require JSON::PP;
+ local *UNIVERSAL::TO_JSON = sub { +{ %{$_[0]} } };
+ my $json = JSON::PP->new->ascii->pretty->canonical->allow_unknown->allow_blessed->convert_blessed;
+ my $data = $json->encode(\%bad);
+
+ $self->abort_trace("Not all files from hub '$hid' have been collected!\nHere is the leftover data:\n========================\n$data\n===================\n");
}
sub send {
use Test2::Hub::Interceptor();
use Test2::Hub::Interceptor::Terminator();
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
BEGIN { require Exporter; our @ISA = qw(Exporter) }
our @EXPORT = qw{
=head3 The Problem
An early change, in fact the change that made Test2 an idea, was a change to
-the indentation of the subtest note. IT was decided it would be more readable
+the indentation of the subtest note. It was decided it would be more readable
to outdent the subtest note instead of having it inline with the subtest:
# subtest foo
);
Check if C<$INC{'Test2/API.pm'}> is set, if it is then no indentation should be
-expected. If it is not set than the old Test::Builder is in use, indentation
+expected. If it is not set, then the old Test::Builder is in use, indentation
should be expected.
=head1 DISTRIBUTIONS THAT BREAK OR NEED TO BE UPGRADED
Known broken in versions: 1.0.9 and older
-=item Test::Kit
-
-This actually works fine, but will not install because L<Test::Aggregate> is in
-the dependency chain.
-
-See the L<Test::Aggregate> info below for additional information.
-
=item Device::Chip
Tests break due to subtest indentation.
Fixed in version: 0.04
+=item Test::Kit
+
+Old versions work fine, but would not install because L<Test::Aggregate> was in
+the dependency chain. An upgrade should not be needed.
+
+Fixed in version: 2.15
+
=item autouse
A test broke because it depended on Scalar::Util not being loaded. Test2 loads
This distribution directly accesses the hash keys in the L<Test::Builder>
singleton. It also approaches the problem from the wrong angle, please consider
-using L<Test2::Harness> or L<App::ForkProve> which both solve the same problem
-at the harness level.
+using L<Test2::Aggregate> for similar functionality and L<Test2::Harness>
+which allows module preloading at the harness level.
Still broken as of version: 0.373
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use POSIX();
use Config qw/%Config/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use Carp qw/croak confess/;
use Scalar::Util qw/blessed/;
use strict;
use warnings;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
#################################################################
# #
require Test2::EventFacet::Trace;
@ISA = ('Test2::EventFacet::Trace');
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
1;
package ok;
-our $VERSION = '1.302171';
+our $VERSION = '1.302173';
use strict;
use Test::More ();
https://perl5.git.perl.org / perl5.git / commitdiff