Branch Coverage

blib/lib/Test/Portability/Files.pm
Criterion Covered Total %
branch 23 64 35.9


line true false branch
32 1 0 unless $Test->has_plan
98 0 0 if exists $opts{"test_$test"}
101 0 0 if exists $opts{$opt}
104 0 0 if exists $opts{'all_tests'}
112 0 30 if ($options{'use_file_find'}) { }
114 0 0 if $_ eq 'File::Spec'->curdir or $_ eq 'pm_to_blib'
118 0 0 if $firstdir eq 'blib' or $firstdir eq '_build'
147 30 0 if ($tests{'ansi_chars'})
148 0 30 unless /^[A-Za-z0-9._][A-Za-z0-9._-]*$/
152 30 0 if ($tests{'one_dot'})
153 0 30 if tr/.// > 1
157 30 0 if ($tests{'special_chars'})
159 0 30 if m<[!"#\$%&'\(\)\*\+/:;<>\?@\[\\\]^`\{\|\}~]>
163 30 0 if ($tests{'space'})
164 0 30 if / /
168 0 30 if ($tests{'mac_length'})
169 0 0 if length $_ > 31
173 0 30 if ($tests{'amiga_length'})
174 0 0 if length $_ > 107
178 30 0 if ($tests{'vms_length'})
180 0 30 unless length $file_name <= 39 and length $file_ext <= 40
184 0 30 if ($tests{'dos_length'})
186 0 0 unless length $file_name <= 8 and length $file_ext <= 4
190 30 0 if ($tests{'case'})
191 0 30 if (not $lc_names{$file} and $lc_names{lc $file}) { }
201 30 0 if ($tests{'symlink'})
202 0 30 if -l $file
206 30 0 if ($tests{'dir_noext'})
207 0 30 if -d $file and tr/.// > 0
215 0 1 if ($options{'use_file_find'}) { }
228 0 1 if (keys %bad_names) { }
234 0 0 unless ref $errors_list{$error}