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@xxxxxxxxxx Reporter: ppisar@xxxxxxxxxx QA Contact: extras-qa@xxxxxxxxxxxxxxxxx CC: cweyl@xxxxxxxxxxxxxxx, iarnell@xxxxxxxxx, jplesnik@xxxxxxxxxx, kasal@xxxxxx, lkundrak@xxxxx, mmaslano@xxxxxxxxxx, perl-devel@xxxxxxxxxxxxxxxxxxxxxxx, ppisar@xxxxxxxxxx, psabata@xxxxxxxxxx, rc040203@xxxxxxxxxx, tcallawa@xxxxxxxxxx There is a bug in t/op/coreamp.t tests that fails randomly. Fixed with this upstream patch: commit fba93b250c0d566f7ef26442312286310b2b9b46 Author: Father Chrysostomos <sprout@xxxxxxxx> 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@xxxxxxxxxxxxxxxxxxxxxxx https://admin.fedoraproject.org/mailman/listinfo/perl-devel
