File Coverage

blib/lib/SmokeRunner/Multi/Reporter/Smolder.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	9	9	100.0
pod	2	2	100.0
total	58	61	95.0

package SmokeRunner::Multi::Reporter::Smolder;
our $AUTHORITY = 'cpan:YANICK';
#ABSTRACT:  Reports test runs to a Smolder installation
$SmokeRunner::Multi::Reporter::Smolder::VERSION = '0.21';
use strict;
use warnings;

use base 'SmokeRunner::Multi::Reporter';

use File::Temp qw( tempdir );
use File::Which qw( which );
use SmokeRunner::Multi::SafeRun qw( safe_run );
use YAML::Syck qw( Dump );


my @SmolderKeys = qw( server username password );

sub new
{
    my $class = shift;

    my $self = $class->SUPER::new(@_);

    $DB::single = 1;
    my $smolder_config = SmokeRunner::Multi::Config->instance()->smolder();

    for my $k (@SmolderKeys)
    {
        die "No config item for smolder $k in config"
            unless $smolder_config->{$k};
    }

    die "Runner must be a TAPArchive runner"
        unless $self->runner()->isa('SmokeRunner::Multi::Runner::TAPArchive');

    $self->{smolder} = $smolder_config;

    return $self;
}

sub report
{
    my $self = shift;

    my @params;
    for my $k (@SmolderKeys)
    {
        push @params, '--' . $k;
        push @params, $self->{smolder}->{$k};
    }

    push @params, '--project', $self->runner()->set()->name();

    my $file = $self->runner()->tap_archive_file();
    push @params, '--file', $file;

    my $stderr_buffer;
    my $stdout_buffer;
    safe_run
        ( command       => 'smolder_smoke_signal',
          args          => \@params,
          stdout_buffer => \$stdout_buffer,
          stderr_buffer => \$stderr_buffer,
        );

    die "Error running smolder_smoke_signal:\n$stderr_buffer\n"
        if defined $stderr_buffer && length $stderr_buffer;
}


1;

__END__