File Coverage

blib/lib/VSGDR/UnitTest/TestSet/Test/TestCondition/ExecutionTime.pm
Criterion Covered Total %
statement 21 47 44.6
branch 0 4 0.0
condition 0 3 0.0
subroutine 8 12 66.6
pod 0 3 0.0
total 29 69 42.0


line stmt bran cond sub pod time code
1             package VSGDR::UnitTest::TestSet::Test::TestCondition::ExecutionTime;
2              
3 1     1   1550 use 5.010;
  1         3  
4 1     1   5 use strict;
  1         2  
  1         32  
5 1     1   6 use warnings;
  1         1  
  1         29  
6              
7              
8              
9             #our \$VERSION = '1.01';
10              
11 1     1   4 use parent qw(VSGDR::UnitTest::TestSet::Test::TestCondition) ;
  1         2  
  1         6  
12             BEGIN {
13 1     1   88 *AUTOLOAD = \&VSGDR::UnitTest::TestSet::Test::TestCondition::AUTOLOAD ;
14             }
15              
16 1     1   5 use Data::Dumper ;
  1         3  
  1         52  
17 1     1   5 use Carp ;
  1         2  
  1         59  
18              
19              
20 1     1   4 use vars qw($AUTOLOAD %ok_field);
  1         2  
  1         413  
21              
22             # Authorize constructor hash fields
23             my %ok_params = () ;
24             for my $attr ( qw(CONDITIONTESTACTIONNAME CONDITIONNAME CONDITIONENABLED CONDITIONEXECUTIONTIME) ) { $ok_params{$attr}++; }
25             my %ok_fields = () ;
26             my %ok_fields_type = () ;
27              
28             # Authorize attribute fields
29             for my $attr ( qw(conditionTestActionName conditionName conditionEnabled conditionExecutionTime ) ) { $ok_fields{$attr}++; $ok_fields_type{$attr} = 'plain'; }
30             $ok_fields_type{conditionName} = 'quoted';
31             $ok_fields_type{conditionEnabled} = 'bool';
32              
33             sub _init {
34              
35 0     0     local $_ = undef ;
36              
37 0           my $self = shift ;
38 0   0       my $class = ref($self) || $self ;
39 0 0         my $ref = shift or croak "no arg";
40              
41 0           $self->{OK_PARAMS} = \%ok_params ;
42 0           $self->{OK_FIELDS} = \%ok_fields ;
43 0           $self->{OK_FIELDS_TYPE} = \%ok_fields_type ;
44              
45 0           my @validargs = grep { exists($$ref{$_}) } keys %{$self->{OK_PARAMS}} ;
  0            
  0            
46 0 0         croak "bad args"
47             if scalar(@validargs) != 4 ;
48              
49              
50 0           my ${Name} = $$ref{CONDITIONNAME};
51 0           my ${TestActionName} = $$ref{CONDITIONTESTACTIONNAME};
52 0           my ${Enabled} = $$ref{CONDITIONENABLED};
53 0           my ${ExecutionTime} = $$ref{CONDITIONEXECUTIONTIME};
54              
55 0           $self->conditionName(${Name}) ;
56 0           $self->conditionTestActionName(${TestActionName}) ;
57 0           $self->conditionEnabled(${Enabled}) ;
58 0           $self->conditionExecutionTime(${ExecutionTime}) ;
59              
60 0           return ;
61              
62            
63             }
64              
65              
66              
67             sub testConditionType {
68 0     0 0   return 'ExecutionTime' ;
69             }
70              
71             sub testConditionMSType {
72 0     0 0   return 'ExecutionTimeCondition' ;
73             }
74              
75              
76             sub check {
77 0     0 0   local $_ = undef ;
78 0           my $self = shift ;
79 0           my $ra_res = shift ;
80 0           return scalar 1 ;
81             }
82              
83              
84             1 ;
85              
86             __DATA__