File Coverage

blib/lib/VSGDR/UnitTest/TestSet/Test/TestCondition/Inconclusive.pm
Criterion Covered Total %
statement 21 45 46.6
branch 0 4 0.0
condition 0 3 0.0
subroutine 8 12 66.6
pod 0 3 0.0
total 29 67 43.2


line stmt bran cond sub pod time code
1             package VSGDR::UnitTest::TestSet::Test::TestCondition::Inconclusive;
2              
3 1     1   1171 use 5.010;
  1         3  
4 1     1   5 use strict;
  1         2  
  1         21  
5 1     1   5 use warnings;
  1         2  
  1         28  
6              
7             #our \$VERSION = '1.01';
8              
9              
10 1     1   5 use parent qw(VSGDR::UnitTest::TestSet::Test::TestCondition) ;
  1         2  
  1         6  
11             BEGIN {
12 1     1   88 *AUTOLOAD = \&VSGDR::UnitTest::TestSet::Test::TestCondition::AUTOLOAD ;
13             }
14              
15 1     1   11 use Data::Dumper ;
  1         2  
  1         51  
16 1     1   5 use Carp ;
  1         2  
  1         54  
17              
18              
19 1     1   5 use vars qw($AUTOLOAD %ok_field);
  1         2  
  1         410  
20              
21              
22              
23             # Authorize constructor hash fields
24             my %ok_params = () ;
25             for my $attr ( qw(CONDITIONTESTACTIONNAME CONDITIONNAME CONDITIONENABLED ) ) { $ok_params{$attr}++; }
26             my %ok_fields = () ;
27             my %ok_fields_type = () ;
28             # Authorize attribute fields
29             for my $attr ( qw(conditionTestActionName conditionName conditionEnabled ) ) { $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              
47 0 0         croak "bad args"
48             if scalar(@validargs) != 3 ;
49              
50 0           my ${Name} = $$ref{CONDITIONNAME};
51 0           my ${TestActionName} = $$ref{CONDITIONTESTACTIONNAME};
52 0           my ${Enabled} = $$ref{CONDITIONENABLED};
53              
54 0           $self->conditionName(${Name}) ;
55 0           $self->conditionTestActionName(${TestActionName}) ;
56 0           $self->conditionEnabled(${Enabled}) ;
57              
58 0           return ;
59            
60             }
61              
62             sub testConditionType {
63 0     0 0   return 'Inconclusive' ;
64             }
65              
66             sub testConditionMSType {
67 0     0 0   return 'InconclusiveCondition' ;
68             }
69              
70             sub check {
71 0     0 0   local $_ = undef ;
72 0           my $self = shift ;
73 0           my $ra_res = shift ;
74 0           return scalar -1 ;
75             }
76              
77              
78             1 ;
79              
80             __DATA__