Bug #17215 for Devel-Cover: Devel::Cover considers code that failed to compile "covered"

On Sun Jan 22 20:03:58 2006, CRAKRJACK wrote: Show quoted text
I cannot reproduce your results. See the 3 files attached. As failure.pl ends in a statement which evaluates false, require-ing it will always fail. If I place all 3 files in the same directory, then call: PERL5OPT=-MDevel::Cover prove -v simpletest.pl "$@" ... I get the following result: simpletest....Devel::Cover: Can't open -e for MD5 digest: No such file or directory failure.pl did not return a true value at simpletest.pl line 16. # Looks like your test died just after 1. ok 1 - Got expected number of array elements 1..1 dubious Test returned status 255 (wstat 65280, 0xff00) after all the subtests completed successfully Failed Test Stat Wstat Total Fail List of Failed ------------------------------------------------------------------------------ - simpletest.pl 255 65280 1 0 ?? Failed 1/1 test scripts. 0/1 subtests failed. Files=1, Tests=1, 5 wallclock secs ( 4.01 cusr + 0.41 csys = 4.42 CPU) Failed 1/1 test programs. 0/1 subtests failed. So where am I supposed to see the 100% coverage? Can you provide an example? (Otherwise, I think ticket can be closed.) Jim Keenan

#!/usr/local/bin/perl use strict; use Carp; our (@EXPORT_OK); @EXPORT_OK = qw( count_array_elements count_hash_elements ); sub count_array_elements { my $ref = shift; croak "Must supply array ref" unless ref($ref) eq 'ARRAY'; return scalar(@$ref); } sub count_hash_elements { my $ref = shift; croak "Must supply hash ref" unless ref($ref) eq 'HASH'; return scalar(keys %$ref); }

#!/usr/local/bin/perl use strict; use warnings; use Test::More qw(no_plan); use lib ("."); use Simple qw( count_array_elements count_hash_elements ); our $somevar; my $arrayref = [ 0 .. 10 ]; my $hashref = { alpha => 'beta', gamma => 'delta' }; is(11, count_array_elements($arrayref), "Got expected number of array elements"); my $file = q{failure.pl}; require $file; is(2, count_hash_elements($hashref), "Got expected number of hash elements");

$somevar = q[foobar]; 0;