Condition Coverage

blib/lib/Test/File.pm
Criterion Covered Total %
condition 101 182 55.4


and 3 conditions

line !l l&&!r l&&r condition
366 1 0 2 defined $expected and int $expected == $expected
422 1 0 3 defined $expected and int $expected == $expected
479 1 0 8 defined $$ref and int $$ref == $$ref
489 1 0 3 $min <= $got and $got <= $max
865 0 1 4 -e $filename && ((stat $filename)[2] & 4095) == $mode
899 0 4 1 -e $filename && ((stat $filename)[2] & 4095) == $mode
936 0 2 2 $present && ($gotmode & $mode) == $mode
974 0 1 2 $present && ($gotmode & $mode) == 0
1188 0 0 0 defined $link_abs and defined $to_abs
0 0 0 defined $link_abs and defined $to_abs and $link_abs eq $to_abs
1389 4 0 0 defined $err and $err eq "skip"
1434 4 0 0 defined $err and $err eq "skip"
1468 5 0 0 defined $err and $err eq "skip"
1515 4 0 0 defined $err and $err eq "skip"
1556 6 0 2 defined $from_uid and not defined $from_nam
0 2 4 not defined $from_uid and defined $from_nam
1600 6 0 3 defined $from_gid and not defined $from_nam
0 1 5 not defined $from_gid and defined $from_nam

or 2 conditions

line l !l condition
1193 0 0 $link ||= "undefined"
1194 0 0 $link_abs ||= "undefined"
1195 0 0 $to_abs ||= "undefined"
1630 3 1 shift() || 0

or 3 conditions

line l !l&&r !l&&!r condition
102 5 0 33 $^O =~ /Win/ || $^O eq 'msys'
137 1 10 0 shift() || "$filename exists"
158 1 4 0 shift() || "$filename does not exist"
183 1 3 0 shift() || "$filename is empty"
210 1 6 0 shift() || "$filename is not empty"
238 1 3 0 shift() || "$filename has right size"
270 1 3 0 shift() || "$filename is under $max bytes"
304 1 3 0 shift() || "$filename is over $min bytes"
632 12 28 0 $name || "$filename $verb $_"
636 0 14 0 $name || "$filename $verb $patterns"
681 1 1 0 shift() || "$filename is readable"
703 0 0 0 shift() || "$filename is not readable"
736 1 2 0 shift() || "$filename is writable"
769 0 0 0 shift() || "$filename is not writable"
799 1 2 0 shift() || "$filename is executable"
829 1 2 0 shift() || "$filename is not executable"
863 1 4 0 shift() || sprintf('%s mode is %04o', $filename, $mode)
897 1 4 0 shift() || sprintf('%s mode is not %04o', $filename, $mode)
932 1 3 0 shift() || sprintf('%s mode has all bits of %04o', $filename, $mode)
970 1 2 0 shift() || sprintf('%s mode has no bits of %04o', $filename, $mode)
1002 3 3 0 shift() || "$file is a symlink"
1029 0 0 0 shift() || "$file is not a symlink"
1063 4 0 1 shift() || readlink $file
1064 1 4 0 shift() || "$file is a symlink"
1108 3 1 0 shift() || "$file is a symlink"
1141 2 1 0 shift() || "symlink $file points to $dest"
1217 1 3 0 shift() || "$filename is a directory"
1247 1 3 0 shift() || "directory $dirname contains file $filename"
1278 2 1 0 shift() || "$file has a link count of [$count]"
1303 2 1 0 shift() || "$file has a link count of [$count]"
1329 2 1 0 shift() || "$file has a link count of [$count]"
1386 2 2 0 shift() || "$filename belongs to $owner"
1431 2 2 0 shift() || "$filename doesn't belong to $owner"
1465 4 1 0 shift() || "$filename belongs to group $group"
1512 3 1 0 shift() || "$filename does not belong to group $group"
1556 0 0 2 defined $from_uid || defined $from_nam
1600 0 0 1 defined $from_gid || defined $from_nam
1631 2 2 0 shift() || "$filename mtime within $within_secs seconds of current time"
1655 2 1 0 shift() || "$filename mtime is greater than unix timestamp $time"
1677 2 1 0 shift() || "$filename mtime less than unix timestamp $time"