File Coverage

blib/lib/TAP/Formatter/GitHubActions/Error.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	50	50	100.0

package TAP::Formatter::GitHubActions::Error;

use strict;
use warnings;
use v5.16;
use base 'TAP::Object';

my @ATTR;

BEGIN {
  @ATTR = qw(test_name filename line context_msg );
  __PACKAGE__->mk_methods(@ATTR);
}

my $TRIPHASIC_REGEX = qr/
  \s*
  (?                   # Test header
    Failed\stest
    (?:\s*'[^']+')?               # Test name [usually last param in an assertion, optional]
  )
  \s*
  at\s(?.+)           # Location: File
  \s+
  line\s(?\d+)\.          # Location: Line
  (\n)?
  (?[\w\W]*)       # Any additional content
/mx;

use constant {
  TRIPHASIC_REGEX => $TRIPHASIC_REGEX,
};

sub from_output {
  my ($class, $output) = @_;

  return undef unless $output =~ qr/$TRIPHASIC_REGEX/m;

  return $class->new(
    line => $+{line},
    filename => $+{filename},
    test_name => $+{test_name},
    context_msg => $+{context_msg}
  );
}

sub _initialize {
  my ($self, %args) = @_;

  $self->{test_name} = $args{test_name};
  $self->{filename} = $args{filename};
  $self->{line} = $args{line};
  $self->{context_msg} = $args{context_msg};

  return $self;
}

sub decorated_context_message {
  my ($self, $pre, $post) = @_;

  return unless $self->{context_msg};

  return join("\n",
    grep { $_ } ($pre, $self->context_msg, $post)
  );
}

sub as_plain_text {
  my ($self) = @_;
  my @components = (
    $self->test_name,
    $self->decorated_context_message(
      '--- CAPTURED CONTEXT ---',
      '---  END OF CONTEXT  ---')
  );
  return join("\n", grep { $_ } @components);
}

1;
__END__