https://bugzilla.redhat.com/show_bug.cgi?id=970567
Bug ID: 970567
Summary: perl-5.18: t/op/coreamp.t sometimes fails
Product: Fedora
Version: rawhide
Component: perl
Severity: unspecified
Priority: unspecified
Assignee: mmasl...@redhat.com
Reporter: ppi...@redhat.com
QA Contact: extras...@fedoraproject.org
CC: cw...@alumni.drew.edu, iarn...@gmail.com,
jples...@redhat.com, ka...@ucw.cz, lkund...@v3.sk,
mmasl...@redhat.com,
perl-devel@lists.fedoraproject.org, ppi...@redhat.com,
psab...@redhat.com, rc040...@freenet.de,
tcall...@redhat.com
There is a bug in t/op/coreamp.t tests that fails randomly. Fixed with this
upstream patch:
commit fba93b250c0d566f7ef26442312286310b2b9b46
Author: Father Chrysostomos <spr...@cpan.org>
Date: Sun Jun 2 00:36:33 2013 -0700
[perl #118237] Fix coreamp.t’s rand test
when rand returns something really small that does not
begin with 0, such as 2.90736361456823e-05.
diff --git a/t/op/coreamp.t b/t/op/coreamp.t
index c1f7181..fe7c741 100644
--- a/t/op/coreamp.t
+++ b/t/op/coreamp.t
@@ -637,7 +637,7 @@ test_proto 'quotemeta', '$', '\$';
test_proto 'rand';
$tests += 3;
-like &CORE::rand, qr/^0[.\d+-e]*\z/, '&rand';
+like &CORE::rand, qr/^[.\d+-e]*\z/, '&rand';
unlike join(" ", &CORE::rand), qr/ /, '&rand in list context';
&cmp_ok(&CORE::rand(78), qw '< 78', '&rand with 1 arg');
--
You are receiving this mail because:
You are on the CC list for the bug.
Unsubscribe from this bug
https://bugzilla.redhat.com/token.cgi?t=2cl2QSvo7O&a=cc_unsubscribe
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@lists.fedoraproject.org
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
