This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to branch master in repository libmath-quaternion-perl.
commit 30725bffea976117fa5cb711290260abb3f56563 Author: gregor herrmann <[email protected]> Date: Thu Jan 26 20:39:30 2017 +0100 Add patch from CPAN RT that at least fixes part of the random test failures. (Addresses: #839992) --- debian/patches/series | 1 + debian/patches/testsuite-randomness.patch | 21 +++++++++++++++++++++ 2 files changed, 22 insertions(+) diff --git a/debian/patches/series b/debian/patches/series new file mode 100644 index 0000000..5e86bfc --- /dev/null +++ b/debian/patches/series @@ -0,0 +1 @@ +testsuite-randomness.patch diff --git a/debian/patches/testsuite-randomness.patch b/debian/patches/testsuite-randomness.patch new file mode 100644 index 0000000..e68e8aa --- /dev/null +++ b/debian/patches/testsuite-randomness.patch @@ -0,0 +1,21 @@ +Description: fix random test failures +Origin: CPAN RT, #93159 +Bug: https://rt.cpan.org/Public/Bug/Display.html?id=93159 +Bug-Debian: https://bugs.debian.org/839992 +Author: Dima Kogan <[email protected]> +Reviewed-by: gregor herrmann <[email protected]> +Last-Update: 2017-01-26 + +--- a/t/001_basic.t ++++ b/t/001_basic.t +@@ -238,8 +238,8 @@ + "The inverse of a unit quaternion is its conjugate"); + + my $exponent = int rand 100; +-my $q1manual = $q1; +-for (1..($exponent-1)) { $q1manual = Math::Quaternion::multiply($q1,$q1manual); } ++my $q1manual = [1,0,0,0]; ++for (1..$exponent) { $q1manual = Math::Quaternion::multiply($q1,$q1manual); } + my $q1expon = Math::Quaternion::power($q1,$exponent); + + ok( quatequal_fuzz($q1manual,$q1expon), -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-quaternion-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
