Skip Menu |

This queue is for tickets about the DBI CPAN distribution.

Report information
The Basics
Id: 26142
Status: resolved
Priority: 0/
Queue: DBI
People
Owner: Nobody in particular
Requestors: m.nooning [...] comcast.net
Cc:
AdminCc:
Bug Information
Severity: Normal
Broken in: 1.54
Fixed in: (no value)

History Show all quoted text
  Fri Apr 06 16:34:35 2007 m.nooning [...] comcast.net - Ticket created
Subject: DBI-1.54 42prof_data Failed test
Windows XP SP2, perl 5.8.8 For DBI-1.54 I was failing like this: t\42prof_data.............NOK 11/33# Failed test in t\42prof_data.t at line 63. # '0.000000' # < # '0.000000' # Looks like you failed 1 test of 33. I went into 42prof_data.t and changed cmp_ok( $nodes->[0][4], '<', $longest ); to if ( ($nodes->[0][4] == 0.0) and ($longest == 0.0) ) { cmp_ok( $nodes->[0][4], '=', $longest); } else { cmp_ok( $nodes->[0][4], '<', $longest ); } which of course made the test pass. It looks like maybe I did the right thing, but maybe this was a very bad thing to do. After all, maybe one or maybe even neither value should ever be zero! Any advice would be appreciated. Thanks
  Fri Apr 06 18:01:37 2007 TIMB [...] cpan.org - Correspondence added
Try increasing the number of loops taken by the code under "# do a little work". i.e., change (1,2,3) to (1,2,3,4) and change (1..20) to (1..30) Experiment to find the minimum values that pass, then add 50%. Also, please let me know what kind of machine you're using (cpu speed etc) Thanks.
  Fri Apr 06 18:01:38 2007 The RT System itself - Status changed from 'new' to 'open'
  Fri Apr 06 20:20:53 2007 m.nooning [...] comcast.net - Correspondence added
Subject: Re: [rt.cpan.org #26142] DBI-1.54 42prof_data Failed test
Date: Fri, 06 Apr 2007 20:20:57 -0400
To: bug-DBI [...] rt.cpan.org
From: Malcolm Nooning <m.nooning [...] comcast.net>
If I make the "for my $loop (1..1) " and start off with the "foreach (1,2,3,4,5,6 )" and then start decreasing the upper number, it will start passing half the time at (1,2,3,4). If I now keep the (1,2,3,4) and make start increasing the upper bound of the for loop (1..1), then it will stop intermittently failing at (1..15). A 50% increase is (1..22), which is of course about what it originally was. I can no longer get it to fail even at (1..15). Show quoted text
>what kind of machine ...
eMachines T6216, AMD Athlon 64, 3200+, 512MB memory Windows XP SP2 ("ver" yeilds Microsoft Windows XP [Version 5.1.2600]) ActiveState Perl 5.8.8 Binary build 820 [274739] If this is real time dependent, I could have a Microsoft Update and/or Bittorrent, email and so on both going on in the background at any time, but usually the load is pretty low. Tim_Bunce via RT wrote: Show quoted text
> <URL: http://rt.cpan.org/Ticket/Display.html?id=26142 > > > Try increasing the number of loops taken by the code under "# do a little work". > i.e., change (1,2,3) to (1,2,3,4) and change (1..20) to (1..30) > Experiment to find the minimum values that pass, then add 50%. > Also, please let me know what kind of machine you're using (cpu speed etc) > Thanks. > >
  Thu Apr 12 05:27:13 2007 TIMB [...] cpan.org - Correspondence added
Fixed for 1.55. Thanks.
  Thu Apr 12 05:27:18 2007 TIMB [...] cpan.org - Status changed from 'open' to 'resolved'