Reading database from ...
Unknown type true found parsing uncoverable condition at tests/uncoverable:52
2 unmatched uncoverable comments not found at end of tests/uncoverable
----------------- ------ ------ ------ ------ ------
File stmt bran cond sub total
----------------- ------ ------ ------ ------ ------
tests/uncoverable 100.0 100.0 100.0 100.0 100.0
Total 100.0 100.0 100.0 100.0 100.0
----------------- ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/uncoverable
line err stmt bran cond sub code
1 #!/usr/bin/perl
2
3 # Copyright 2004-2024, Paul Johnson (paul@pjcj.net)
4
5 # This software is free. It is licensed under the same terms as Perl itself.
6
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
10 # __COVER__ uncoverable_file tests/.uncoverable
11
12 1 my $x = 1;
13 1 my $y = 1;
14
15 # uncoverable branch true
16 # uncoverable condition left
17 # uncoverable condition false
18 1 - 50 - 33 if ($x && !$y) {
19 -0 $x++; # uncoverable statement
20 # uncoverable statement
21 -0 z();
22 }
23
24 # uncoverable branch true
25 # uncoverable condition right
26 # uncoverable condition false
27 1 - 50 - 33 if (!$x && $y) {
28 # uncoverable statement count:1
29 # uncoverable statement count:2
30 -0 b(); b();
-0
31
32 # uncoverable statement count:1,2
33 -0 b(); b();
-0
34
35 # uncoverable statement count:1..4
36 -0 b(); b(); b(); b();
-0
-0
-0
37
38 # uncoverable statement count:1,2,3..4,5..7,8,9,10..11,12
39 -0 b(); b(); b(); b(); b(); b(); b(); b(); b(); b(); b(); b();
-0
-0
-0
-0
-0
-0
-0
-0
-0
-0
-0
40 }
41
42 sub z {
43 # uncoverable subroutine
44 -0 -0 $y++; # uncoverable statement
45 }
46
47 # uncoverable branch false count:1
48 # uncoverable branch true count:2
49 # uncoverable branch false count:2
50 # uncoverable condition left count:1,2
51 # uncoverable condition right count:1..2
52 # uncoverable condition true count:2
53 # uncoverable condition false count:2
54 1 - 50 - 33 if ($x > 0 && $y > 0) {
- 0 - 0
55 1 $y++;
56 } elsif ($x < 2 && $y < 0) {
57 -0 $y++; # uncoverable statement
58 } else {
59 -0 $y++; # uncoverable statement
60 }
61
62 # uncoverable statement
63 # uncoverable subroutine
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
18 - 50 -0 1 if ($x and not $y)
27 - 50 -0 1 if (not $x and $y)
54 - 50 1 -0 if ($x > 0 and $y > 0) { }
- 0 -0 -0 elsif ($x < 2 and $y < 0) { }
Conditions
----------
and 3 conditions
line err % !l l&&!r l&&r expr
----- --- ------ ------ ------ ------ ----
18 - 33 -0 1 -0 $x and not $y
27 - 33 1 -0 -0 not $x and $y
54 - 33 -0 -0 1 $x > 0 and $y > 0
- 0 -0 -0 -0 $x < 2 and $y < 0
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- --------------------
z -0 tests/uncoverable:44