File Coverage

blib/lib/Data/Conveyor/Value/Ticket/Status_TEST.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	40	40	100.0

use 5.008;
use strict;
use warnings;

package Data::Conveyor::Value::Ticket::Status_TEST;
BEGIN {
  $Data::Conveyor::Value::Ticket::Status_TEST::VERSION = '1.103130';
}
# ABSTRACT: Stage-based conveyor-belt-like ticket handling system

use parent 'Data::Conveyor::Test';
use constant PLAN => 14;

sub run {
    my $self = shift;
    $self->SUPER::run(@_);

    # Note that there are no tests for adding TS_HOLD and TS_PENDING; that's
    # undefined so far because we don't really use TS_HOLD anymore.
    $self->apply_status_ok('TS_RUNNING', 'TS_RUNNING', 'TS_RUNNING', 1);
    $self->apply_status_ok('TS_RUNNING', 'TS_HOLD',    'TS_HOLD',    1);
    $self->apply_status_ok('TS_RUNNING', 'TS_PENDING', 'TS_PENDING', 1);
    $self->apply_status_ok('TS_RUNNING', 'TS_ERROR',   'TS_ERROR',   1);
    $self->apply_status_ok('TS_HOLD',    'TS_RUNNING', 'TS_HOLD',    1);
    $self->apply_status_ok('TS_HOLD',    'TS_HOLD',    'TS_HOLD',    1);
    $self->apply_status_ok('TS_HOLD',    'TS_ERROR',   'TS_ERROR',   1);
    $self->apply_status_ok('TS_PENDING', 'TS_RUNNING', 'TS_PENDING', 1);
    $self->apply_status_ok('TS_PENDING', 'TS_PENDING', 'TS_PENDING', 1);
    $self->apply_status_ok('TS_PENDING', 'TS_ERROR',   'TS_ERROR',   1);
    $self->apply_status_ok('TS_ERROR',   'TS_RUNNING', 'TS_ERROR',   1);
    $self->apply_status_ok('TS_ERROR',   'TS_HOLD',    'TS_ERROR',   1);
    $self->apply_status_ok('TS_ERROR',   'TS_PENDING', 'TS_ERROR',   1);
    $self->apply_status_ok('TS_ERROR',   'TS_ERROR',   'TS_ERROR',   1);
}
1;


__END__