Branch Coverage

blib/lib/ChordPro/Testing.pm
Criterion Covered Total %
branch 24 38 63.1


line true false branch
32 73 7 if -d "t"
43 66 13 if (ref $got eq "HASH" and ref $expect eq "HASH")
44 38 28 if $got->{'body'}
47 66 0 unless exists $expect->{$_}
49 64 2 if ($got->{'chordsinfo'})
50 30 34 if (not %{$got->{'chordsinfo'};} || $expect->{'chordsinfo'}) { }
60 396 0 unless exists $expect->{'meta'}{$_}
95 0 0 unless (open F1, $old)
99 0 0 unless (open F2, $new)
108 0 0 if $len1 == $len2 and $len1 == 0
109 0 0 if $len1 != $len2 or $len1 and $buf1 ne $buf2
117 0 79 unless $file2
122 0 79 @lines1 > @lines2 ? :
124 2471 0 if $lines1[$line] eq $lines2[$line]
130 79 0 if @lines1 == @lines2
144 113 39 if UNIVERSAL::can($_, "key")
148 36 11 if UNIVERSAL::can($_, "key")
152 31 105 if ($_->{'class'} eq 'chord') { }
1 104 elsif ($_->{'class'} eq 'chords') { }