tag 427188 confirmed patch
thanks
On Sat, Jun 02, 2007 at 01:32:59PM +0200, Michael Ablassmeier wrote:
> Package: libdata-random-perl
> Version: 0.05-1
> Severity: serious
> User: [EMAIL PROTECTED]
> Usertags: qa-ftbfs
> while doing an archive wide package rebuild your package failed to build from
> source for the following reason:
> > t/rand_time........# Failed test 1 in t/rand_time.t at line 24
> > # t/rand_time.t line 24 is: ok($pass);
The test script has a small error, which makes it fail with a probability
of about 4% (1/24). This happens when one of the 3600 rand_time() calls
returns "00:00:00".
Patch attached. I'll prepare a fixed version and report this upstream
soon.
Cheers,
--
Niko Tyni [EMAIL PROTECTED]
--- t/rand_time.t 2007/06/02 12:35:37 1.1
+++ t/rand_time.t 2007/06/02 12:35:50
@@ -16,7 +16,7 @@
while ( $pass && $i < $max_secs ) {
my $time = rand_time();
- $pass = 0 unless _to_secs($time);
+ $pass = 0 unless defined _to_secs($time);
$i++;
}
