[Bug 970567] New: perl-5.18: t/op/coreamp.t sometimes fails

[Red Hat Bugzilla]

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: mmaslano(a)redhat.com
          Reporter: ppisar(a)redhat.com
        QA Contact: extras-qa(a)fedoraproject.org
                CC: cweyl(a)alumni.drew.edu, iarnell(a)gmail.com,
                    jplesnik(a)redhat.com, kasal(a)ucw.cz, lkundrak(a)v3.sk,
                    mmaslano(a)redhat.com,
                    perl-devel(a)lists.fedoraproject.org, ppisar(a)redhat.com,
                    psabata(a)redhat.com, rc040203(a)freenet.de,
                    tcallawa(a)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 <sprout(a)cpan.org&gt;
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