File Coverage

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

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

use 5.008;
use strict;
use warnings;

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

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

sub run {
    my $self = shift;
    $self->SUPER::run(@_);
    $self->apply_rc_ok('RC_OK',    'RC_OK',             'RC_OK',             1);
    $self->apply_rc_ok('RC_OK',    'RC_ERROR',          'RC_ERROR',          1);
    $self->apply_rc_ok('RC_OK',    'RC_MANUAL',         'RC_MANUAL',         1);
    $self->apply_rc_ok('RC_OK',    'RC_INTERNAL_ERROR', 'RC_INTERNAL_ERROR', 1);
    $self->apply_rc_ok('RC_ERROR', 'RC_OK',             'RC_ERROR',          1);
    $self->apply_rc_ok('RC_ERROR', 'RC_ERROR',          'RC_ERROR',          1);
    $self->apply_rc_ok('RC_ERROR', 'RC_MANUAL',         'RC_MANUAL',         1);
    $self->apply_rc_ok('RC_ERROR', 'RC_INTERNAL_ERROR', 'RC_INTERNAL_ERROR', 1);
    $self->apply_rc_ok('RC_MANUAL', 'RC_OK',     'RC_MANUAL', 1);
    $self->apply_rc_ok('RC_MANUAL', 'RC_ERROR',  'RC_MANUAL', 1);
    $self->apply_rc_ok('RC_MANUAL', 'RC_MANUAL', 'RC_MANUAL', 1);
    $self->apply_rc_ok('RC_MANUAL', 'RC_INTERNAL_ERROR', 'RC_INTERNAL_ERROR',
        1);
    $self->apply_rc_ok('RC_INTERNAL_ERROR', 'RC_OK',    'RC_INTERNAL_ERROR', 1);
    $self->apply_rc_ok('RC_INTERNAL_ERROR', 'RC_ERROR', 'RC_INTERNAL_ERROR', 1);
    $self->apply_rc_ok('RC_INTERNAL_ERROR', 'RC_MANUAL', 'RC_INTERNAL_ERROR',
        1);
    $self->apply_rc_ok('RC_INTERNAL_ERROR', 'RC_INTERNAL_ERROR',
        'RC_INTERNAL_ERROR', 1);
}
1;


__END__