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


line stmt bran cond sub pod time code
1 1     1   3771 use 5.008;
  1         8  
  1         59  
2 1     1   8 use strict;
  1         2  
  1         40  
3 1     1   6 use warnings;
  1         2  
  1         78  
4              
5             package Data::Conveyor::Value::Ticket::Status_TEST;
6             BEGIN {
7 1     1   26 $Data::Conveyor::Value::Ticket::Status_TEST::VERSION = '1.103130';
8             }
9             # ABSTRACT: Stage-based conveyor-belt-like ticket handling system
10              
11 1     1   7 use parent 'Data::Conveyor::Test';
  1         2  
  1         8  
12 1     1   121 use constant PLAN => 14;
  1         3  
  1         1428  
13              
14             sub run {
15 1     1 1 4243 my $self = shift;
16 1         13 $self->SUPER::run(@_);
17              
18             # Note that there are no tests for adding TS_HOLD and TS_PENDING; that's
19             # undefined so far because we don't really use TS_HOLD anymore.
20 1         1090 $self->apply_status_ok('TS_RUNNING', 'TS_RUNNING', 'TS_RUNNING', 1);
21 1         712 $self->apply_status_ok('TS_RUNNING', 'TS_HOLD', 'TS_HOLD', 1);
22 1         442 $self->apply_status_ok('TS_RUNNING', 'TS_PENDING', 'TS_PENDING', 1);
23 1         450 $self->apply_status_ok('TS_RUNNING', 'TS_ERROR', 'TS_ERROR', 1);
24 1         432 $self->apply_status_ok('TS_HOLD', 'TS_RUNNING', 'TS_HOLD', 1);
25 1         434 $self->apply_status_ok('TS_HOLD', 'TS_HOLD', 'TS_HOLD', 1);
26 1         463 $self->apply_status_ok('TS_HOLD', 'TS_ERROR', 'TS_ERROR', 1);
27 1         472 $self->apply_status_ok('TS_PENDING', 'TS_RUNNING', 'TS_PENDING', 1);
28 1         360 $self->apply_status_ok('TS_PENDING', 'TS_PENDING', 'TS_PENDING', 1);
29 1         329 $self->apply_status_ok('TS_PENDING', 'TS_ERROR', 'TS_ERROR', 1);
30 1         326 $self->apply_status_ok('TS_ERROR', 'TS_RUNNING', 'TS_ERROR', 1);
31 1         340 $self->apply_status_ok('TS_ERROR', 'TS_HOLD', 'TS_ERROR', 1);
32 1         320 $self->apply_status_ok('TS_ERROR', 'TS_PENDING', 'TS_ERROR', 1);
33 1         365 $self->apply_status_ok('TS_ERROR', 'TS_ERROR', 'TS_ERROR', 1);
34             }
35             1;
36              
37              
38             __END__