From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- .../tlpkg/tlperl/lib/Test/Builder/Formatter.pm | 105 +++++++++++++++++++++ 1 file changed, 105 insertions(+) create mode 100644 systems/texlive/tlnet/tlpkg/tlperl/lib/Test/Builder/Formatter.pm (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Test/Builder/Formatter.pm') diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test/Builder/Formatter.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test/Builder/Formatter.pm new file mode 100644 index 0000000000..82a8eead67 --- /dev/null +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test/Builder/Formatter.pm @@ -0,0 +1,105 @@ +package Test::Builder::Formatter; +use strict; +use warnings; + +our $VERSION = '1.302133'; + +BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) } + +use Test2::Util::HashBase qw/no_header no_diag/; + +BEGIN { + *OUT_STD = Test2::Formatter::TAP->can('OUT_STD'); + *OUT_ERR = Test2::Formatter::TAP->can('OUT_ERR'); + + my $todo = OUT_ERR() + 1; + *OUT_TODO = sub() { $todo }; +} + +sub init { + my $self = shift; + $self->SUPER::init(@_); + $self->{+HANDLES}->[OUT_TODO] = $self->{+HANDLES}->[OUT_STD]; +} + +sub plan_tap { + my ($self, $f) = @_; + + return if $self->{+NO_HEADER}; + return $self->SUPER::plan_tap($f); +} + +sub debug_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'; + return @out; +} + +sub info_tap { + 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'; + return @out; +} + +sub redirect { + my ($self, $out) = @_; + $_->[0] = OUT_TODO for @$out; +} + +sub no_subtest_space { 1 } + +1; + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +Test::Builder::Formatter - Test::Builder subclass of Test2::Formatter::TAP + +=head1 DESCRIPTION + +This is what takes events and turns them into TAP. + +=head1 SYNOPSIS + + use Test::Builder; # Loads Test::Builder::Formatter for you + +=head1 SOURCE + +The source code repository for Test2 can be found at +F. + +=head1 MAINTAINERS + +=over 4 + +=item Chad Granum Eexodist@cpan.orgE + +=back + +=head1 AUTHORS + +=over 4 + +=item Chad Granum Eexodist@cpan.orgE + +=back + +=head1 COPYRIGHT + +Copyright 2018 Chad Granum Eexodist@cpan.orgE. + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +See F + +=cut -- cgit v1.2.3