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: 38765
Status: resolved
Priority: 0/
Queue: Devel-Cover

People
Owner: Nobody in particular
Requestors: johntrammell [...] gmail.com
Cc:
AdminCc:

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



Subject: 1 test fails (acond_branch.t) on Cygwin 1.5.25 / Perl 5.10
"make test" fails on cygwin 1.5.25. See attached screenshots.
Subject: devel-cover-acond-branch-fail.txt
% prove -b -v t/acond_branch.t t/acond_branch...... 1..1 # Running under perl version 5.010000 for cygwin # Current time local: Wed Aug 27 12:55:40 2008 # Current time GMT: Wed Aug 27 17:55:40 2008 # Using Test.pm version 1.25 not ok 1 # Test 1 got: +----+--------------------------------------------------------+----+----------------------------------------------------------------+ | Elt|Got | Elt|Expected | +----+--------------------------------------------------------+----+----------------------------------------------------------------+ | 386|48 *** 50 0 4 $y ? : | 386|48 *** 50 0 4 $y ? : | | 387|49 100 2 2 $z ? : | 387|49 100 2 2 $z ? : | | 388|51 *** 50 0 4 if ($y) { } | 388|51 *** 50 0 4 if ($y) { } | * 389| *** 50 0 4 elsif (do { * 389| *** 50 0 4 elsif ($y and $z) { } * * 390|\t$z if $y * 390| 100 2 2 elsif ($y or $z) { } * * 391|}) { } * | | * 392| 100 2 2 elsif (do { * | | * 393| $z unless $y * | | * 394|}) { } * | | | 395|68 *** 50 0 4 if $y and $z | 391|68 *** 50 0 4 if $y and $z | | 396| *** 50 0 4 if $y and $z | 392| *** 50 0 4 if $y and $z | | 397|74 100 1 1 unless $y | 393|74 100 1 1 unless $y | +----+--------------------------------------------------------+----+----------------------------------------------------------------+ | 419|253 100 2 2 unless shift @_ | 415|253 100 2 2 unless shift @_ | | 420|269 100 2 2 if shift @_ | 416|269 100 2 2 if shift @_ | | 421|302 *** 50 0 1 if ($a and $b) { } | 417|302 *** 50 0 1 if ($a and $b) { } | * 422| *** 50 0 1 elsif (do { * 418| *** 50 0 1 elsif (not $a and not $b) { } * * 423|\tnot $b if not $a * 419| *** 50 1 0 elsif ($b or 0) { } * * 424|}) { } * | | * 425| *** 50 1 0 elsif (do { * | | * 426| 0 unless $b * | | * 427|}) { } * | | | 428|313 *** 50 0 1 if (not $b or $a) { } | 420|313 *** 50 0 1 if (not $b or $a) { } | * 429| *** 50 1 0 elsif (do { * 421| *** 50 1 0 elsif (not $a and $b) { } * * 430| $b if not $a * | | * 431|}) { } * | | | 432| | 422| | | 433| | 423| | | 434|Conditions | 424|Conditions | +----+--------------------------------------------------------+----+----------------------------------------------------------------+ | 496|__ANON__ 4 tests/cond_branch:286 | 486|__ANON__ 4 tests/cond_branch:286 | | 497| | 487| | | 498| | 488| | | | * 489| * | | * 490| * | | * 491| * | | * 492| * | | * 493| * | | * 494| * | | * 495| * | | * 496| * | | * 497| * | | * 498| * +----+--------------------------------------------------------+----+----------------------------------------------------------------+ (/home/johnt/Devel-Cover-0.64/blib/lib/Devel/Cover/Test.pm at line 301) # Expected: No differences (output) # /home/johnt/Devel-Cover-0.64/blib/lib/Devel/Cover/Test.pm line 301 is: $ENV{DEVEL_COVER_NO_COVERAGE} ? ok 1 : eq_or_diff(\@at, \@ac, "output"); Failed 1/1 subtests Test Summary Report ------------------- t/acond_branch.t (Wstat: 0 Tests: 1 Failed: 1) Failed test: 1 Files=1, Tests=1, 5 wallclock secs ( 0.00 usr 0.00 sys + 4.18 cusr 0.54 csys = 4.73 CPU) Result: FAIL
Subject: perl-V.txt
% perl -V Summary of my perl5 (revision 5 version 10 subversion 0 patch 34065) configuration: Platform: osname=cygwin, osvers=1.5.25(0.15642), archname=cygwin-thread-multi-64int uname='cygwin_nt-5.1 reini 1.5.25(0.15642) 2008-06-12 19:34 i686 cygwin ' config_args='-de -Dmksymlinks -Dusethreads -Dmad=y -Dusedevel' hint=recommended, useposix=true, d_sigaction=define useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=define, use64bitall=undef, uselongdouble=undef usemymalloc=y, bincompat5005=undef Compiler: cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -fno-strict-aliasing -pipe -I/usr/local/include', optimize='-O3', cppflags='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -fno-strict-aliasing -pipe -I/usr/local/include' ccversion='', gccversion='3.4.4 (cygming special, gdc 0.12, using dmd 0.125)', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='g++', ldflags =' -Wl,--enable-auto-import -Wl,--export-all-symbols -Wl,--stack,8388608 -Wl,--enable-auto-image-base -L/usr/local/lib' libpth=/usr/local/lib /usr/lib /lib libs=-lgdbm -ldb -ldl -lcrypt -lgdbm_compat perllibs=-ldl -lcrypt libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl.a gnulibc_version='' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' cccdlflags=' ', lddlflags=' --shared -Wl,--enable-auto-import -Wl,--export-all-symbols -Wl,--stack,8388608 -Wl,--enable-auto-image-base -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY MYMALLOC PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_MAD PERL_MALLOC_WRAP PERL_USE_SAFE_PUTENV USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API Locally applied patches: MAINT34065 CYG11 no-bs CYG12 no archlib in otherlibdirs CYG14 Dynaloader CYG15 static-Win32CORE Bug#55162 File::Spec::case_tolerant performance Built under cygwin Compiled at Jun 30 2008 16:05:15 %ENV: CYGWIN="notty" @INC: /usr/lib/perl5/5.10/i686-cygwin /usr/lib/perl5/5.10 /usr/lib/perl5/site_perl/5.10/i686-cygwin /usr/lib/perl5/site_perl/5.10 /usr/lib/perl5/vendor_perl/5.10/i686-cygwin /usr/lib/perl5/vendor_perl/5.10 /usr/lib/perl5/vendor_perl/5.10 /usr/lib/perl5/site_perl/5.8 /usr/lib/perl5/vendor_perl/5.8 . %
Thanks very much for this report. The problem was caused by changes to B::Deparse, but I didn't think they had ever made it into an official perl release. Perhaps it was due to one of the patches cygwin added? In any case, I believe the problem is now fixed, so I'm closing this ticket. But if that turns out not to be the case, please feel ffree to reopen it. Thanks again,