Branch Coverage

blib/lib/Test/Excel.pm
Criterion Covered Total %
branch 100 130 76.9


line true false branch
116 1 0 if ($status == 0) { }
144 0 52 unless $error =~ /Use of uninitialized value/
147 2 43 unless -f $got
148 2 41 unless -f $exp
151 41 0 unless (&blessed($got) and $got->isa("Spreadsheet::Read"))
156 41 0 unless (&blessed($exp) and $exp->isa("Spreadsheet::Read"))
169 16 14 if defined $spec
170 26 3 unless defined $error_limit
172 1 28 if (@gotWorkSheets != @expWorkSheets)
182 6 22 if defined $sheet
191 24 26 unless (exists $spec->{'ALL'})
192 0 24 if (uc $gotSheetName ne uc $expSheetName)
209 0 50 if (defined $gotRowMax and defined $expRowMax and $gotRowMax != $expRowMax)
216 0 50 if (defined $gotColMax and defined $expColMax and $gotColMax != $expColMax)
240 20 48 if defined $spec and exists $spec->{'ALL'} && exists $spec->{'ALL'}{$col} && exists $spec->{'ALL'}{$col}{$row} && exists $spec->{'ALL'}{$col}{$row}{$IGNORE} || exists $$spec{uc $gotSheetName} && exists $$spec{uc $gotSheetName}{$col} && exists $$spec{uc $gotSheetName}{$col}{$row} && exists $$spec{uc $gotSheetName}{$col}{$row}{$IGNORE}
244 1787 72 if (defined $gotData and defined $expData)
246 1555 232 if ($gotData =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/ and $expData =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/) { }
251 0 1555 if ($gotData < $ALMOST_ZERO and $expData < $ALMOST_ZERO) { }
256 101 1454 if (defined $rule and scalar keys %$rule) { }
260 65 36 if (defined $spec and exists $$spec{uc $gotSheetName} and exists $$spec{uc $gotSheetName}{$col} and exists $$spec{uc $gotSheetName}{$col}{$row} and exists $$spec{uc $gotSheetName}{$col}{$row}{$SPECIAL_CASE} or @sheets and grep /$gotSheetName/, @sheets) { }
280 8 93 if (defined $compare_with and $compare_with < $difference) { }
293 2 1452 if ($expData != $gotData) { }
306 60 172 if (defined $spec and exists $$spec{uc $gotSheetName} and exists $$spec{uc $gotSheetName}{$col} and exists $$spec{uc $gotSheetName}{$col}{$row} and exists $$spec{uc $gotSheetName}{$col}{$row}{$REGEX_CASE} or exists $spec->{'ALL'}{$col} and exists $spec->{'ALL'}{$col}{$row} and exists $spec->{'ALL'}{$col}{$row}{$REGEX_CASE} or @sheets and grep /$gotSheetName/, @sheets) { }
321 59 1 if ($gotData =~ /$exp/i and $expData =~ /$exp/i) { }
333 10 162 if (uc $gotData ne uc $expData) { }
335 10 0 if (defined $rule) { }
351 62 1723 if (exists $rule->{'swap_check'} and defined $rule->{'swap_check'} and $rule->{'swap_check'}) { }
355 16 46 if ($status == 0)
360 0 9 if ($error_on_sheet >= $error_limit and $error_on_sheet % 2 == 0 and not _is_swapping($swap))
369 3 1720 if $status == 0
374 0 7 if ($error_on_sheet > 0 and $error_on_sheet >= $error_limit and $error_on_sheet % 2 == 0 and not _is_swapping($swap))
378 0 0 if $status == 0
382 9 0 if (exists $rule->{'swap_check'} and defined $rule->{'swap_check'} and $rule->{'swap_check'})
386 3 6 if ($error_on_sheet > 0 and _is_swapping($swap))
474 0 61 unless defined $cell
476 0 61 unless $cell =~ /([A-Za-z]+)(\d+)/
498 1 61 if $incr
533 0 28 unless defined $range
537 0 30 unless $_range =~ /(\w+\d+):(\w+\d+)/
561 0 17 unless defined $spec
563 1 16 unless -f $spec
572 0 62 unless $row =~ /\w/
573 0 62 if $row =~ /^#/
575 29 33 if ($row =~ /^sheet\s+(.*)/i) { }
21 12 elsif (defined $sheet and $row =~ /^range\s+(.*)/i) { }
5 7 elsif (defined $sheet and $row =~ /^regex\s+(.*)/i) { }
6 1 elsif (defined $sheet and $row =~ /^ignorerange\s+(.*)/i) { }
611 9 81 unless defined $hash and defined $key
612 0 81 unless ref $hash eq "HASH"
614 55 26 unless exists $hash->{$key}
621 0 13 unless defined $data
627 0 24 if grep /$exp->[0]/, @{$out;}
636 0 3532 unless defined $message
638 0 3532 if $ENV{'DEBUG'}
644 3 38 unless defined $rule
646 2 36 unless ref $rule eq "HASH"
651 0 9 if $keys == 1 and exists $rule->{'message'}
653 1 35 if $keys > 8
667 2 77 unless exists $valid->{$key}
670 7 26 if exists $rule->{'spec'} and keys %$rule == 1
672 22 4 if (exists $rule->{'spec'} and defined $rule->{'spec'} or exists $rule->{'sheet'} and defined $rule->{'sheet'}) { }
678 2 20 unless exists $rule->{'sheet_tolerance'} and defined $rule->{'sheet_tolerance'}
681 4 16 unless exists $rule->{'tolerance'} and defined $rule->{'tolerance'}
684 0 4 if (exists $rule->{'sheet_tolerance'} and defined $rule->{'sheet_tolerance'} or exists $rule->{'tolerance'} and defined $rule->{'tolerance'})
693 0 0 unless exists $rule->{'sheet'} and defined $rule->{'sheet'} or exists $rule->{'spec'} and defined $rule->{'spec'}