File Coverage

blib/lib/SmokeRunner/Multi.pm

Criterion	Covered	Total	%
statement	50	52	96.1
branch	9	10	90.0
condition			n/a
subroutine	15	15	100.0
pod	5	5	100.0
total	79	82	96.3

package SmokeRunner::Multi;
BEGIN {
  $SmokeRunner::Multi::AUTHORITY = 'cpan:YANICK';
}
{
  $SmokeRunner::Multi::VERSION = '0.19';
}
#ABSTRACT: Manage smoke tests across multiple branches/checkouts/projects

use strict;
use warnings;

use SmokeRunner::Multi::Config;
use SmokeRunner::Multi::TestSet;


sub new
{
    my $class = shift;

    return bless {}, $class;
}

sub next_set
{
    return ( SmokeRunner::Multi::TestSet->All() )[0];
}

sub run_and_report_next_set
{
    my $self = shift;

    my $set = $self->next_set()
        or return;

    my $runner = $self->make_runner( set => $set );

    $set->update_files();

    # Running the tests could take a while, during which time the set
    # might change in version control.
    my $time = time;
    $runner->run_tests();

    my $reporter = $self->make_reporter( runner => $runner );

    $reporter->report();

    $set->update_last_run_time($time);
    $set->unprioritize();

    return $reporter;
}

sub make_runner
{
    my $self = shift;

    return
        $self->_class_for
            ( 'Runner',
              SmokeRunner::Multi::Config->instance()->runner() )
                ->new(@_);
}

sub make_reporter
{
    my $self = shift;

    return
        $self->_class_for
            ( 'Reporter',
              SmokeRunner::Multi::Config->instance()->reporter() )
                ->new(@_);
}

sub _class_for
{
    my $self = shift;
    my $type = shift;
    my $name = shift;

    die "No config for \L$type\n"
        unless defined $name;

    my $full_class = $name =~ /::/ ? $name : join '::', __PACKAGE__, $type, $name;

    return $full_class if $full_class->can('new');

    eval "use $full_class";
    die $@ if $@;

    return $full_class;
}


1;

__END__