Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Devel-Cover CPAN distribution.

Report information
The Basics
Id: 75314
Status: resolved
Priority: 0/
Queue: Devel-Cover

People
Owner: Nobody in particular
Requestors: TODDR [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.79
Fixed in: (no value)



Subject: conditional testing broken in blead?
Download (untitled) / with headers
text/plain 352b
In the attached test program, Line 30 (the first line of sub test) is showing as 66% covered when running off 5.15.7. It shows as 100% in 5.14. As best I can tell, 5.14 is right and 5.15.7 is wrong. In the conditional table, the last line shows as unmet on 5.15 A B dec 0 X 0 1 0 0 1 1 1 FYI, I'm running D:C with the patch from RT 61515
Subject: foo.pl.txt
Download foo.pl.txt
text/plain 417b
#!/usr/local/cpanel/bin/perl package Foo; sub new { return bless { 'bar' => 'hdhfjf' }, 'foo'; } package main; use Test::More; my $f = Foo->new(); # false, x my $c1 = ok(test()); # true, false $ENV{'FOO'} = 'blah'; my $c2 = ok(test()); # true, true $ENV{'FOO'} = 'hdhfjf'; my $c3 = ok(!test()); done_testing(); exit; sub test { return if($ENV{'FOO'} and $ENV{'FOO'} eq $f->{'bar'}); return 1; }
Download (untitled) / with headers
text/plain 118b
Fixed by f26ba32d6acbb002e9eaba6019377af5eeea555f. Thanks very much for noticing this and providing a nice test case.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.